在MS Access中,有两种打开新表格的方法:
DoCmd.OpenForm "myForm"
-打开表单的“默认实例”
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