[Resolvido]Erro no Exemplo do JPaulo

O exemplo do JPaulo me apresenta erro no link abaixo:

http://maximoaccess.forumeiros.com/t7651-so-salva-se-quiser

Diz erro na função Me.

O access diz que não pode usar a função me. em modulo

estou usando a versão2010..

at.

Tente trocar Me por frm no módulo.

Bom olho vivo;

Código corrigido.

Corrigido.....funcionou.....

Obrigado...Criquio e JPaulo



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



'==================================================================================

'Colar este Porcedimento no Form

Private Sub Form_BeforeUpdate(Cancel As Integer)
Call VerificaAlteracoes(Me)
End Sub

O fórum agradece pelo retorno.