Joe Hecht
jmhla at earthlink.net
Mon Apr 5 22:18:28 CDT 2004
This code is supposed to
1. Confirm this is an existing record
2. If the form is dirty
Open a message box
I need vb yes. I want to go to the next record.
Can not find the right method
Thanks
Joe
Private Sub Form_Dirty(Cancel As Integer)
if me.newrecord = false and
If Me.Dirty Then
Dim lngRetval As Long
lngRetval = MsgBox( _
"Data on this form has changed! " & vbCrLf & "" & vbCrLf & "Do
you wish to continue?", _
vbYesNoCancel + vbQuestion + vbSystemModal + vbDefaultButton1, _
"Data Has Changed")
Select Case lngRetval
Case vbYes
Add New RECORD
Case vbNo
Forms!frmmasterAddresses!txtLastName.SetFocus
Case vbCancel
End Select
End If
End Sub