Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: Контроль уникальности записи (2003)
 
 автор: al hombre   (17.07.2007 в 12:04)   личное сообщение
 
 

Привет всем !
Есть таблица вида : Получатель, Номер счета, Сумма
Как можно наладить контроль, чтобы в таблицу попадала только уникальная комбинация Получатель+Номер счета+ Сумма. Т.е. грубо говоря чтобы пользователь не внес в базу один счет 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

Но меня терзают смутные сомнения. Эта конструкция пока работает Но связку из трех значений она не проверяет . Подскажите плиз другие способы.

  Ответить  
 
 автор: osmor   (17.07.2007 в 12:07)   личное сообщение
 
 

создать уникальный индекс из 3-х полей (не ключ, а именно уникальный индекс)
деалется это в конструкторе таблиц

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList