ДОБАВЛЕНИИ НОВЫХ ЗАПИСЕЙ.

Private Sub CodeClient_AfterUpdate()
MsgBox "2.ЗАПИСЬ С КЛЮЧОМ " & vbNewLine + Str(CodeClient) & _
vbNewLine & "УЖЕ ИМЕЕТСЯ", vbOKOnly + vbInformation, "Внимание"
End Sub

Как подавить сообщение Access , выводимое после моего сообщения *

СПАСИБО

авторчто за сообщение?

Изменения не были успешно внесены из-за повторяющихся значений
В индексе, ключевых полях или связях.Измените данные в поле или полях, содержащих повторяющееся значения, удалите индекс или переопределите его, чтобы разрешитьповторяющееся значения, и повторите попытку.

DoCmd.SetWarnings False

Я НА РАСПУТЬЕ ПРИ ДОБАВЛЕНИИ НОВЫХ ЗАПИСЕЙ В ТАБЛИЦУ.
ДЛЯ ЭТОГО СОЗДАНА МНОЙ ФОРМА. На форме имется внизу кнопки навигации, с помощью одной можно поставить курсор на начало новой записи. Потом я к последнему полю прикрепил код события ПОСЛЕ ОБНОВЛЕНИЯ
Private Sub CodeClient_AfterUpdate()
DoCmd.SetWarnings False
MsgBox "2.ЗАПИСЬ С КЛЮЧОМ " & vbNewLine + Str(CodeClient) & _
vbNewLine & "УЖЕ ИМЕЕТСЯ", vbOKOnly + vbInformation, "Внимание"

Попробовал нижеидущие строки, однако сообщение кроме моего Access
ещё своё віводит, приведенное віше
'DoCmd.SetWarnings True
'DoCmd.SetWarnings False

End Sub

Пробовал создал ещё кнопку с Категорией “Обработка записей” и действием “”Добавить запись” , но к успеху не пришёл.

ПОМОГИТЕ С ВВОДОМ ЗАПИСЕЙ В ТАБЛИЦУ Access ИСПОЛЬЗУЯ ФОРМУ

СПАСИБО