У меня в таблице составной ключ из 2-х полей.
Как при вводе записей юзером определить , что он ввел уже существующий внешний ключ (ключ состоит из абонентского номера и названия города).
Т.е как опеределить тип ошибки дублирования ключа?

2 ВС

Могут быть ошибки в процедуре разного типа , но мне из них надо выделить и как говорится идентифицировать именно ошибку дублирования ключа.

2 Alexander G
Ты меня понял. Спасибо.

Я остолоп забыл указать, что добавляю запись ч/з DAO.

Как пресечь именно эту ошибку дублирование ключа ч/з DAO?

Спасибо , разобрался!
На форуме подсказали , что нужно использовать err.
Твой пример на "отловить".
Если например юзер вообще не фига не введет в поле тогда код_ошибки 3058. Если надо и ее отловить , тогда.

Public Sub lalala()
On Error GoTo LErr
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Table1")
rst.AddNew
rst![aa] = 1
rst.Update
Exit Sub
LErr:

select case err.Number
case 3022
MsgBox "Что ж ты, гад, делаешь!?Это уже есть!"
case 3058
MsgBox "Ну ты бы ввел хоть что нибудь!"
End select

End Sub

Вот черт! Крышняк едет уже от агентства брачных объявлений.

Пишу в событии формы Form_Error перехват ошибки и фиг не перехватывает, вылезает стандартное сообщение Access "Изменения не были успешно внесены из за повторяющихся значений в индексоах ... трали вали ..."

Форма имеет в качестве источника запрос. Юзер на этой форме должен редактировать записи. И мне надо поймать его на вводе уже существующего значения ключа. Да вот что то закопался.

вот код (хорошие ребята посоветовали)

Private Sub Form_Error(DataErr As Integer, Response As Integer)
If DataErr = 3022 Then
Response = acDataErrContinue
MsgBox "Такой абонентский номер уже существует ..."
End If

В форме использую список для перехода к нужной записи.

После обновления списка вот что работает.

Me.RecordsetClone.FindFirst "[id1] = " & Me![listfio]
Me.Bookmark = Me.RecordsetClone.Bookmark

Кстати индекс составной абонентский номер / название города. Ну это думаю не важно.

Помогите, почему не могу отловить ошибку 3022 дубляжа индекса?

Или спать пора уже ?

2 ВС

Да.

НЕТ.

вот эта строка дает ошибку
Me.Bookmark = Me.RecordsetClone.Bookmark

код в событии form_load при этом не срабатывает.
Может он и не должен срабатывать?

Тьфу ты , в событии form_error

Забыл ВС.

Я уже пробовал.
Вот .
Private Sub listfio_AfterUpdate()
On Error GoTo fuck

Me.RecordsetClone.FindFirst "[id1] = " & Me![listfio]
Me.Bookmark = Me.RecordsetClone.Bookmark


exit_listfio_AfterUpdate:
Exit Sub

fuck:
If Err.Number = 3022 Then MsgBox "Double Key ! "

End sub

2 ВС

Решил по другому "защититься" от действий юзера.

В форме поля абонентского номера и названия города сделал enable=false.
Рядом сделал кнопку " изменить ... " по которой на экране появляется диалоговое окно, где можно указать другой номер и название города. После делаю проверку на поиск дублирования ключа и если есть дублирование предупреждаю юзера. В любом случае он не может ввести существующий уже ключ. Как думаете, тоже вроде выход.