Access2000 и отчеты

[Mao]

Подскажите, как запустить из программы отчет, данными для которого служит SQL запрос, находящийся в строковой переменной?

[Rainbow]

Чего? Что значит "запустить отчет"?
Это вопрос из серии "как запустить ракету, если у меня есть топливо?"

Что ты хочешь увидеть?Ты грид нашел? Ты не знаешь, как показать данные в гриде? Или ты действительно отчетами занялся? термин "отчет" обычно означает документ, постороенный по БД, готовый к печати. Для этих отчетов есть свои инструменты...

[Mao]

Либо отправить на печать отчет.

[Mao]

Чего? Что значит "запустить отчет"?
Это вопрос из серии "как запустить ракету, если у меня есть топливо?"

Что ты хочешь увидеть?Ты грид нашел? Ты не знаешь, как показать данные в гриде? Или ты действительно отчетами занялся? термин "отчет" обычно означает документ, постороенный по БД, готовый к печати. Для этих отчетов есть свои инструменты...

Я знаю как записать запрос содержащийся в строковой переменной:
Set query = CurrentDb.CreateQueryDef("Запрос", strSQL)
Потом открыть форму, которая будет представлять данные полученные этим запросом:
DoCmd.OpenForm "Форма", acNormal
Forms![Форма].Caption = "Запрос"
Forms!Форма![Распределение].RowSource = "Запрос"

Так вот, мне нужно чтоб открывался, либо сразу отправлялся на печать отчет используемый данные запроса. И чтоб не записывать SQL запрос, а сразу юзать текстовую переменную с этим SQL запросом. Заранее Вам огромное спасибо.

[Scuder]

Отправить на печать отчёт:

Код: Выделить всё

DoCmd.Echo False
DoCmd.OpenReport "Отчёт", acViewPreview
DoCmd.PrintOut acPrintAll, , , , 3, 0
DoCmd.Echo True
DoCmd.Close acReport, "Отчёт", acSaveNo

[Mao]

Отправить на печать отчёт:

Код: Выделить всё

DoCmd.Echo False
DoCmd.OpenReport "Отчёт", acViewPreview
DoCmd.PrintOut acPrintAll, , , , 3, 0
DoCmd.Echo True
DoCmd.Close acReport, "Отчёт", acSaveNo

Так а как к этому отчету привязать SQL запрос??

[Scuder]

Не знаю. Если не найдёшь решения, то можно создать отчёт, который будет брать данные из запроса, которому ты уже умеешь присваивать свою переменную.

[Mao]

Просто писать вот так:

Код: Выделить всё

Dim qdf As QueryDef
Dim query As QueryDef
CurrentDb.QueryDefs.Refresh
For Each qdf In CurrentDb.QueryDefs
  If qdf.name = "Запрос" Then
      db1.QueryDefs.Delete qdf.name
  End If
Next qdf
Set query = CurrentDb.CreateQueryDef("Запрос", strSQL)
DoCmd.Echo False
DoCmd.OpenReport "Отчёт", acViewPreview
DoCmd.PrintOut acPrintAll, , , , 3, 0
DoCmd.Echo True
DoCmd.Close acReport, "Отчёт", acSaveNo


по мойму, как то криво.

[Andrey Fedorov]

по мойму, как то криво.

Конечно криво.

У отчета есть свойство RecordSource - ему и присваивай свою строку запроса.

Так-же у отчета есть быть свойство Recordset - ему можно присвоить готовый Recordset.

P.S. Ведь когда-то дизайнер отчетов Access-a мне даже нравился. Теперь - вспоминаю те времена с содраганием...

[Leon_]

Надо делать так

Dim sArg As String
sArg = "SELECT * FROM bla-bla-bla"
DoCmd.OpenReport "Отчёт", acViewPreview, , , , sArg

А в самом отчете в обработчике открытия

Private Sub Report_Open(Cancel As Integer)
Me.RecordSource = Me.OpenArgs
End Sub

PS: пока писал -- опередили

[Mao]

Спасибо огромное фсем!

[Mao]

Надо делать так

Dim sArg As String
sArg = "SELECT * FROM bla-bla-bla"
DoCmd.OpenReport "Отчёт", acViewPreview, , , , sArg

А в самом отчете в обработчике открытия

Private Sub Report_Open(Cancel As Integer)
Me.RecordSource = Me.OpenArgs
End Sub

PS: пока писал -- опередили

Так у метода OpenReport нет свойства OpenArgs и соответственно при присваивании методу me.RecordSource ругается на OpenArgs:
Metod or data member not found
Что тут можно сделать??

[Leon_]

Свойство OpenArgs надо искать не у метода (у которого его и не может быть), а у отчета. Все так, как я написал в примере. Дерзай!
PS: "Me" -- это ссылка не на метод, а на текущий объект -- форму, отчет.

[Mao]

8)
Свойство OpenArgs надо искать не у метода (у которого его и не может быть), а у отчета. Все так, как я написал в примере. Дерзай!
PS: "Me" -- это ссылка не на метод, а на текущий объект -- форму, отчет.

Вот описание метода OpenReport
DoCmd.OpenReport reportname[, view][, filtername][, wherecondition] и не может быть там столько аргументов, сколько опысывали Вы. Это в методе DoCmd.OpenForm formname[, view][, filtername][, wherecondition][, datamode][, windowmode][, openargs] есть столько аргументов. Я сделал проще:

Код: Выделить всё

Public strSQL as string
strSQL = "SELECT * FROM bla-bla-bla"
DoCmd.OpenReport "Отчёт", acViewPreview


А в отчете следующее:

Код: Выделить всё

Private Sub Report_Open(Cancel As Integer)
Me.RecordSource = strSQL
End Sub


[Leon_]

The OpenReport method carries out the OpenReport action in Visual Basic.
expression.OpenReport(ReportName, View, FilterName, WhereCondition, WindowMode, OpenArgs)
expression Required. An expression that returns a DoCmd object.

ReportName Required Variant. A string expression that's the valid name of a report in the current database. If you execute Visual Basic code containing the OpenReport method in a library database, Microsoft Access looks for the report with this name, first in the library database, then in the current database.

View Optional AcView. The view to apply to the specified report.

AcView can be one of these AcView constants.
acViewDesign
acViewNormal default Prints the report immediately.
acViewPivotChart Not supported.
acViewPivotTable Not supported.
acViewPreview

FilterName Optional Variant. A string expression that's the valid name of a query in the current database.

WhereCondition Optional Variant. A string expression that's a valid SQL WHERE clause without the word WHERE.

WindowMode Optional AcWindowMode.

AcWindowMode can be one of these AcWindowMode constants.
acDialog
acHidden
acIcon
acWindowNormal default

OpenArgs Optional Variant. Sets the OpenArgs property.

Получилось без этого -- хорошо.

[Mao]

Странна, когда я хочу впихнуть в OpenReport больше 4 аргументов компилятор выдает ошибку о неправильном числе аргументов.