Denilson Roberto de Souza

Boa noite,

Quando seleciono o registro, realizo as alterações e quando clco no botão alterar, ao invés de alterar os dados éle duplica o registro.

Como proceder.

Private Sub AlteraResponsavel_Click()
    Dim db As DAO.Database
    Set db = CurrentDb()
        If IsNull(Id_Responsavel) Or Id_Responsavel.Value = "" Then
        MsgBox "CAMPO NOME de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
        Id_Responsavel.SetFocus
        'Id_Endereco.BackColor = 255 não
        Exit Sub
    End If
    'Set DB = CurrentDb()
    'DB.Execute "update responsavel set id_responsavel " '& "  me.id_abrevResp & " '"
    'DoCmd.RefreshRecord
    DoCmd.RunCommand acCmdRefresh
    'DoCmd.RunCommand acCmdRecordsGoToNew
    MsgBox "Dados alterados com sucesso!"
    
    'DoCmd.RunCommand acCmdRefresh
    'Bloqueia_Responsavel
End Sub

teste.zip