Alterar modo de visualização de Sub Formulário PivotTable para PivotChart

Olá pessoal.
Minha primeira dúvida no fórum.
Mas já resolvi bastante dúvidas por ele.

Tenho um sub formulário que é visualizado na forma de PivotTable


Gostaria, através de um botão, em linha de programação, alterar a forma de visualização para PivotChart.
Consegui alterar sem ser um sub formulário:

   Form_frm_relatorio_producao_dia.filho_relatorio_producao_dia.SourceObject = ""
   DoCmd.OpenForm "sub_relatorio_producao_dia", acDesign
   Form_sub_relatorio_producao_dia.Form.DefaultView = Access.acViewPivotTable
   DoCmd.Close acForm, "sub_relatorio_producao_dia", acSaveYes
   Form_frm_relatorio_producao_dia.filho_relatorio_producao_dia.SourceObject = "sub_relatorio_producao_dia"

, mas no sub não consegui.
Tentei alguns códigos e ainda não consegui:

Private Sub btnDados_Click()
   Form_sub_relatorio_producao_dia.Form.DefaultView = Access.acViewPivotTable
End Sub

Apresenta o erro:



Alguém sabe como?
Obrigado

Olá.

Resolvi.
Salvei algumas informações em variáveis Globais;
Fechei o formulário;
Mudei o modo de visualização;
Abri o formulário e atribui os valores salvos nas variáveis globais.

Abaixo o código:

Private Sub Form_Open(Cancel As Integer)    
   If IsNull(dtLocal) Or dtLocal = "" Then
       Me.dt = Date
   Else
       Me.dt = dtLocal
   End If
   
   If IsNull(ModoLocal) Or ModoLocal = "" Then
       Me.qdrModo = 1
   Else
       Me.qdrModo = ModoLocal
   End If
End Sub

Private Sub qdrModo_AfterUpdate()

dtLocal = Me.dt
ModoLocal = Me.qdrModo

Form_frm_relatorio_producao_dia.filho_relatorio_producao_dia.SourceObject = ""
DoCmd.OpenForm "sub_relatorio_producao_dia", acDesign, , , , acHidden

If Form_frm_relatorio_producao_dia.qdrModo = 1 Then
   Form_sub_relatorio_producao_dia.Form.DefaultView = Access.acViewPivotTable
Else
   Form_sub_relatorio_producao_dia.DefaultView = Access.acViewPivotChart
End If

DoCmd.Close acForm, "sub_relatorio_producao_dia", acSaveYes
Form_frm_relatorio_producao_dia.filho_relatorio_producao_dia.SourceObject = "sub_relatorio_producao_dia"

End Sub

e como ficou:





Obrigado