Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: 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
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.