如何写通过可变的路径形式？

Question

有一个代码：

 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`"

如何做到这一点吗？ 实质：我在一个地方name of the form注册和各种程序或在程序的好几个地方使用它。

Answer 1

它是：

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