JaxUniverse.Jack1
New member
- Local time
- Today, 00:27
- Joined
- Nov 2, 2018
- Messages
- 1
Hey World...
My brain isnt working today.
How do I do this in my db?
I want the search in the second tab, "Page 24."
This is the video I found this on.
youtube[DOTCOM]/watch?v=3cJinHSSkuI
Below is the code in question posted from the desc. of the YT video.
Private Sub txtProperty_Change()
On Error GoTo Err_txtProperty_Change
Dim strSource As String
strSource = "SELECT OrderNumber, Address, City, ZipCode, OrderRowID " & _
"FROM tblOrders " & _
"Where address Like '*" & Me.txtProperty.Text & "*' " _
& "Or City Like '*" & Me.txtProperty.Text & "*' " _
& "Or ZipCode Like '*" & Me.txtProperty.Text & "*' " _
& "Or OrderNumber Like '*" & Me.txtProperty.Text & "*' "
Me.lstSearchResults.RowSource = strSource
Exit_txtProperty_Change:
Exit Sub
Err_txtProperty_Change:
MsgBox Err.Number & " " & Err.Description
Resume Exit_txtProperty_Change
My brain isnt working today.
How do I do this in my db?
I want the search in the second tab, "Page 24."
This is the video I found this on.
youtube[DOTCOM]/watch?v=3cJinHSSkuI
Below is the code in question posted from the desc. of the YT video.
Private Sub txtProperty_Change()
On Error GoTo Err_txtProperty_Change
Dim strSource As String
strSource = "SELECT OrderNumber, Address, City, ZipCode, OrderRowID " & _
"FROM tblOrders " & _
"Where address Like '*" & Me.txtProperty.Text & "*' " _
& "Or City Like '*" & Me.txtProperty.Text & "*' " _
& "Or ZipCode Like '*" & Me.txtProperty.Text & "*' " _
& "Or OrderNumber Like '*" & Me.txtProperty.Text & "*' "
Me.lstSearchResults.RowSource = strSource
Exit_txtProperty_Change:
Exit Sub
Err_txtProperty_Change:
MsgBox Err.Number & " " & Err.Description
Resume Exit_txtProperty_Change