Question

我有一个带有搜索栏和两个按钮的MainMenu。 Button1以仅VIEW模式打开MainForm，Subform1和Subform2，过滤到键入未绑定搜索栏的SchoolID。

我的问题是：当用户通过单击我的CloseFormOpenMainMenu按钮返回MainMenu时，如何清除键入MainMenu搜索栏的内容并清除过滤器？

这是我在MainMenu上的代码：

Private Sub Button1_Click()

Dim txtSearchBar As String
Dim Cancel As Integer

On Error GoTo ErrorBEDSIDSearch

DoCmd.OpenForm "MainForm", , , "SchoolID = " & ("""" & Me.txtSearchBar.Value 
& """"), acFormReadOnly  

Exit Sub

End Sub

这是我在MainForm上的代码：

Private Sub CloseFormOpenMainMenu_Click()

DoCmd.Close
DoCmd.OpenForm "frmMainMenu"

End Sub

如果有帮助，我有“Filter On Load”属性= No，“Filter”属性为空。

Answer 1

您可以使用以下代码从其他表单中清除文本框：

Forms("MainMenu").txtSearchBar.Value = Null

实现：

Private Sub CloseFormOpenMainMenu_Click()

DoCmd.Close
DoCmd.OpenForm "frmMainMenu"
Forms("MainMenu").txtSearchBar.Value = Null

End Sub

关闭表单时如何清除搜索栏文本

1 个答案: