如何通过变量编写表单的路径?

时间:2019-02-03 12:00:06

标签: vba ms-access access-vba

有一个代码:

null

在此代码中,您可以通过变量“ nameField”访问表单字段。
线

 Private Sub Button0_Click()
        Dim nameField  As String
        nameField = "Field0"

        Dim nameForm  As String
        nameForm = "Form1"

        ' DoCmd.OpenForm "Form1"
        DoCmd.OpenForm nameForm

        Forms![Form1](nameField).Text = "Message for `Form1`"

End Sub

问题。
如何通过变量编写表单的路径?
那些。将 Forms![Form1](nameField).Text = "Message for `Form1`" 替换为变量。
例如,类似:

Forms! [Form1]

或类似的东西:

   Dim nameForm  As String
    nameForm = "Form1"
    Forms![nameForm](nameField).Text = "Message for `Form1`"

或确定活动表格并使用它:

   Dim nameForm  As String
    nameForm = "Form1"
    Forms(nameForm)(nameField).Text = "Message for `Form1`"

如何正确处理?
本质:我在 Dim FormActiv As Form Set FormActiv = Screen.ActiveForm nameForm.Name = FormActiv.Name Forms![FormActiv](nameField).Text = "Message for `Form1`" 的一个地方注册,并在各种过程中或过程的多个地方使用它。

1 个答案:

答案 0 :(得分:1)

是:

Forms(nameForm)(nameField).Value = "Message for 'Form1'"