how to do error handling in access vba
1 Sub|Function SomeName()
2 On Error GoTo Err_SomeName ' Initialize error handling.
3 ' Code to do something here.
4 Exit_SomeName: ' Label to resume after error.
5 Exit Sub|Function ' Exit before error handler.
6 Err_SomeName: ' Label to jump to on error.
7 MsgBox Err.Number & Err.Description ' Place error handling here.
8 Resume Exit_SomeName ' Pick up again and quit.
9 End Sub|Function
Dim Msg
On Error GoTo errorhandling ' Defer error handling.
' code goes here, where potential problem occours
errorhandling:
' Check for error, then show message.
If Err.Number <> 0 Then
Msg = "Error # " & Str(Err.Number) & " was generated by " _
& Err.Source & Chr(13) & Err.Description
MsgBox Msg, , "Error", Err.Helpfile, Err.HelpContext
Err.Clear
End If