我有3个comboBoxes,它们具有相同的输入列表 在这些框中,不允许双打作为答案。允许2个没有输入的框,但是要注意的是2个框具有相同的值(空白),因此我想排除空框(无输入)来检查双打。
我不是程序员,剪切粘贴是我的工具。
代码: '检查输入的3x ComboBox是否不包含双打
If Trim(Me.ComboBox1.Value) = (Me.ComboBox2.Value) Then
Me.ComboBox1.SetFocus
MsgBox "Duplicate input in box 1 a 2"
Exit Sub
End If
If Trim(Me.ComboBox1.Value) = (Me.ComboBox3.Value) Then
Me.ComboBox1.SetFocus
MsgBox "Duplicate input in box 1 a 3"
Exit Sub
End If
If Trim(Me.ComboBox2.Value) = (Me.ComboBox3.Value) Then
Me.ComboBox3.SetFocus
MsgBox "Duplicate input in box 2 a 3"
Exit Sub
End If
当框2和3留空时,不应有重复输入的消息
答案 0 :(得分:0)
如何在您的IF语句中添加第二个条件:
If Trim(Me.ComboBox2.Value) = (Me.ComboBox3.Value) and (Me.ComboBox3.Value)<>"" Then