H
Harmannus
Hallo,
I use the below code for addressing a pivot table
'Dim pTable As OWC10.PivotTable
Dim pTable As OWC11.PivotTable
Set pTable = Me.PivotTable
pTable.BackColor = 14215660
pTable.AllowCustomOrdering = False
pTable.AllowFiltering = True
pTable.AllowGrouping = False
pTable.DisplayExpandIndicator = False
When i use "Dim pTable as OCW10.PivotTable" under Acc2002 it works fine: '
removed
When i use "Dim pTable as OCW11.PivotTable" under Acc2003 i get a error on
the line Set pTable=me.PivotTable
Anybody a clue why Acc2003 states a error?
Can i add some additional code that checks for the Access version? So
Acc2002 use line 1, Acc2003 use line 2 (and a correction of line 3 of Set
pTable=me.PivotTable)
Thanx in advance for any help.
Regards,
Harmannus
I use the below code for addressing a pivot table
'Dim pTable As OWC10.PivotTable
Dim pTable As OWC11.PivotTable
Set pTable = Me.PivotTable
pTable.BackColor = 14215660
pTable.AllowCustomOrdering = False
pTable.AllowFiltering = True
pTable.AllowGrouping = False
pTable.DisplayExpandIndicator = False
When i use "Dim pTable as OCW10.PivotTable" under Acc2002 it works fine: '
removed
When i use "Dim pTable as OCW11.PivotTable" under Acc2003 i get a error on
the line Set pTable=me.PivotTable
Anybody a clue why Acc2003 states a error?
Can i add some additional code that checks for the Access version? So
Acc2002 use line 1, Acc2003 use line 2 (and a correction of line 3 of Set
pTable=me.PivotTable)
Thanx in advance for any help.
Regards,
Harmannus