Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: Lukas
Private Sub Form_Error(DataErr As Integer, Response As Integer) Select Case DataErr Case Is = 2113 ' Возможны и другие MsgBox "Неправильно введено значение даты", vbInformation, Me.Caption Response = acDataErrContinue Case Else Response = acDataErrDisplay End Select End Sub
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.