使用1表单的内容将焦点设置为另一种形式的字段

Question

我有一个表需要操作多个字段的内容。我编写了代码来进行操作，但希望它能在许多领域执行。我已经设置了另一个表，其中包含需要更改的字段的名称，然后想要使用它来设置下一个需要检查的字段名称。 我试过了

Dim FieldName  As Control 
Dim FieldName1  As String
DoCmd.OpenForm "FieldsForm", acNormal, "", "", , acNormal
DoCmd.GoToRecord , Fields, acFirst
FieldName1 = Forms!FieldsForm.Field
FieldName = FieldName1

它出现了错误 对象变量或未设置块变量

Answer 1

不清楚应该对字段中的数据做什么，这是一个示例 - 您从另一个表单中读取目标字段名称，然后使用此名称访问当前表单上的字段，将焦点设置为此字段并更改值：

Dim FieldControl  As Control
Dim FieldName  As String

DoCmd.OpenForm "FieldsForm"
DoCmd.GoToRecord , , acFirst

'read target field name from textbox with name "FieldReference"
FieldName = Forms!FieldsForm.FieldReference.Value

'get the control by name
Set FieldControl = Me.Controls(FieldName)

'Now you can operate with target control
FieldControl.SetFocus
FieldControl.Value = "some data"