[Resolvido]exportar - importar apenas o que não tem na tabela e em horário pré-fixado

Bom dia!!
Estou precisando da ajuda de voces.. de novo..
É o seguinte:
Atualmente funciona assim: São 2 computadores..
o computador-1 cadastra o cliente e exporta para uma pasta (formato planilha excel)
o computador-2 importa dessa pasta que fica na rede - os dados do cliente.
O 1° problema - é que: antes de importar os dados.. zera o banco e importa "todos os dados novamente".. não é funcional.. porque os dados estão "aumentando" e está ficando "lento"..

Gostaria de modificar.. mas.. não sei "como fazer".. ou seja..
1- exportar apenas o cliente que acabar de cadastrar
2- importar apenas o que não tem no banco de dados
3- fixar horários para exportação/importação (se possível travando o operador do que estive fazendo - e automaticamente enviar/receber os dados)
Desde já.. agradeço a atenção de todos..
gracy mary

Olá Grace! Não seria mais prático vincular a tabela do aplicativo de um computador com a tabela do aplicativo do outro computador? Ou exportar direto de um para o outro sem passar pelo Excel. Ou talvez fosse o caso de se usar apenas um aplicativo com um backend e dois frontends.

Criquio, antes de mais nada.. obrigada por responder..
é o seguinte.. talvez até fosse "mais fácil", frontend/backend, mas.. nunca fiz..
- como eu exportaria direto sem passar pelo Excel?
Obrigada..
Gracy mary

Em primeiro lugar, vamos ver como está essa estrutura. Talvez consigamos simplificar o processo da forma mais funcional. Bem, os dois sistemas são iguais? Se for, vamos ver a possibilidade de dividi-lo em front e back. Mesmo tendo diferenças, talvez possa fundi-los em um só para depois dividir em backend e frontend. Por que isso? Porque assim as tabelas ficam tudo na mesma parte do aplicativo, o backend, e você coloca um frontend em cada computador e linca eles com o backend e pronto.

Criquio.. uma "visão geral"..

Computador-1 - Faz apenas o Cadastro do Paciente tblPaciente - cadastrando somente o: nome - tel - data -> em seguida "agenda o paciente" - exporta os dados para "pastaE".. (os dados que exporta - tblPaciente)

O computador 2 - importa da "pastaE" e complementa o cadastro do paciente -> agenda laboratório (se necessário) - em seguida re-envia (exporta) para a "pastaE" (diponibiliza para a recepção a complementação - apenas para visualização).

Então.. os dados que são "compartilhados" = tblPaciente
Recepção -> nome - tel - datacadastro (que envia para o computador-2)
Computador-2-> completa o cadastro -> reenvia para a recepção - apenas para visualização

Tenho também um computador-3 que utiliza essa mesma tabela

É, essa estrutura não ficou ideal para as funções a que se propõe. Me diga uma coisa, a tabela tem os mesmos campos em todos os computadores?

a tabela -> tblPaciente.. são iguais em todos os computadores

Olha só, não sei como está o resto da estrutura do sistema, mas se você quiser, faça o seguinte teste: crie uma cópia do aplicativo em cada um dos computadores, ou seja, em cada computador, uma cópia do aplicativo que está no próprio computador. Para não se confundir, deixe o nome cópia no nome do arquivo. exclua a tabela das cópias, menos de um deles. Vá nos outros que você excluiu as tabelas e vincule à tabela do que você não excluiu. Esse que está com a tabela fica sendo um backend. Aí teste se tudo funciona normal nessas cópias. Se der tudo certo, o sistema está integrado e não precisa mais de ficar importando e exportando. Para vincular um frontend à uma tabela do backend, você pode usar a área de importar e escolher a opção de vincular.

Criquio..

Estou preferindo “manter a pasta” na rede.. e não vincular os sistemas.. já que são sistemas diferentes.. Agendamento – Laboratório – Financeiro.
A única tabela comum é a “tblPacientes”.
Meu problema.. é não ter que zerar a tabela e importar todos os dados.. porque o cadastro está aumentando.. e já está ficando lento..
Preciso “acrescentar” mais um registro na planilha.. ao exportar.. e
Quando for Importar.. descartar a duplicidade..
E também... que seja automático..
Nessa “linha de pensamento”.. tem alguma idéia?
Obrigada..
Gracy Mary

Uma dica para importar direto de uma tabela para a outra sem passar pelo Excel poderia ser você usar o código do registro. Para isso, você poderia pegar o maior número já importado e importar à partir desse número. Você poderia usar no critério do campo Código:

DMax([Código]) + 1

Criquio..
Desculpe o meu "pouco conhecimento".. o que resulta em "tantas perguntas".. mas.. é o seguinte...
exporto/importo.. através de macros.. não sei como eu iria "exportar/importar" da forma que vc está falando..
eu criaria uma macro.. e como seria a "saída ou a entrada dos dados"?
Agradeço a paciência..
gracy mary

Duas perguntinhas:

1 - qual é a versão do Access?
2 - Como é a estrutura das tabelas?

Uma forma de se fazer o que precisas, uma vez que não pretende usar a opção de vincular as tabelas, poderia ser a seguinte: você cria uma tabela vinculada em um dos pcs, depois cria uma consulta adição que vai pegar os dados dessa tabela que não constem na outra e irá acrescentá-lo à essa tabela. Para isso precisamos saber os tipos de campos de chave primária. Os códigos são iguais em todas as tabelas? Se sim, melhor.

1- versão 2003
2- codPac – NumAutom (chave primária)
Paciente – Texto
Tel – Texto
dtCadast – Data/Hora (Agora())
outros campos são todos Texto e/ou data
e há quatro campos Sim/Não
3- Os códigos são iguais em todas as tabelas

Veja um exemplo como eu explanei:
http://dl.dropbox.com/u/5454503/ImportarBanco.zip

Coloque a pasta dentro do C para testar. Se colocar em outro local, terá que revincular as tabelas. No banco Importar tem um formulário com um botão que aciona a consulta aonde tem o parâmetro para importar apenas os novos dados.

Criquio..
vou testar.. com os computadores aqui de casa.. pois nunca vinculei tabelas..
daqui a pouco te dou notícias.. brigadaçooo.. por enquanto...
gracy mary

Certo. Se você não quiser usar uma consulta e uma tabela vinculada e sim importar direto de uma tabela para outra, pode substituir o código do botão por algo assim:

Dim db As DAO.Database
Dim ws As DAO.Workspace
Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset

Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("Caminho da tabela de exportação\Nome do banco.mdb", False, False)
Set rs2 = CurrentDb.OpenRecordset("TabelaDestino")

strSQL = "SELECT * FROM tblExport WHERE Código > " & Nz(DLookup("Código", "TabelaDestino"), 0) & ";"

Set rs = db.OpenRecordset(strSQL)

Do While Not rs.EOF
CurrentDb.Execute "INSERT INTO TabelaDestino(Código, Nome) VALUES('" & rs!Código & "', '" & rs!nome & "')"
rs.MoveNext
Loop
MsgBox "Pronto", , ""

rs.Close
rs2.Close
Set rs = Nothing
Set rs2 = Nothing
Set db = Nothing

Nesse caso não precisa da consulta e nem da tabela vinculada.

Criquio.. deu super certo!!!
Resolvi.. conforme o "exemplo" que vc enviou.. muito bom!.. aprendi "essa coisa de vincular"..rs
não tenho "palavras" pra te agradecer.. "obrigadaço"
gracy mary