Does anyone know how to programmatically contract (as aooposed to expand) all the levels in a pivot table. When the user opens the pivot table he just wants to see the parent rows of a hierarchy of 4 levels

eg would like to see top level only:

Country1 +
Country2 +

rather than:

Country1
  County/State1
    City1.1
  County/State2
     City2.1
CountryB
etc

Try this code segment:

Dim frm1 As Access.Form

'Open a form name strFName
DoCmd.OpenForm strFName, acFormPivotTable
Set frm1 = Forms(strFName)

'Hide detail rows
Screen.ActiveDatasheet.PivotTable.ActiveData.HideD etails
frm1.PivotTable.AllowDetails = False



Cheers Ray