Here is a sample method of using the On Error
Code:
OpenDatePicker_Error:
Dim DisplayMessage As String
DisplayMessage = Nz(Choose(Application.CurrentObjectType, "Query", "Form", "Report", "Macro", "Module"), "Host")
DisplayMessage = DisplayMessage & vbTab & ": " & Application.CurrentObjectName & vbNewLine
DisplayMessage = DisplayMessage & "Event" & vbTab & ": OpenDatePicker" & vbNewLine
DisplayMessage = DisplayMessage & "Error" & vbTab & ": " & Err & vbNewLine
DisplayMessage = DisplayMessage & "Text" & vbTab & ": " & Error$ & vbNewLine
DisplayMessage = DisplayMessage & vbNewLine & "If this error persists please note down these details together with what you were trying to do and call for technical assistance."
Beep
MsgBox DisplayMessage, vbCritical + vbOKOnly, "An error has occured in "
OpenDatePicker = False
Resume OpenDatePicker_Exit