如何跳过一个文本框，检查复选框的值？

Question

我有多个文本框，组合框，复选框等 一个窗体我已经写了代码，以检查是否值为null用于控制 - 文本框&组合框 - 比端子

Dim ctrl As Control 
Dim msg1 As String 
Dim msg2 As String 
Dim msg As String 

With Me 
For Each ctrl In NewJoinerEntry.Controls 

    Select Case TypeName(ctrl) 
     Case "TextBox" 
      If ctrl.Text = "" Then msg1 = "TextBox" 
     Case "ComboBox" 
      If ctrl.ListIndex = -1 Then msg2 = "ComboBox" 
     Case Else 
    End Select 

Next ctrl 
msg = "Please enter complete details in " & msg1 & " & " & msg2 & "." 

If msg = "" Then 
    .Hide ' hide the userform only if no empty textboxes and/or comboboxes 
Else 
    MsgBox msg 
    Exit Sub 
End If 
End With 

上面的代码是工作很好，但 - 在用户表单中有一个文本框，只有当复选框值为yes时才会被激活。

上面的代码是要求为该文本框输入值。想要从正在检查空白值的循环中删除该文本框。

Answer 1

忽略未.Enabled控制：

For Each ctrl In NewJoinerEntry.Controls 

    If ctrl.Enabled Then 
     Select Case TypeName(ctrl) 
      Case "TextBox" 
       If ctrl.Text = "" Then msg1 = "TextBox" 
      Case "ComboBox" 
       If ctrl.ListIndex = -1 Then msg2 = "ComboBox" 
      Case Else 
     End Select 
    End If 
Next ctrl 

通过添加For Each循环内的If ctrl.Enabled逻辑，我们简单地指示代码绕过/忽略这是不Enabled=True任何控制。根据需要进行微调或修改。

你或许应该如下面还要修改：

msg = msg1 & " & " & msg2 

If msg = "" Then 
    .Hide ' hide the userform only if no empty textboxes and/or comboboxes 
Else 
    MsgBox "Please enter complete details in " & msg & "." 
    Exit Sub 
End If