ACCESS VBA Предотвращение создания дублирующихся значений на основе двух критериев

Question

У меня есть список, который заполняется из другого списка1. Пользователь выбирает данные из списка и нажимает кнопку, в результате чего данные вводятся в таблицу. У меня есть одна проблема, я не хочу, чтобы те же значения были введены в таблицу снова, это

Одно поле - это идентификатор, а другое поле - текстовое значение, и только когда оба значения равны, я хочу, чтобы всплыло окно с сообщением о создании дублированного значения.

Может ли кто-нибудь помочь мне в этом?

Answer 1

Вам придется разделить этот процесс на два раздела - проверка на дублирование, а затем добавление в таблицу. Вы можете проверить с помощью следующего, который сравнивает список с текстовым полем:

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

'теперь добавьте строки в таблицу