Hi
I have a pivot table that was created in office 97. I converted the database to office 2002.
The pivot table does not refresh based on the new data. Pleas help.
OLE Class - Microsoft Excel 2000
Row Source - MyAnalysisReportsQuery
OLE type - Embedded
OLE type allowed - Embedded
Class Excel.Sheet.8
Code
stDocName = "MyAnalysisReportsQuery"
If MyQB.CreateNewQuery("Analysis Reports Selection Form", stDocName, False, strSQL) Then
SysCmd acSysCmdSetStatus, "Data has been retrieved from your server"
Me.PivotTableTab.Visible = True
Me.Repaint
Me.PivotTable.Refresh
Me.PivotTableTab.SetFocus
Me!PivotTable.Verb = acOLEVerbOpen
Me!PivotTable.Action = acOLEActivate
Me!PivotTable.ActiveData
Me.Clear_All.SetFocus
Me.PivotTableTab.Visible = False
Else
msgbox "There are no records with the criteria you have specified."
End If
Thanks inadvance.
I have a pivot table that was created in office 97. I converted the database to office 2002.
The pivot table does not refresh based on the new data. Pleas help.
OLE Class - Microsoft Excel 2000
Row Source - MyAnalysisReportsQuery
OLE type - Embedded
OLE type allowed - Embedded
Class Excel.Sheet.8
Code
stDocName = "MyAnalysisReportsQuery"
If MyQB.CreateNewQuery("Analysis Reports Selection Form", stDocName, False, strSQL) Then
SysCmd acSysCmdSetStatus, "Data has been retrieved from your server"
Me.PivotTableTab.Visible = True
Me.Repaint
Me.PivotTable.Refresh
Me.PivotTableTab.SetFocus
Me!PivotTable.Verb = acOLEVerbOpen
Me!PivotTable.Action = acOLEActivate
Me!PivotTable.ActiveData
Me.Clear_All.SetFocus
Me.PivotTableTab.Visible = False
Else
msgbox "There are no records with the criteria you have specified."
End If
Thanks inadvance.