Отправить отчет в файл

@garik8000 · Регистрация: 09.12.2009

Студворк — интернет-сервис помощи студентам

Доброго времени суток, уважаемые)

Не могу разобраться в чем совершил ошибку.

На кнопку навесил функцию, посылающую отчет в файл.
Отправляет все записи...

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Кнопка33_Click()
On Error GoTo Err_Кнопка33_Click
 
    Dim stDocName As String
 
    stDocName = "Rezume"
    DoCmd.OutputTo acReport, stDocName
 
Exit_Кнопка33_Click:
    Exit Sub
 
Err_Кнопка33_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка33_Click
    
End Sub

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Кнопка320_Click()
On Error GoTo Err_Кнопка320_Click
 
    Dim stDocName As String
 
    stDocName = "Rezume"
    DoCmd.OutputTo "Rezume", A_PREVIEW, , "Код=" & Код
 
Exit_Кнопка320_Click:
    Exit Sub
 
Err_Кнопка320_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка320_Click
    
End Sub

Ошибка: Type masmatch

@BasicMan · 10.02.2010, 17:45

Сообщение от garik8000

DoCmd.OutputTo "Rezume", A_PREVIEW, , "Код=" & Код

синтаксис нарушен
ты создай новый запрос. с параметром,

SQL
1
WHERE Код= Forms!MyFormName.Код

и на базе него построй отчет. а уже тот отчет в файл шли

@garik8000 · 10.02.2010, 18:35 **[ТС]**

не осилил

Сообщение от CyberБурундукЪ

ты создай новый запрос. с параметром,

SQL
1
WHERE Код= Forms!MyFormName.Код

буду рад помощи, примерчик выложил )

@BasicMan · 10.02.2010, 18:45

вод 4l.zip

@garik8000 · 10.02.2010, 19:29 **[ТС]**

CyberБурундукЪ

работает на ура, если честно не совсем, конечно, понял принцип работы параметра [Forms!MyFormName.Код] в запросе.

Теперь думаю как сделать что бы автоматически выбирал Snapshot Format (snp), да бы не пугать пользователей высплывающими окошками.

немного подумав... [Forms!MyFormName.Код] это же условие выборки... ух ты как забавно

@BasicMan · 10.02.2010, 19:40

Сообщение от garik8000

Теперь думаю как сделать что бы автоматически выбирал Snapshot Format (snp)

прочитай про

Сообщение от garik8000

DoCmd.OutputTo

подробнее, там можно задать как тип выводного файла (формат), так и его имя

@garik8000 · 11.02.2010, 13:18 **[ТС]**

во чаво натворил благодаря свои титаническим усилиям

и поискам по инету

Visual Basic
1
2
3
    fio = "ФИО"
    stDocName = "Rezume_"
    DoCmd.OutputTo acReport, stDocName, acFormatSNP, "Z:\bd\Rezume\" & "Rezume_" & fio & ".snp", True

но... хотелось бы что бы переменной fio присваивалось не просто слово "ФИО", а параметр с формы) т.е. что бы в результате, например, сохранился снимок под именем Rezume_Иванов Иван Иванович.snp

P.S. в идеале, конечно, лучше что бы сохранялся отчет в формате ворд, но теряются форматирование, линии, таблицы и картинки

, простого решения по этому поводу пока не нашел

@BasicMan · 11.02.2010, 13:33

Сообщение от garik8000

но... хотелось бы что бы переменной fio присваивалось не просто слово "ФИО", а параметр с формы

1. как поле на форме называется
2. код в той же форме где и поле?

Добавлено через 2 минуты

Сообщение от garik8000

в идеале, конечно, лучше что бы сохранялся отчет в формате ворд, но теряются форматирование, линии, таблицы и картинки, простого решения по этому поводу пока не нашел

а мож в пдф лучче?

@garik8000 · 11.02.2010, 13:48 **[ТС]**

в форме 6 подчиненных форм
1. ФИО в подчиненой форме Car_Inf
2. да )

в этом случае

Visual Basic
1
    DoCmd.OutputTo acReport, stDocName, acFormatPDF, "Z:\bd\Rezume\" & "Rezume_" & fio & ".pdf"

появляется диалоговое окно с запросом в каком формате сохранить отчет (

@BasicMan · 11.02.2010, 13:54

имя подчиненной формы нужно щипцами вытягивать?

Сообщение от garik8000

появляется диалоговое окно с запросом в каком формате сохранить отчет (

а ты установи ПДФ-принтер и скидывай снимки (snp) в пдф

@garik8000 · 11.02.2010, 14:06 **[ТС]**

имя формы [Car_form], имя подчиненной формы [Car_Inf], имя поля [ФИО],

Сообщение от CyberБурундукЪ

а ты установи ПДФ-принтер и скидывай снимки (snp) в пдф

вот этого то я боялся, придется всем пользователям продукта моего разума установить PDFCreator?

@BasicMan · 11.02.2010, 14:07

garik8000,переходи на акцесс 2007. там OutputTo сам умеет в пдф загонять

@garik8000 · 11.02.2010, 14:25 **[ТС]**

Не по теме:

у меня половина пользователей на 2003 сидят, не хочется травмировать психику бабулькам и хорошеньким блондинкам :)

@BasicMan · 11.02.2010, 14:37

Visual Basic
1
2
3
fio = [Forms]![Car_form]![Car_Inf].[Form]![ФИО]
    stDocName = "Rezume_"
    DoCmd.OutputTo acReport, stDocName, acFormatSNP, "Z:\bd\Rezume\" & "Rezume_" & fio & ".snp", True

@garik8000 · 12.02.2010, 11:19 **[ТС]**

CyberБурундукЪ, благодарствую... очень помогло для дальнейшего понимания и изучения

Добавлено через 2 часа 44 минуты
хм,
если отчет имеет две страницы, то выдаётся ошибка: Прервано выполнение макрокоманды OutputTo
работаю в MS Access 2007

Добавлено через 1 час 36 минут

Visual Basic
1
 fio = [Forms]![Car_form]![Car_Inf].[Form]![Код]

если поменять [ФИО] на [Код], то работает без сбоев не зависимо от количества страниц отчета. В чем загвоздка?

Добавлено через 15 часов 49 минут
нашел я уважаемые ошибку,
оказывается в поле [ФИО] закрался неведомым образом

символ переноса строки, вопрос снят.

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .

@BasicMan 19318 / 2626 / 84 Регистрация: 17.02.2009 Сообщений: 30,364
	10.02.2010, 18:45
	вод 4l.zip 1

@garik8000 47 / 47 / 3 Регистрация: 09.12.2009 Сообщений: 154
	10.02.2010, 19:29 [ТС]
	CyberБурундукЪ работает на ура, если честно не совсем, конечно, понял принцип работы параметра [Forms!MyFormName.Код] в запросе. Теперь думаю как сделать что бы автоматически выбирал Snapshot Format (snp), да бы не пугать пользователей высплывающими окошками. немного подумав... [Forms!MyFormName.Код] это же условие выборки... ух ты как забавно 0

@BasicMan 19318 / 2626 / 84 Регистрация: 17.02.2009 Сообщений: 30,364
	11.02.2010, 14:07
	garik8000,переходи на акцесс 2007. там OutputTo сам умеет в пдф загонять 0

@garik8000
	11.02.2010, 14:25 [ТС]
	Не по теме: у меня половина пользователей на 2003 сидят, не хочется травмировать психику бабулькам и хорошеньким блондинкам :) 0