Открыть форму в виде сводной таблицы/диаграммы

Private Sub OPEN_PIVOT_Click()

DoCmd.OpenForm "FORM_NAME", acFormPivotChart

End Sub

Скачать пример в zip:     RecordsetCycleSample.zip

Скачать пример в accdb: RecordsetCycleSample.accdb