Maybe this is not the code that can trap that error but I can adapt.
Code: Select all
On Error GoTo Employee_Time_AfterUpdate_Error
On Error GoTo 0
Exit Sub
Employee_Time_AfterUpdate_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Employee_Time_AfterUpdate of VBA Document Form_frmEmpHrs"