Trap Error 2476 Code

[burrina]

I am trying to trap this error unsuccessfully! Here is my code! I still get the same error message; From name is TimeCards



Dim FrmCtxID As Long
Dim ID As Long


FrmCtxID = Screen.ActiveForm.HelpContextId

On Error GoTo Err_Form_Load:

If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "No TimeCards have been found matching your request", vbOKOnly
Cancel = True
End If

If Me.NewRecord = True Then
Exit Sub
End If


End_Form_Load:
Exit Sub

Err_Form_Load:
If Err.Number = 2476 Then
Resume Next
Else

Resume End_Form_Load

Exit Sub
End If

[ketbdnetbp]

burrina -

I might be mistaken but, I looked in my list of trappable errors and didn't see Err 2476 : "The expression refers to an object that is closed or doesn't exist."

So, you may not be able to trap the error. Regardless, you might try to isolate the line in which the error is occurring. If it is: FrmCtxID = Screen.ActiveForm.HelpContextId
and the control "HelpContextId" is on the Main Form then, you might be able to use FrmCtxID = Me.HelpContextId. Otherwise, if that control is on the subform, you may have to refer to it differently or in a more explicit manner.

Hope this helps,

Jim