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

问题描述

我有一个名为 frmProducts 的 Microsoft Access 表单。要同时显示 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

请给你一个方法？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）