runtime error on drop down

[boehnc]

Im trying to run two drop downs on a form based off one table. The first one seems to be working, the second give me a runtime 2001 error in the Me.Filter = sFilter in the cmbfindcompleted sub. It is a checkbox on the form. I can get the "yes" and "no" in the combo box, but when I choose one, it gives me the error. Any suggestions?

Private Sub cmbfindreviewer_AfterUpdate()

Dim sFilter As String
sFilter = "[RN]= '" & Me.cmbfindreviewer & "'"
Me.Filter = sFilter
Me.FilterOn = True
End Sub

Private Sub cmbfindcompleted_AfterUpdate()

Dim sFilter As String
sFilter = "[Verified]= '" & Me.cmbfindcompleted & "'"
Me.Filter = sFilter
Me.FilterOn = True
End Sub

 

[SydneyGeek]

A checkbox usually represents a Yes/No field, which is a number, not text. (Yes is -1, No is 0). So change the second sub to...

Private Sub cmbfindcompleted_AfterUpdate()
 
  Dim sFilter As String
  sFilter = "[Verified]= " & Me.cmbfindcompleted
  Me.Filter = sFilter
  Me.FilterOn = True
End Sub

Denis