Invalid procedure call or argument error

Question

When pressing a command button the code below is executed, and it results in an error as seen in the picture. In addition, I seem to be the only user with this issue. My coworkers don't mention having this issue. I never had this issue until about a month ago.

Cmd button Code: Private Sub cmdCheck_Click()

On Error GoTo Err_Close_Jobs

Dim i As Integer

' check in our list

If MySel(Me!Cat) Then

' already in list - remove

CheckItems.Remove CStr(Me!Cat)

Else

' not in the list - add it

CheckItems.Add Me!Cat.Value, CStr(Me!Cat)

' Debug.Print CheckItems

End If

Me.ckSel.Requery

Exit_Close_Jobs:

Exit Sub

Err_Close_Jobs:

MsgBox Err.Number & "/" & Err.Description

Resume Exit_Close_Jobs

End Sub

Code:

Public CheckItems As New Collection

Private Sub cmdCheck_Click()

On Error GoTo Err_Close_Jobs

Dim i As Integer

' check in our list

If MySel(Me!Cat) Then

' already in list - remove

CheckItems.Remove CStr(Me!Cat)

Else

' not in the list - add it

CheckItems.Add Me!Cat.Value, CStr(Me!Cat)

' Debug.Print CheckItems

End If

Me.ckSel.Requery

Exit_Close_Jobs:

Exit Sub

Err_Close_Jobs:

MsgBox Err.Number & "/" & Err.Description

Resume Exit_Close_Jobs

End Sub

Answer 1

Check items is a collection. If the item is not in the collection, then a error occurs. You need to change the break mode settings in VBA. Tools->options, general tab, and choose the option "Break on unhandled Errors"

VBA collections don't have a built in function to test for existence in the collection, so error trapping is a workaround for this feature.