Private blnSaved As Boolean Private Sub Form_BeforeUpdate(Cancel As Integer) If blnSaved = False Then Cancel = True Me.Undo Cancel = False End If End Sub Private Sub Form_Current() blnSaved = False End Sub Private Sub btnOK_Click() blnSaved = True MsgBox "Changes saved!" End Sub Private Sub btnCancel_Click() DoCmd.Close End Sub
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.