Botão atualiza insere dados duplicados na tabela

A duvida é simples (eu acho)!

Quando clico em salvar, ou tiro o foco do último campo (são os eventos para salvar os dados na tabela), as informações são enviadas em duplicidade para tabela, ou seja, gera duas informações iguais, sendo certo que preciso que apenas uma seja gerada, por vez.

Formulário: frm_prn_a_receber

Tabela: tbl_prn_a_receber

Alguns campos são calculados e, por isso, desabilitados no formulário. É necessário preencher todos os campos à esquerda, para que os da direita sejam devidamente preenchidos e fiquem não acessíveis.

Segue o DB para análise e ajuda.

Grato!

O Db Não foi anexo

Editei a mensagem, para atualizar o envio!

Aqui esta sendo executado corretamente.

Amigo Crysostomo,

grato pela sua atenção!

Aqui, comigo, ocorre o seguinte (creio q vc tenha visto o VBA):

Quando atualizo o campo (tab), ele executa o

Call salvar_click

Ocorre que, além de jogar informação duplicada na tabela, ele não limpa os campos, como deveria, abrindo um novo registro (DoCmd.GoToRecord , , acNewRec)

Veja os comandos:

Private Sub cbo_via_de_pagamento_LostFocus()

   Call salvar_Click

End Sub

e

Private Sub salvar_Click()

Dim Msg As String
On Error Resume Next

Dim rst1 As Recordset
Dim Sel1 As String


If IsNull(Me.cbo_plataforma_de_venda) Then
   MsgBox "Atenção! Escolha a plataforma de venda!", vbInformation, "Atenção!"
   Exit Sub
End If

If IsNull(Me.data_da_venda_text_box) Then
   MsgBox "Atenção! Preencha a data da venda!", vbInformation, "Atenção!"
   Exit Sub
End If

If IsNull(Me.valor_total_do_pedido_text_box) Then
   MsgBox "Atenção! Preencha o valor da venda!", vbInformation, "Atenção!"
   Exit Sub
End If

If IsNull(Me.cbo_via_de_pagamento) Then
   MsgBox "Atenção! Escolha a via de pagamento!", vbInformation, "Atenção!"
   Exit Sub
End If

   Msg = "Deseja Efetuar o Cadastro?"
   If MsgBox(Msg, vbQuestion + vbYesNo, "Confirme") = vbYes Then
       

       Sel1 = "SELECT * from tbl_prn_a_receber"
       Set rst1 = CurrentDb.OpenRecordset(Sel1)
           
           rst1.AddNew
               rst1![Plataforma_de_Vendas] = cbo_plataforma_de_venda
               rst1![Data_da_venda] = data_da_venda_text_box
               rst1![Valor_dos_itens] = valor_total_do_pedido_text_box
               rst1![Taxa_de_entrega] = taxa_de_entrega_text_box
               rst1![Desconto_do_restaurante] = desconto_do_restaurante_text_box
               rst1![Incentivos_da_plataforma] = incentivos_ifood_text_box
               rst1![Via_de_Pagamento] = cbo_via_de_pagamento
               rst1![Data_do_repasse] = data_do_repasse_text_box
               rst1![valor_do_repasse] = valor_do_repasse_text_box
               rst1![comissão] = comissão_text_box
               rst1![taxa_de_transação] = taxa_de_transação_text_box
   
           rst1.Update
           rst1.Close
       
                     
       MsgBox "Registro Adicionado Com Sucesso!", , "Atenção!"
       
       Exit Sub
   End If
 
       DoCmd.GoToRecord , , acNewRec
       Me.[cbo_plataforma_de_venda].SetFocus
 
End Sub




Se puder me ajudar, fiz uma alteração no VBA, mas nada foi alterado quanto ao resultado.

Verifique nesse arquivo novo se, ao adicionar um registro, ele não adicionará as IDs 129 e 130, na tabela tbl_prn_a_receber.

Mais uma vez, grato pela ajuda!

Olá Clauger,

Baixei seu exemplo e tomei a liberdade de realizar algumas modificações para sanar o problema e deixar a rotina mais segura.
Assim que eu terminar eu disponibilizo para sua avaliação.
OBS: Estou colocando os comentários no código para vc entender o que cada rotina realiza.

É isso.

Valeu

Att,

Alexandre Fim

Obrigado, Alexandre!!!!