我有一个从其他listbox1填充的列表框。用户从列表框中选择数据并单击按钮，这会导致数据在表中被输入。我有一个问题是我不希望再次在表中输入相同的值
一个fiels是一个ID而另一个字段是Text值，只有当两个值都是equla时我才想要弹出一个消息框，说明创建了重复值。
有人可以帮我这个吗？
答案 0 :(得分：0)
您必须将此过程分为两个部分 - 检查重复，然后添加到表中。您可以使用以下内容进行检查，将列表框与文本框进行比较：
Dim text As String
Dim i As Integer
If me.ListBox1.MultiSelect = 0 'only one selection
if me.ListBox1.Value = me.textbox1.value
msgbox "Multiple Values. Please try again", vbOkOnly
End
end if
elseif 'multiple selections
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i)=me.textbox1.value Then
msgbox "Multiple Values. Please try again", vbOkOnly
End
End If
Next i
end if
'现在将行添加到表