关闭当前表单并在Access中打开另一个表单？

Question

我正在尝试创建一个关闭当前表单并打开主表单的宏。

由于我有这么多表单，并且我需要在所有表单中使用相同的按钮，我想创建一个宏，而不是单独创建每个表单。

有没有办法这样做？

Answer 1

创建代码模块并添加以下函数：

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属性。因此，您可以编写一个函数来关闭它，而不必将名称硬编码为String（主要表单当然除外）。