[Resolvido]Consulta atualizar com função SE

Boa tarde!

Existe alguma forma de realizar uma atualização de banco de dados caso a chave primaria seja igual, e caso não exista incluir todos os dados da importação na tabela.

Exemplo:

Tenho uma tabela tab_clientes, nela estão os dados de todos meus clientes e para cada um eu tenho um codigo(chave primaria).

No meu trabalho muitas pessoas nem sabem que existe Access, então realizam todo o cadastro em excel.

Assim eu realizaria a importação de excel para o access. Até aqui facil.

Mas queria realizar uma consulta atualização, onde:

Se o valor da chave primaria existir, atualizar todos os dados da importação na tabela X, exceto chave primaria.
Se o valor da chave primaria não existir inserir todos os campos, inclusive a chave primaria.

No meu caso a minha chave primaria é um numero de cliente de 7 digitos. Ex 0200694.


Obrigado pela ajuda

Observação:

Uso Windows 7
Access: 2007

Obrigado!

Estou a utilizar o Access 2003,
Depois de importar os dados para tabela auxiliar, execute código para:
1- actualizar os dados de registos já existentes
Currentdb.execute "UPDATE Tabela1 LEFT JOIN Tabela2 ON Tabela1.campoX=Tabela2.CampoY SET Tabela1.CampoA=Tabela2.CampoB, ..."
2 - acrescentar os dados de registos não existentes
Currentdb.execute "INSERT INTO Tabela1 SELECT * FROM Tabela2 WHERE CampoX NOT IN(SELECT CampoX FROM Tabela1);"

Obrigado Neves,

Irei fazer uns testes aqui e lhe mando um feedback.
Obrigado!

É não deu certo, preciso que atualize somente os campos com chaves primarias iguais.

Não conheço as tabelas nem o código que utilizou, mas se adequar o código que lhe indiquei funcionará:
1- actualizar os dados de registos já existentes
Currentdb.execute "UPDATE Tabela1 LEFT JOIN Tabela2 ON Tabela1.campoX=Tabela2.CampoY SET Tabela1.CampoA=Tabela2.CampoB, ..."

Ok alexandre, deu certo!!

Bom o codigo ficou assim:

CurrentDb.Execute "UPDATE tbl_DB LEFT JOIN tbl_Update ON tbl_DB.Obra = tbl_Update.Obra SET tbl_DB.Obra = tbl_Update.Obra,tbl_DB.Aberto = tbl_Update.Aberto,tbl_DB.QntSegmento = tbl_Update.QntSegmento,tbl_DB.Estimada = tbl_Update.Estimada,tbl_DB.Abertura = tbl_Update.Abertura,tbl_DB.Orcamento = tbl_Update.Orcamento,tbl_DB.Negociacao = tbl_Update.Negociacao,tbl_DB.Aprovacao = tbl_Update.Aprovacao,tbl_DB.Prometida = tbl_Update.Prometida,tbl_DB.Conclusao = tbl_Update.Conclusao,tbl_DB.Total = tbl_Update.Total,tbl_DB.CodCliente = tbl_Update.CodCliente,tbl_DB.NomeCliente = tbl_Update.NomeCliente,tbl_DB.Modelo = tbl_Update.Modelo,tbl_DB.Serie = tbl_Update.Serie,tbl_DB.Setor = tbl_Update.Setor,tbl_DB.Carteira = tbl_Update.Carteira,tbl_DB.Responsavel = tbl_Update.Responsavel,tbl_DB.Status = tbl_Update.Status,tbl_DB.Tipo = tbl_Update.Tipo,tbl_DB.Observacao = tbl_Update.Observacao"

Moderador pode fechar este tópico.