Forms 按“后删除关键字”；“全部显示”；MsAccess窗体中的按钮

Forms 按“后删除关键字”；“全部显示”；MsAccess窗体中的按钮,forms,ms-access,events,search,keyword-search,Forms,Ms Access,Events,Search,Keyword Search,请不要理会，我刚刚找到了答案： 在我的MsAccess表格中，我目前有： Keywords window - where I can type text to look up records, by the Client Name, Search button - after pressing on it I can see the search results Show All button - after pressing on which I see all the recor

  Keywords window - where I can type text to look up records, by the Client Name,
  Search button - after pressing on it I can see the search results
  Show All button - after pressing on which I see all the records 

Option Compare Database
Option Explicit

Private Sub btn_Search_Click()

Dim strsearch As String
Dim strText As String
strText = Me.TxtKeywords.Value
strsearch = "SELECT * from qry_Clients 
where ((ClientName LIKE ""*" & strText & "*"") OR(MedRecNumber LIKE ""*" & 
strText & "*""))"
Me.RecordSource = strsearch

End Sub

Private Sub btn_ShowAll_Click()

Dim strsearch As String
strsearch = "SELECT * from qry_Clients"
Me.RecordSource = strsearch

End Sub

Private Sub btn_ShowAll_Click():

Me.TxtKeywords = ""