Option Compare Database
Private Sub btn_Search()
Dim strsearch As String
Dim strText As String
strText = Me.txtSearch.Value
strsearch = "SELECT * from tblBookings where ((MemberID like ""*" & strText & "*"") Or (BookingID Like ""*" & strText & "*""))"
Me.RecordSource = strsearch
End Sub
Private Sub txtSearch_AfterUpdate()
Call btn_Search
End Sub
Private Sub txtShowAll_Click()
Dim strsearch As String
strsearch = "SELECT * from tblBookings"
Me.RecordSource = strsearch
End Sub
I have done this for all user accounts and it works perfectly fine. Is there anything I need to change to get my bookings to come up. It only shows bookings where I can click on the next record on the navigation bars. I need it to show up in a list when I click 'show all' button