有一个代码:
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`"
的一个地方注册,并在各种过程中或过程的多个地方使用它。
答案 0 :(得分:1)
是:
Forms(nameForm)(nameField).Value = "Message for 'Form1'"