|
|
|
| Привет всем !
Есть таблица вида : Получатель, Номер счета, Сумма
Как можно наладить контроль, чтобы в таблицу попадала только уникальная комбинация Получатель+Номер счета+ Сумма. Т.е. грубо говоря чтобы пользователь не внес в базу один счет 2 раза . Я использовал след. конструкцию :
Dim answ As Integer
Dim count As Integer
count = 0
answ = DCount("[Получатель]", "Заявки", "[Получатель]=Forms![Заявки]![Получатель]")
If answ > 0 Then count = count + 1
answ = DCount("[Номер]", "Заявки", "[Номер]=Forms![Заявки]![Номер]")
If answ > 0 Then count = count + 1
answ = DCount("[Сумма]", "Заявки", "[Сумма]=Forms![Заявки]![Сумма]")
If answ > 0 Then count = count + 1
If count >= 3 Then
MsgBox "Возможно, такая заявка уже есть в базе", vbCritical
End If
Но меня терзают смутные сомнения. Эта конструкция пока работает Но связку из трех значений она не проверяет . Подскажите плиз другие способы. | |
|
| |
|
|
|
| создать уникальный индекс из 3-х полей (не ключ, а именно уникальный индекс)
деалется это в конструкторе таблиц | |
|
| |