vba - 使用 Microsoft Access Form 的 New 运算符创建多个非默认实例

Question

我有一个名为frmProducts. 要同时显示 2 个产品，我需要此表单的 2 个实例。我也有frmMembers,,, frmOrders....

用它的名字创建一个打开的表单的新实例的一般方法是什么？

唯一的工作方式是：

dim frm As Object
Set frm = New Form_frmProducts

但是以下代码都不起作用（它们都是错误）：

Function duplicateOpenedForm(ByVal frmOpened As Object)

  Set duplicateOpenedForm = New "Form_" & frmOpened.Name

  Set duplicateOpenedForm = New Forms(frmOpened.Name)

  Eval "Set duplicateOpenedForm = New Form_" & frmOpened.Name

  Set duplicateOpenedForm = Eval("New Form_" & frmOpened.Name)

End Function

请给你一个方法？

标签： vbams-accessms-access-2010ms-access-forms