Inserir Dados em uma Tabela Através do Insert

Prezados,

Preciso do apoio para solucionar problema de Insert into

Eu criei um botão que ao clicar ele pega os valores dos campos do meu formulario e insere dentro de uma tabela, mas que, ao alterar qualquer dado no registro que já foi salvo, ele cria um outro registro ao invés de atualizar os dados do registro já existente. Eu acredito que preciso utilizar Update , mas não sei como faria esse procedimento.

O código que usei no botão foi o seguinte:

Dim salvarleo As String

salvarleo = "INSERT INTO tbl_dados_voos (Termo, data_previsao, linha_saude, perecivel) VALUES (Termo_voo, prev_chegada,inf_ls,inf_per)"

DoCmd.SetWarnings False
DoCmd.RunSQL salvarleo

Alexandre,
Eu fiquei na duvida onde aplicar os codigos.
o botão eu entendi, mas o restante não.

Teria como mandar anexo, o BD que você fez, para que eu possa entender melhor a lógica.?

Desde já antecipo os meus agradecimentos.

Urbano Azevedo

Esse procedimento que você fez, não teria como mandar ele em bd? dai eu aplicaria no meu praticando.

Alexandre
O Update funcionou, porem, é possivel q utilize apenas um botão para no momento da ação identifique se existe o registro? se existir ele atualiza, se não ele cria o registro.

Atte

Urbano Azevedo

No meu caso Alexandre, eu estou pegando os dados de um banco e jogando na tabela de um outro banco, tabela essa que vinculei no banco.


Dados serão transferidos do formulario X que tem numeração automatica, para tabela de um outro banco. nessa transferencia tem que verificar se já existe o numero de registro.
Se existe ele faz apenas um update , do contrario ele faz o insert.

O que preciso é que ele busque dentro da tabela desse outro banco se existe determinaod numeor de registro.

Esse codigo deu certinho:

sSQL = "UPDATE tbl_dados_voos SET "
       sSQL = sSQL & "  Termo = '" & Me.termo_voo & "'"
       sSQL = sSQL & " ,data_previsao = '" & Me.prev_chegada & "'"
       sSQL = sSQL & " ,linha_saude = '" & Me.inf_ls & "'"
       sSQL = sSQL & " ,perecivel = '" & Me.inf_per & "'"
       sSQL = sSQL & " WHERE [reg_coresys] = " & [id_controlevoo] & ""

ele verifica se existe o reg_coresys na tabela, se existe, ele faz update, se não existir ele tem que fazer o insert entendeu?


aTTE.

Urbano Azevedo