能否用变量作为表单字段名？表单验证循环聚焦问题咨询

当然可以用变量来动态引用表单里的控件（字段）名称！你卡在Me.vItem.SetFocus这一步，是因为VBA不支持直接把变量名当作控件的引用语法，得通过表单的Controls集合来动态访问控件。

核心解决方法 #

把Me.vItem替换成Me.Controls(vItem)，其中vItem是你数组里存储的控件名称字符串。Controls集合允许我们通过控件的名称（字符串）来定位到对应的控件实例，这样就能正常调用SetFocus方法了。

完整示例代码 #

假设你有一个存储字段名称的数组，循环验证每个字段是否为空的代码可以这么写：

Private Sub cmdValidate_Click()
    Dim fieldNames As Variant
    Dim vItem As Variant
    
    ' 替换成你实际的表单控件名称数组
    fieldNames = Array("txtUsername", "txtPassword", "txtEmail")
    
    For Each vItem In fieldNames
        ' 检查控件是否存在（可选但推荐，避免拼写错误导致的报错）
        If Not Me.Controls.Exists(vItem) Then
            MsgBox "控件 " & vItem & " 不存在！", vbCritical
            Exit Sub
        End If
        
        ' 验证字段是否为空（Trim去除首尾空格，& ""避免控件值为Null时报错）
        If Trim(Me.Controls(vItem).Value & "") = "" Then
            MsgBox "请填写「" & vItem & "」字段！", vbExclamation
            Me.Controls(vItem).SetFocus ' 正确定位到目标控件
            Exit Sub ' 中断循环，优先处理当前未填写的字段
        End If
    Next vItem
    
    ' 所有字段验证通过后的逻辑
    MsgBox "表单验证通过！", vbInformation
End Sub

额外注意事项 #

• 确保数组中的字符串和控件的Name属性完全匹配：控件的Name属性是关键，不是显示的Caption，一定要核对准确。
• 兼容不同控件类型：如果数组里包含文本框、组合框等不同类型控件，可以先判断类型再处理，比如：

  If TypeOf Me.Controls(vItem) Is TextBox Or TypeOf Me.Controls(vItem) Is ComboBox Then
      ' 执行验证逻辑
  End If
  

• 子表单的情况：如果控件在子表单里，需要调整引用路径为Me.子表单名称.Form.Controls(vItem)。

内容的提问来源于stack exchange，提问作者SidCharming