Гумберт 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
intDataY = 0 DoCmd.OpenForm frmName, acDesign, , , , acHidden
Set frm = Forms(frmName)
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
|
| Просмотров: 7372
Ваш коментарий будет первым | | |