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

@pochta · Регистрация: 28.05.2014

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

Добрый день. Столкнулась с такой проблемой. Необходимо сохранить отчет в файл. Использую стандартную функцию и в коде указываю формат RTF:

Visual Basic

Private Sub Кнопка26_Click()
On Error GoTo Err_Кнопка26_Click
    Dim stDocName As String
    stDocName = ChrW(1048) & ChrW(1089) & ChrW(1090) & ChrW(1086) & ChrW(1088) & ChrW(1080) & ChrW(1103) & ChrW(32) & ChrW(1091) & ChrW(1095) & ChrW(1072) & ChrW(1089) & ChrW(1090) & ChrW(1082) & ChrW(1072)
    DoCmd.OutputTo acReport, stDocName, acFormatRTF
Exit_Кнопка26_Click:
    Exit Sub
Err_Кнопка26_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка26_Click
End Sub

Но в файл выводится весь отчет, по всем записям а мне надо чтобы только по одной текущей записи.
При выводе на печать я это делала так, а как здесь не знаю

Visual Basic

On Error GoTo Err_Кнопка25_Click
Dim strReportName As String
    Dim strFiltr As String
    strReportName = "История" 
    strFiltr = "UK_sm=" & Me![UK_sm] 
    DoCmd.OpenReport strReportName, acPreview, , strFiltr
Exit_Кнопка25_Click:
    Exit Sub
Err_Кнопка25_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка25_Click  
End Sub

Помогите пожалуйста!

Комментарий модератора

не забывайте про тег форматирования кода

@ltv_1953 · 25.02.2015, 16:11

Попробуйте поставить условие в запрос-источник записей отчета. Это должно сработать и на просмотр и на вывод в RTF.

@pochta · 25.02.2015, 16:16 **[ТС]**

Я пыталась сделать так, но все равно выводится отчет по всем записям

Visual Basic

Private Sub Кнопка29_Click()
On Error GoTo Err_Кнопка29_Click
 
    Dim stDocName As String
 
    stDocName = ChrW(1048) & ChrW(1089) & ChrW(1090) & ChrW(1086) & ChrW(1088) & ChrW(1080) & ChrW(1103) & ChrW(32) & ChrW(1091) & ChrW(1095) & ChrW(1072) & ChrW(1089) & ChrW(1090) & ChrW(1082) & ChrW(1072)
    strReportName = "История"
    strFiltr = "UK_sm=" & Me![UK_sm]
    DoCmd.OutputTo acReport, stDocName, acFormatRTF
 
 
Exit_Кнопка29_Click:
    Exit Sub
 
Err_Кнопка29_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка29_Click
    
End Sub

@ltv_1953 · 25.02.2015, 16:22

Нет, условие должно быть в запросе - источнике записей отчета, что-то типа

SQL

1	WHERE UK_sm=[Формы]![Ваша_Форма]![UK_sm]

@pochta · 25.02.2015, 16:29 **[ТС]**

Я не совсем пойму. У меня есть запрос, условию запроса отвечают несколько записей и они все отображаются на форме, а в файл надо вывести только текущую запись. возможно ли это?

@ltv_1953 · 25.02.2015, 16:42

Причем здесь запрос - источник записей формы. В запросе - источнике записей отчета нужно поставить условие для отбора по текущей записи формы. Примерное условие (имя Вашей формы неизвестно) написано ваше. Если нужна конкретика - выкладывайте базу, как и написано в Правила раздела, и укажите, какая форма и какой отчет.

@VinniPuh · 26.02.2015, 00:16

Сообщение от "pochta;7269919"...

не забывайте про тег форматирования кода...

Вот если бы было бы просто НЕВОЗМОЖНО вывалить код без тега, то я бы вас РАСЦЕЛОВАЛ во все щёчки

А так часто фигдня и непонятки случаются.
Сам по малолетству грешил (Ну со всяким я думаю бывало

)

@ltv_1953 17486 / 7248 / 1651 Регистрация: 21.06.2012 Сообщений: 13,864
	25.02.2015, 16:11	2
	Попробуйте поставить условие в запрос-источник записей отчета. Это должно сработать и на просмотр и на вывод в RTF. 0

@pochta 0 / 0 / 0 Регистрация: 28.05.2014 Сообщений: 17
	25.02.2015, 16:29 [ТС]	5
	Я не совсем пойму. У меня есть запрос, условию запроса отвечают несколько записей и они все отображаются на форме, а в файл надо вывести только текущую запись. возможно ли это? 0

@ltv_1953 17486 / 7248 / 1651 Регистрация: 21.06.2012 Сообщений: 13,864
	25.02.2015, 16:42	6
	Причем здесь запрос - источник записей формы. В запросе - источнике записей отчета нужно поставить условие для отбора по текущей записи формы. Примерное условие (имя Вашей формы неизвестно) написано ваше. Если нужна конкретика - выкладывайте базу, как и написано в Правила раздела, и укажите, какая форма и какой отчет. 0

@VinniPuh 8860 / 5908 / 585 Регистрация: 27.03.2013 Сообщений: 19,572
	26.02.2015, 00:16	7
	Сообщение от "pochta;7269919"... не забывайте про тег форматирования кода... Вот если бы было бы просто НЕВОЗМОЖНО вывалить код без тега, то я бы вас РАСЦЕЛОВАЛ во все щёчки А так часто фигдня и непонятки случаются. Сам по малолетству грешил (Ну со всяким я думаю бывало ) 0