Início
Num modulo novo, cole e salve:
Public Function VerificaAlteracoes(frm As Form) As Integer
'By JPaulo ® Maximo Access
Dim ctl As Control
' A propriedade Dirty é True se o registro for alterado.
If frm.Dirty Then
' Mensagem de pedir confirmação
If MsgBox("Detectada alteração de dados... " & vbCrLf & "Deseja salvar ? ", vbYesNo + vbQuestion, "Alerta") = vbNo Then
'se a resposta for não, desfaz as alterações
frm.Undo
Else
'se for sim, salva as alterações
DoCmd.Save acDefault
End If
End If
End Function
Private Sub Form_BeforeUpdate(Cancel As Integer)
'chamada da função no formulário
Call VerificaAlteracoes(Me)
End Sub
Public Function VerificaAlteracoes(frm As Form) As Integer
'By JPaulo ® Maximo Access
Dim ctl As Control
' A propriedade Dirty é True se o registro for alterado.
If frm.Dirty Then
' Mensagem de pedir confirmação
If MsgBox("Detectada alteração de dados... " & vbCrLf & "Deseja salvar ? ", vbYesNo + vbQuestion, "Alerta") = vbNo Then
'se a resposta for não, desfaz as alterações
frm.Undo
Else
'se for sim, salva as alterações
DoCmd.Save acDefault
End If
End If
End Function
Private Sub Form_BeforeUpdate(Cancel As Integer)
'chamada da função no formulário
Call VerificaAlteracoes(Me)
End Sub
