MS Access | Открыть и обновить OLE Object

 

Скачать пример: OpenExcelReport_OLE

Отчет по данным базы в виде сводной таблицы

Вариант OLE Object, открыть и обновить отчет

 

Имеем форму для открытия отчета (frmOpenReport_OLE), которая содержит контролы:

 

Тип                        Имя                Свойства

Bound Object Frame        ExcelOLE        Visible = No, Verb = 2

Button                        btnOpenReport        Visible = Yes

 

 

Обработка события Click – Open Report:

 

Private Sub btnOpenReport_Click()

Dim xlapp As Object 'объявляем переменную под объект MS Excel

On Error GoTo err

Forms!frmOpenReport_OLE!ExcelOLE = DLookup("Report", "Reports_Template", "ReportID = 1")

Forms!frmOpenReport_OLE!ExcelOLE.Action = acOLEActivate

Set xlapp = GetObject(, "excel.Application")

'обновить сводную таблицу MS Excel

xlapp.worksheets("Sheet1").PivotTables(1).RefreshTable

Exit Sub

err:

   MsgBox Error$

  Exit Sub

End Sub

 

где используем функцию Dlookup, в которой:

"Report" – название поля в таблице с OLE объектом;

"Reports_Template" – название таблицы с OLE объектом;

"ReportID = 1" – фильтр отбора нужной записи из таблицы по полю ReportID.

 

 

 



© 2018 | Анна Петросян | pashelp@yandex.ru