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