在女士访问表单中按“显示全部”按钮后删除关键字

Posted 2023-05-07

【中文标题】在女士访问表单中按“显示全部”按钮后删除关键字

【英文标题】：Erasing keywords after pressing "Show All" button in MsAccess Form

【发布时间】：2018-07-11 01:15:37

【问题描述】：

请忽略，刚刚找到答案：

在我目前的 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 records 

目前，按下全部显示后，我在关键字窗口中输入的内容都会保留在那里。我希望每次按全部显示按钮

时都会删除关键字

有可能得到这样的结果吗？ 如果是，我该怎么做或 - 我如何修改我的事件程序？

以下是我的事件过程代码： btn_Search_Click() - 按某些关键字搜索 btn_ShowAll_Click() - 显示所有记录

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

谢谢！

【问题讨论】：

@WolfgangK - 我刚刚修改了原始帖子，以包含我的事件过程的代码。谢谢！

【参考方案1】：

对不起，我刚刚找到了答案！ 为了能够在点击“显示全部”按钮后清除文本框， 我必须将最后一个字符串添加到我的

Private Sub btn_ShowAll_Click():

Me.TxtKeywords = ""