Expand|Select|Wrap|Line Numbers
- Private Sub Find_by_Facility_Click()
- Dim Searchstrg As String
- Searchstrg = InputBox("Facility to Search")
- Me.Filter = "[Facility Name] Like '*" & Searchstrg & "*'"
- Me.FilterOn = True
- Remove_Filter.Visible = True
- End Sub
Expand|Select|Wrap|Line Numbers
- Private Sub Find_by_Facility_Click()
- Dim Searchxyz As String
- Searchxyz = InputBox("Facility to Search")
- Me.Filter = "[Facility Name1] Like '*" & Searchxyz & "*'"
- Me.FilterOn = True
- Remove_Filter1.Visibile = True
- End Sub
But the code in the second form gives me an error - "object or event does not support the set of events".
Can anyone help me figure out what's going on here?