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

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: Lvm
В голову бы не пришло, что в аксессе мастерами можно наваять такую хрень...
Сразу хочется позлорадствовать про отсутствие элементарных понятий по теории СУБД и про мелкософт, который дает возможность создавать отчёт не имея данных...

Ну, а если по делу - проще некуда.

Сохраняет у нас данные строка
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Ну так и запихни её перед формированием отчета.

Private Sub Кнопка237_Click()
On Error GoTo Err_Кнопка237_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70


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

Если данные неправильные, процедура и вылетит сразу по ошибке.


Ваше имя:

Пароль:

Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.