wtkaufmann
Registered User.
- Local time
- Today, 15:25
- Joined
- Dec 29, 2009
- Messages
- 10
I am using the VBA code:
Private Sub Rating_Distribution_Click()
On Error GoTo Err_Rating_Distribution_Click
Dim stDocName As String
stDocName = "PM Rating Distribution"
DoCmd.OpenQuery stDocName, acFormPivotTable, acEdit
Exit_Rating_Distribution_Click:
Exit Sub
Err_Rating_Distribution_Click:
MsgBox Err.Description
Resume Exit_Rating_Distribution_Click
End Sub
I want to display this query in the PivotTable view. However, when I click the button on my form it displays a Pivot Chart.
I am fairly new to VBA and was wondering if anyone had a solution to my issue?
Private Sub Rating_Distribution_Click()
On Error GoTo Err_Rating_Distribution_Click
Dim stDocName As String
stDocName = "PM Rating Distribution"
DoCmd.OpenQuery stDocName, acFormPivotTable, acEdit
Exit_Rating_Distribution_Click:
Exit Sub
Err_Rating_Distribution_Click:
MsgBox Err.Description
Resume Exit_Rating_Distribution_Click
End Sub
I want to display this query in the PivotTable view. However, when I click the button on my form it displays a Pivot Chart.
I am fairly new to VBA and was wondering if anyone had a solution to my issue?