Проверка ввода дубликата записи - ошибка 3800
|
|
Среда, 10 Июня 2015 г. 16:29
+ в цитатник
Таблица содержит индексируемое поле. Первичный ключ (счетчик) отдельно.
В форме мне надо отлавливать ввод дублирующей записи.
Нашел код на просторах инета.
+ |
Private Sub НомерЭкзЛиста_BeforeUpdate(Cancel As Integer)
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("ВедомостиОценок", dbOpenTable)
rs.Index = "НомерВедомости"
rs.Seek "=", Me.НомерЭкзЛиста
If Not rs.NoMatch Then
MsgBox "Ведомость с таким номером уже существует в базе"
Cancel = True
End If
rs.Close
End Sub
|
Выдает ошибку 3800 НомерВедомости не является индексом данной таблицы.
Даже, если задаю название ключевого поля - ошибка таже.
Где я налажал?
http://www.sql.ru/forum/1160901/proverka-vvoda-dublikata-zapisi-oshibka-3800
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-