Access - problema en evento

tengo un evento en un campo [mon1] que compara el valor con un campo independiente del mismo form y según sea = < o > debe lanzar un msgbox sin embargo no lo hace, alguna idea?

este es el codigo

Private Sub mon1_LostFocus()
If mon1.Value = m1.Value Then
MsgBox "el importe a aplicar es igual que la deuda", vbCritical, "AVISO"""
End If
End Sub

PEGA ESTO

Private Sub mon1_LostFocus()
If mon1 = Me.m1 Then
MsgBox "el importe a aplicar es igual que la deuda", vbCritical, "AVISO"""
End If
End Sub

QUIQUE

El codigo de las dos formas debe funcionar bien, solo cuando el monto "m1" sea igual al monto "mon1" debe lanzar tu mensaje.....

Ahora si el codigo lo copiaste y pegastes directamente, en algunas ocaciones access no lo toma, para ello debes Compactar y Reparar.....

Mi Pregunta es....??
Para que avisarle MsgBox "el importe a aplicar es igual que la deuda", vbCritical, "AVISO"""
si no le vas a dar chance de modificar la accion, puesto que al cerrar el msgbox salta al proximo registro..... Yo creo que lo logico seria darle dos opciones a elegir... no crees..???

Prueba asi...

Private Sub mon1_BeforeUpdate(Cancel As Integer)
If Me.mon1 = Me.m1 Then
If MsgBox("el importe a aplicar es igual que la deuda " & vbCrLf & _
"Es decir = " & Format([m1], "#.,00") & " " & vbCrLf & _
"Desea modificarlo........", vbCritical + vbYesNo, "L E E M E . . .") = vbYes Then
Cancel = True
End If
End If
End Sub

Desde Venezuela
Jefferson