Creating pivot table via Access Runtime

[jaryszek]

Hi,



i can create a form for Access Runtime with pivot table but i want to add possibility for users to choose what fields should be shown in pivot.
Users can arrange already pulled out fields (by administrator with full Access instance) but they can not add new ones...

Users are using Access runtime.
It is a posibility to do it ?

Or maybe use something else?

Best Wishes,
Jacek Antek

[jaryszek]

Hi,

it is possible using code and Web Components reference library:

Private Sub Polecenie11_Click()

Dim fst1 As Object
Dim frm1, frm2 As Object
Dim cBox As CheckBox
Dim Coll As New Collection
Dim rst As Recordset




'Open form in PivotTable view and set
'a reference to the form
DoCmd.OpenForm "BrakiForm_Pivot", acFormPivotTable
Set frm1 = Forms.Item("BrakiForm_Pivot")
''Set frm2 = Me.Form
''
''Set rst = frm2.Recordset
''
''    For Each cBox In frm2
''        If cBox.Value = -1 Then
''            Coll.Add
''        End If
''    Next cBox
''Me.PivotTable.ActiveView.DataAxis.FieldSets(0).Fields(0).DetailBackColor = RGB(155, 155, 155)


'Set PivotTable fieldsets
With frm1.PivotTable.ActiveView
''    Set fst1 = .FieldSets("ID")
''    .RowAxis.InsertFieldSet fst1
    Set fst1 = .FieldSets("Data_Przypomnienia")
    .DataAxis.InsertFieldSet fst1
    Set fst1 = .FieldSets("Imię_i_Nazwisko")
   .DataAxis.InsertFieldSet fst1
    Set fst1 = .FieldSets("Dokument")
   .DataAxis.InsertFieldSet fst1
   
End With


End Sub

Jacek