1

我在打开我的主页表单的模块中有一个函数：

Function goto_home()
    Dim stDocName As String

    'DoCmd.Close acForm, "CallingForm.Name" , acSaveYes
    stDocName = "home_page"
    DoCmd.OpenForm stDocName
End Function

它在一个模块中，因为我在所有使用代码的表单上都有命令按钮，而不是在每个表单对象中复制它。

我的代码中的注释行应该在打开主页之前关闭调用表单。如果我是从我会使用的表单对象me.form.name执行此操作，但您不能在模块中执行此操作。

是否有允许引用调用表单的等效模块语法？

4

1 回答 1

3

您始终可以在函数中传递表单名称，例如：

Function goto_home(frmName As String)

Dim stDocName As String
Dim stLinkCriteria As String

    DoCmd.Close acForm, frmName , acSaveYes
    stDocName = "home_page"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

End Function

然后，当您从每个表单调用它时，您可以将表单的名称放在调用参数中。

于 2012-12-28T14:08:55.953 回答