如何创建一个名称在字符串中的新表单实例?

时间:2019-05-08 14:40:04

标签: vba ms-access access-vba

在MS Access中,有两种打开新表格的方法:

  1. DoCmd.OpenForm "myForm"-打开表单的“默认实例”

  2. Set frm = New Form_myForm : frm.Visible = True-打开表单的 new 实例。

我需要使用第二个选项,因为我想打开myForm的多个实例。 (如果您不熟悉它,可以在here中找到有关此技术的更多详细信息。)

如果表单名称仅作为字符串提供,我该怎么办?即,我需要编写一些库方法

Sub OpenAnotherInstanceOfForm(ByVal formName As String)
    Dim frm As Form ' or Object, late binding is fine for me in this case

    Set frm = ... ' <-- What goes here?
    frm.Visible = True

    ... ' Persist the object reference, so that frm stays open. I know how to do that.
End Sub

这是我已经尝试过的:

  • Set frm = CreateObject("Form_" & formName)-运行时错误429
  • Set frm = Eval("New Form_" & formName)-运行时错误2482

0 个答案:

没有答案