Private Sub save_Click()
On Error GoTo Err_save_Click
If Nz(Me.[число], "") = "" Then
MsgBox "Нету ничего!", vbCritical
exit sub
end if
me.dirty = false
DoCmd.GoToRecord , , acNewRec
Exit_save_Click:
Exit Sub
Err_save_Click:
Select Case Err.Number
Case 2113
' Ввод данных некорректного типа
MsgBox "Данные должны быт числом", vbCritical, "Не число"
Response = acDataErrContinue
Case 3022
' Ввод повторяющихся даных
MsgBox "Данные уже существуют", vbCritical, "Повтор"
Response = acDataErrContinue
Case 2105
' Не возможен переход на следующую запись
MsgBox "Нет перехода", vbCritical, "Переход"
Response = acDataErrContinue
Case Else
MsgBox Err.Number & " " & Err.Description
End Select
Resume Exit_save_Click
End Sub
|