Форумы HiProg.com - MS ACCESS, VBA, VB

ник: mvo
Обработка ошибок

Private Sub Form_Error(DataErr As Integer, Response As Integer) Select Case DataErr Case 2113 ' Ввод данных некорректного типа MsgBox "Данные должны быт числом", vbCritical, "Не число" Response = acDataErrContinue Case 3022 ' Ввод повторяющихся даных MsgBox "Данные уже существуют", vbCritical, "Повтор" Response = acDataErrContinue Case 2105 ' Не возможен переход на следующую запись MsgBox "Нет перехода", vbCritical, "Переход" Response = acDataErrContinue Case Else Response = acDataErrDisplay End Select End Sub

Кнопка добавления даных

Private Sub save_Click() On Error GoTo Err_save_Click DoCmd.GoToRecord , , acNewRec      Err_save_Click:     If Nz(Me.[число], "") = "" Then         MsgBox "Нету ничего!", vbCritical,     Else     MsgBox Err.Description     End If     Resume Exit_save_Click Exit_save_Click:     Exit Sub End Sub

При добавлении повторяющейся записи выдает ошибку 2105 и стандартный текст ошибки Невозможен переход. Как исправить на свой текст ошибки?