Does Access support pivot tables now

[BizBoy]

Hi,
I am new to MS Access. I wanted to know, does Access support Pivot tables now.
I am required to edit couple of existing macro. These macro has pivot tables in this.
However, I guess, pivot tables are no longer available in Access.

Please correct me if am wrong. How do I proceed if pivot is not supported.
What are the alternatives. Has anyone here faced same situation.
How should I handle this. Can anyone please help me in this.

 

[BizBoy]

Hi gziro sir, thanks for the help. Have a nice day ahead.

 

[BizBoy]

Hi,

I have following code my Access macro. I tried it in Office 365. And it is running without any issue.
Though this code is written in Access macro, I believe this is related to Excel.

I guess, this code should not give any issue irrespective of MS Access version.
Can experts here confirm please. Please see below code for your reference.

Option Compare Database
Sub Test()
    Dim MyExcelApp As Excel.Application
    Dim MyWorkBook As Excel.Workbook
    Dim MyPosition As Excel.Worksheet
    Dim TempLr As Long
    
    TempLr = 20
    MyPath = "Dummy_Path\Pivot_Codes.xlsb"
    Set MyExcelApp = CreateObject("Excel.Application")
    Set MyWorkBook = MyExcelApp.Workbooks.Open(MyPath)
    MyExcelApp.Visible = True
    Set MyPosition = MyWorkBook.Sheets("MyPosition")

    MyWorkBook.Sheets("MyPosition").Range("A1:Z" & TempLr).Select
    MyWorkBook.ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
    "MyPosition!A1:Z" & TempLr, TableDestination:="My_Allocation!R1C1", TableName:="My_Strat"
    MyWorkBook.Sheets("My_Allocation").PivotTables("My_Strat").AddFields RowFields:="Strat"
    
    With MyWorkBook.Sheets("My_Allocation").PivotTables("My_Strat").PivotFields("% Region")
        .Orientation = xlDataField
        .Name = "Sum of % Region"
        .Function = xlSum
    End With
    
    With MyWorkBook.Sheets("My_Allocation").PivotTables("My_Strat").PivotFields("Strat")
        .PivotItems("(blank)").Visible = False
    End With
    
    ActiveSheet.PivotTables("MyLiab").PivotCache.Refresh
    MyWorksheet.ActiveSheet.PivotTables("AbCdE").PivotCache.Refresh
    MyWorksheet.Sheets("Compound").Range("A28").Select
    MyWorksheet.ActiveSheet.PivotTables("AbCRegion").PivotCache.Refresh
End Sub

 

[BizBoy]

Hi,

Can anyone please help me in this.