Hi All, I am struggling to get my search as you type text box working.
Below is the code I used. it gives me error on "fLiveSearch Me.txtsearch, Me.1stItems, strFullList, strFilteredList, Me.txtCount, it does not recognize Me.1stItems. which I am not sure where it comes from or what it should do
Private Sub txtSearch_Change()
Dim strFullList As String
Dim strFilteredList As String
If blnSpace = False Then
Me.Refresh
strFullList = "SELECT ID, PartNo, Description FROM StockMaster ORDER BY First;"
strFilteredList = "SELECT ID, PartNo, Description FROM StockMaster WHERE [PartNo] LIKE ""*" & Me.txtsearch.Value & _
"*"" OR [Description] LIKE ""*" & Me.txtsearch.Value & "*"" ORDER BY [PartNo]"
fLiveSearch Me.txtsearch, Me.lstItems, strFullList, strFilteredList, Me.txtCount
End If
End Sub
Below is the code I used. it gives me error on "fLiveSearch Me.txtsearch, Me.1stItems, strFullList, strFilteredList, Me.txtCount, it does not recognize Me.1stItems. which I am not sure where it comes from or what it should do
Private Sub txtSearch_Change()
Dim strFullList As String
Dim strFilteredList As String
If blnSpace = False Then
Me.Refresh
strFullList = "SELECT ID, PartNo, Description FROM StockMaster ORDER BY First;"
strFilteredList = "SELECT ID, PartNo, Description FROM StockMaster WHERE [PartNo] LIKE ""*" & Me.txtsearch.Value & _
"*"" OR [Description] LIKE ""*" & Me.txtsearch.Value & "*"" ORDER BY [PartNo]"
fLiveSearch Me.txtsearch, Me.lstItems, strFullList, strFilteredList, Me.txtCount
End If
End Sub