ник: Romiras
любите хелп - источник данных
оттуда содранно и адаптированно 
Select Case Err.Number
Case 3163 'length error
Call CtlLenghtError_eng(Me, strWork)
Exit Sub
Case 3421 'data error
Call CtlDateError_eng(Me, strWork)
Exit Sub
End Select
|
при нажатие на кнпоку выполнить т.е. заносятся данные в таблицу