访问 vba 将变量传递到代码中

Question

我在 Access 07 中试图将变量传递给一行代码。目的是创建一个字段名称数组，然后循环遍历该数组，对每个字段执行相同的操作。我已经简化了它以避免数组或循环的任何潜在问题。 在我熟悉的任何其他语言中，它都非常简单，但我似乎无法在 VB 中对其进行格式化。

Me.FeildName.Locked = True

将是静态代码，我认为可变代码看起来像这样：

Dim Temp as String
Temp="FieldName"
Me.[Temp].Locked = True

但它一直给我一个错误，说“找不到字段'|'在您的表达式中引用”，因此它不是读取变量的值。
如何让它读取命令中的变量？

或者，我尝试将字符串连接成一行代码：

Dim CodeLine As String
Dim TestName As String
TestName = "FieldName"
CodeLine = "Me.[" & TestName & "].Locked = True"

这会创建一个看起来像函数式代码的字符串，但我将如何运行它？

谢谢

Answer 1

如果Me是一个表格，你需要

Temp = "FieldName"
Me.Controls(Temp).Locked = True

Answer 2

Dick Kusleika 的回答是要走的路，但为了完整起见，您也可以这样做：

For i = LBound(strControlNames) To UBound(strControlNames)
    CallByName Forms![MyFormName].Controls(strControlNames(i)), "Locked", VbLet, "True"
Next

strControlNames 将是包含您的控件名称的数组。