如何动态更改访问图的行源

问题描述 投票:5回答:2

我想知道是否可以在运行时在报表中设置图表的rowsource属性。

我打算在报告的组标题部分中有一个图表。该图表的行源应根据组标题的值进行更新。

当我尝试在VBA中执行此操作时,收到错误2455-对属性RowSource的无效引用。

我正在使用Access 2003。

谢谢。

ms-access dynamic access-vba mschart ms-access-2003
2个回答
5
投票

我在互联网上搜索了一段时间后才得到灵感。这是我目前实施的解决方案。

首先,确实不能在运行时以编程方式更改图表的rowsource属性。但是,我们可以做的是将rowsource属性设置为Query对象,然后在VBA中更新此查询对象。

这是我的代码的一部分。

CurrentDb.QueryDefs("myQuery").SQL = "a new query"
Me.myChart.Requery

我已将图表的行源设置为名为“ myQuery”的查询对象。我将上面的代码放在了组头的Format事件中,因此每次加载组头时,我都可以使用组头的值来更新Query对象。


0
投票

另一种方法是打开表单或将图表嵌入报表分为两个步骤。在下面的示例中,我使用的是报表,但它与表单同样有效:

  • [第一步:在设计视图中以隐藏模式打开报表。现在的图表可以编辑行源(因为您在设计视图中),但是进程是不可见的(因为您处于隐藏模式)。
  • 第二步:保存并关闭隐藏的报告,然后在“可见”模式
'report name
strReportmName = "SomeReportName"

'open report in design view but hidden
DoCmd.OpenReport strReportmName , acViewDesign, , , , acHidden

'edit chart RowSource
strSQL = "TRANSFORM Sum(Cabecas) AS SomaDeCabecas " & _
    "SELECT Data " 
     ...etc...
    "PIVOT Categoria In (" & Chr(34) & strTitColunas & Chr(34) & ")"

'update chart RowSource
Reports![SomeReportName].Controls![SomeChartName].RowSource = strSQL

'Save report with edited RowSource
DoCmd.Close acReport, strReportmName , acSaveYes

're-open it in normal, visible mode
DoCmd.OpenReport strReportmName , acViewPreview


© www.soinside.com 2019 - 2024. All rights reserved.