Also in my form I have a cancel button with the following code:
Expand|Select|Wrap|Line Numbers
- Private Sub cmdCancel_Click()
- On Error GoTo Err_cmdCancel_Click
- If Me.Dirty = True Then
- 'Undo changes:
- DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
- 'Close form:
- DoCmd.Close
- End If
- Exit_cmdCancel_Click:
- Exit Sub
- Err_cmdCancel_Click:
- MsgBox Err.Description
- Resume Exit_cmdCancel_Click
- End Sub
Any hint?
Thanks,