【发布时间】:2014-02-02 14:51:23
【问题描述】:
我正在尝试创建一个关闭当前表单并打开主表单的宏。
由于我有这么多表单,并且我需要在所有表单中都使用带有此宏的相同按钮,因此我只想创建一次宏,而不是为每个表单分别创建。
有什么办法吗?
【问题讨论】:
-
很难想象你想要做什么。您能否提供一个示例或更好地解释您想要实现的目标?
我正在尝试创建一个关闭当前表单并打开主表单的宏。
由于我有这么多表单,并且我需要在所有表单中都使用带有此宏的相同按钮,因此我只想创建一次宏,而不是为每个表单分别创建。
有什么办法吗?
【问题讨论】:
创建一个代码模块并添加如下函数:
Public Sub CloseMeAndOpenMain(frmMe As Form)
DoCmd.Close acForm, frmMe.Name
DoCmd.OpenForm "frmMain" 'Replace this with the actual name of your Main form
End Sub
现在,每次您有一个按钮应该关闭当前表单并打开“frmMain”表单时,您将编写 click 事件处理程序,如下所示:
Private Sub btnCloseForm_Click()
CloseMeAndOpenMain Me
End Sub
Me是对当前表单的引用,每个表单都有一个Name属性。因此,您可以编写一个函数来关闭它,而无需将名称硬编码为字符串(当然主窗体除外)。
【讨论】: