Today is just not my day for SQL writing apparently.
Filtering the lstContractor listbox via ContractorSearch textbox. This is not working in that the moment you start typing, the listbox becomes blank. I assume I made a mistake in the SQL statement.
Code:
Private Sub ContractorSearch_Change()
Dim strsql As String
strsql = "SELECT tblContractors FROM tblContractors.Contractor"
strsql = strsql & " WHERE Contractor LIKE '*" & Me.ContractorSearch & "*'"
Me.lstContractors.RowSource = strsql
Me.lstContractors.Requery
End Sub
Filtering the lstContractor listbox via ContractorSearch textbox. This is not working in that the moment you start typing, the listbox becomes blank. I assume I made a mistake in the SQL statement.