There may be a better way, but I created a pivot table in Excel on an OLAP
Cube and embedded it in a form in Access. I use it for item sales analysis
by period (Year, month, day...). I open the form from my item form and then
run the following code to filter it to the specific item I am looking at.
Set objExcel =
Forms("NP_ItemSalesAnalysis").XLSalesPivot.ActiveSheet
On Error GoTo PivotError
objExcel.PivotTables("PivotTable1").PivotFields("[Inventory
Items]"). _
CurrentPageName = "[Inventory Items].[All Inventory Items].[" &
strItem & "]"
Notice the last line was a continuation. The strItem is my inventory item I
want to filter on.
HTH,
J. Clay
