在女士访问表单中按“显示全部”按钮后删除关键字
Posted
技术标签:
【中文标题】在女士访问表单中按“显示全部”按钮后删除关键字【英文标题】: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 = ""
【讨论】:
以上是关于在女士访问表单中按“显示全部”按钮后删除关键字的主要内容,如果未能解决你的问题,请参考以下文章