Botão Alterar está duplicando cadastro

[MORDOMO 0]

Boa tarde,

Tenho uma tela de cadastro de clientes, e nela tem os botões, Incluir, Confirmar, Limpar, Alterar e Excluir. Acontece que quando clico no botão Alterar, para fazer alguma alteração no cadastro do cliente, ele está duplicando. Enfim, ao invés de apenas atualizar a alteração, está cadastrando de novo.

Exemplo: Clico no botão Alterar, e os textbox ficam liberados para alterações. Depois que faço alguma alteração, clico no botão Confirmar, para atualizar os dados.

O código do botão Alterar é este:

Private Sub cmdAlterar_Click()
txtRaz.BackColor = &H80000005
txtFan.BackColor = &H80000005
txtEnd.BackColor = &H80000005
txtNum.BackColor = &H80000005
txtBai.BackColor = &H80000005
txtCid.BackColor = &H80000005
cmbEst.BackColor = &H80000005
txtCep.BackColor = &H80000005
txtCnpj.BackColor = &H80000005
txtIe.BackColor = &H80000005
txtTel.BackColor = &H80000005
txtObs.BackColor = &H80000005

txtRaz.Enabled = True
txtFan.Enabled = True
txtEnd.Enabled = True
txtNum.Enabled = True
txtBai.Enabled = True
txtCid.Enabled = True
cmbEst.Enabled = True
txtCep.Enabled = True
txtCnpj.Enabled = True
txtIe.Enabled = True
txtTel.Enabled = True
txtObs.Enabled = True
cmdConfirmar.Enabled = True
txtRaz.SetFocus
End Sub

O código do botão Confirmar é este:

Private Sub cmdConfirmar_Click()

If txtRaz.Text <> "" Then
RS.AddNew
RS!cod = txtCod.Text
RS!datcad = Date
RS!raz = txtRaz.Text
RS!fan = txtFan.Text
RS!End = txtEnd.Text
RS!num = txtNum.Text
RS!bai = txtBai.Text
RS!cid = txtCid.Text
RS!est = cmbEst.Text
RS!cep = txtCep.Text
RS!CNPJ = txtCnpj.Text
RS!Ie = txtIe.Text
RS!tel = txtTel.Text
RS!obs = txtObs.Text
RS.Update

RS_CONF.FindFirst "cod_cli=" & RS_CONF!cod_cli
RS_CONF.Edit
RS_CONF!cod_cli = txtCod.Text

RS_CONF.Update

cmdLimpar_Click
Else
MsgBox "Preencha os campos para o cadastro!", vbInformation + vbOKOnly, "FF Express"
txtRaz.SetFocus
End If

End Sub

Aguardo ajuda de vocês.

[Dan Borges 26]

O erro pode estar no método Update, você já verificou? Faça um breakpoint

[MORDOMO 0]

Bom dia Dan Borges,

 

Sou leigo em VB e ainda estou aprendendo. Não sei como resolver esta situação.

[Dan Borges 26]

Olá.

 

Então, no botão de confirmar, você atualiza as informações chamando alguns métodos Update, não é isso?

 

RS.Update

RS_CONF.Update

 

O erro pode estar em um destes métodos, provavelmente numa instrução SQL. Dá uma conferida.

 

O breakpoint que mencionei, é um ponto que você adiciona e que serve para dar uma parada na execução do programa a procura de erros: