I currently have a continuous form showing all records. I would like to add a combo box to this form to filter out records, but I keep getting 'type mismatch' when I use the following code:
[Private Sub cboFilter_AfterUpdate()
Dim ComboContents As Variant
ComboContents = Me![cboFilter]
If IsNull(ComboContents) Then
Me.FilterOn = False
Else
Me.Filter = "[Raw Material] Like " * " & cboFilter & " * ""
Me.FilterOn = True
End If
End Sub]
If you look at my database. Select Where Used in the main menu and you'll see my combo box there.Project 6 (2).zip