ГлавнаяMS ACCESS Вывод перекрестного запроса в форму или в отчет...
Вывод перекрестного запроса в форму или в отчет...
Автор Administrator
31.08.2001 г.
Гумберт 13.07.2001
Сводный отчет Можно ли в Аксесе сделать сводный отчет? Если можно то как? Когда группировка данных идет и по оси абсцисс и по оси ординат. Пример-перекрестный запрос в Аксесе, но очень уж у него слабенькие возможности.
Vik 16.07.2001
Я уже решал подобную задачку для формы Посмотри - может что-нибуть используешь (хотя код еще сыроват). Можно форму вставить в отчет как подчиненную, либо прямо ее распечатать.
=========================== Public Sub ReDesignForm(frmName As String) ' Результат - форма для отображения перекрестного запроса ' Реализовано для табличного отображения формы Dim dbs As Database Dim rst As Recordset Dim frm As Form Dim ctl As Control Dim fld As Field Dim n As Integer Dim intDataY As Integer Dim ctlLabel As Control, ctlText As Control
For n = frm.Controls.Count - 1 To 0 Step -1 ' удаляем существующие контролы DeleteControl frm.Name, frm.Controls(n).Name Next n
Set dbs = CurrentDb Set rst = dbs.OpenRecordset(frm.RecordSource)
For Each fld In rst.Fields ' делаем новые контролы Set ctlText = CreateControl(frm.Name, acTextBox, , "", fld.Name, 1440, intDataY) ' Для удобства отображения в режиме конструктора смещаем следующий контрол intDataY = intDataY + 280 Next fld
DoCmd.Close acForm, frmName, acSaveYes
' В принципе дальше можно открыть форму в нормальном режиме End Sub