[Resolvido]Identificar se houve alteração de dados no registro

Olá
Amigos

Num Botão de um FormsSimples, tenho o seguinte código:

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim i As Integer
Dim sMsg As String
Beep
sMsg = "Deseja salvar as alterações?"
i = MsgBox(sMsg, vbYesNo, "Salvar alterações")
If i = vbNo Then
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
End If
End Sub

É possível fazer com que a MsgBox só apareça só se for feita alguma alteração de dados?

Obrigado

Luiz Gustavo

Olá

Como você colocou no evento BeforeUpdate, a mensagem só vai aparecer se houver alteração no registro.

Pode usar If Form.Dirty para condicionar a mensagem ao estado de edição do registro.

Olá
Norbs

Mudei o código para um botão e alterei conforme sua sugestão, mas mesmo não fazendo alterações, está abrindo a MsgBox. Ficou assim:

Private Sub Comando70_Click()
Dim i As Integer
Dim sMsg As String
sMsg = "Deseja salvar as alterações?"
i = MsgBox(sMsg, vbYesNo, "Salvar alterações")
If Form.Dirty Then
Beep
If i = vbNo Then
DoCmd.RunCommand acCmdUndo
Else
DoCmd.RunCommand acCmdSaveRecord
End If
End If
DoCmd.Close
End Sub

Onde estou errando?

Obrigado

Não testei aqui, mas não deveria mostrar a MsgBox se não houve alteração.
Tem certeza que não alterou algo no registro quando testou?

Private Sub Comando70_Click()
Dim i As Integer
Dim sMsg As String
sMsg = "Deseja salvar as alterações?"
i = MsgBox(sMsg, vbYesNo, "Salvar alterações")
If Me.Dirty Then
 Beep
 If i = vbNo Then
  DoCmd.RunCommand acCmdUndo
 Else
  DoCmd.RunCommand acCmdSaveRecord
 End If
End If
DoCmd.Close
End Sub

É isto aí Amigão.

Havia um comando em um dos campos (Ao sair me.x = me.y)

Obrigado pela Ajuda.

Abraços