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

ник: Kaktus
Уважаемые знатоки!
когдато была наривона база, на форме висят несколько кнопок: сохранить, просмотр отчета, печать отчета, и отправка отчета по почте.
все кнопки вешались стандартными способами (мастерами) без излишеств.........
но недавно, точнее сегодня, выплыла досаднная недоработка..........
дело в том что на форме есть поля обязательные к заполнению, а так как юзеры народ не очень дисциплинированный то бывает что их не заполняют и при сохранении выскакивает ошибка.........
но эта ошибка выскакивает только при сохранении а не при отправке отчета, который данные берет из формы а не из таблицы (ну так уж сделано,и переделывать не хочется).........
и соответственно отчет отправляется а юзеры потом запись с ошибкой не переделывают а тупо закрывают не читая ругательства компьтера, и как результат документ пошел а в архиве такой записи НЕТ................
Внимание: вопрос!.............
пытался на кнопку "отправки" дописать чтобы она вначале сохраняла запись а уж потом делала отчет............если при сохранеии возникала ошибка то процедура бы прекращалась...........
вот листинг "сохранения"

Private Sub Сохранить_Click() On Error GoTo Err_Сохранить_Click     DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 Exit_Сохранить_Click:     Exit Sub Err_Сохранить_Click:     MsgBox Err.Description     Resume Exit_Сохранить_Click      End Sub

а вот листинг "Отправки отчета"

Private Sub Кнопка237_Click() On Error GoTo Err_Кнопка237_Click DoCmd.SendObject acSendReport, "Платежка", acFormatRTF, "petrov@disc.ru", _   , , "Платежка RUS инд " + str(Indecs.Value) + "   " + Наименование_получателя.Value, , True Exit_Кнопка237_Click:     Exit Sub Err_Кнопка237_Click:     MsgBox Err.Description     Resume Exit_Кнопка237_Click      End Sub

может кто знает как это сделать?..............