Добавление данных в таблицу осуществляется с помощью кнопок на форме: добавить и сохранить. Записи должны быть уникальны.

Код, который прописан на кнопку "добавить":
DoCmd.GoToRecord , , acNewRec

Код, который прописан на кнопку "сохранить":
DoCmd.RunCommand acCmdSaveRecord

При вводе записей ,которые уже существуют в таблице, при нажатии на кнопку "сохранить" выскакивает ошибка: "Error 3022 изменения не были внесены из-за....".

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

Добавление в модуль формы события обработки ошибки:
Private Sub Form_Error(DataErr As Integer, Response As Integer)
' Обработка ошибобк механизма Jet
Select Case DataErr
Case 3022
' Ввод данных некорректного типа
MsgBox "Сохранение записи невозможно" & _
"так как введенная вами запись уже существует в базе данных. Введите новые данные или для отмены нажмите " & _
"клавишу <Esc>.", vbInformation
' Отмена стандартного сообщения об ошибке
Response = acDataErrContinue
Case Else
' Все остальные ошибки мы поручаем
' обрабатывать приложению Access
Response = acDataErrDisplay
End Select
End Sub

не срабатывает.