Pop Message Box Warning

[data808]

I wanted to make a pop up message box that warns the user if they make a change to an existing record it asks them if they are sure they want to change 1234 to 5678 (for example). If they click yes, then it will keep the changes. If they click no, it goes back to what it was. I want it for the entire form. If a new record is being entered then I do not want this message box to show up. Does anyone know the code for this? Can I just put the code in before update event?

[data808]

I found this code but I get a compile error. I copied it from a forum so I don't know if I have to edit some of the code to fit my form. Here it is:

Private Sub Form_BeforeUpdate(Cancel As Integer)

'confirm with user that this record is to be modified

Dim updRecord As Byte

On Error GoTo Form_BeforeUpdate_Error

updRecord = MsgBox("Confirm record change", vbOKCancel, "Record
Modification ")"

If updRecord = vbCancel Then
Cancel = True

End If

'Dim priordate As Variant
'Dim prioruser As Variant
Me!DateModified = Now()
Me!UserModified = CurrentUser()

On Error GoTo 0
Exit Sub

Form_BeforeUpdate_Error:

MsgBox "Error " & Err.Number & " (" & Err.Description & ") in"
procedure Form_BeforeUpdate of VBA Document Form_Customers"
End Sub

[lfpm062010]

What is the error on what line?

This is Form "BeforeUpdate" event code based on the sub name.

If you don't have this two created ("DateModified" and "UserModified") on the form will cause error.

And change this MsgBox line to this
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Form_BeforeUpdate of VBA Document Form_Customers"

[data808]

Found another code that works but I need some help on it. I'll later today. Thanks.

[data808]

Never mind. The one I found seems to work. Thanks very much for your help anyway.