1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12:
Private Sub Form_BeforeUpdate(Cancel As Integer) On Error GoTo Err_Form_BeforeUpdate ....VBA body code here... Exit_Form_BeforeUpdate: Exit Sub Err_Form_BeforeUpdate: MsgBox err.Number & " - " & err.Description Resume Exit_Form_BeforeUpdate End Sub