MS Access 2010 的普通图表小部件的外观不是很吸引人。
是否有可能(以及如何?)将相当吸引人的 Excel 图表嵌入到 Access 中并用来自查询的数据(动态地)填充它们?
附言:
因为我想根据用户输入更新图表,所以无法使用数据透视图。
最佳答案
使用图表的一些注意事项
Sub OpenMyChart()
''You could do this part without code, but let use say you want VBA
sSQL = "SELECT Table1.AText AS ACategory, Table1.ANumber AS AData, " _
& "Table1.ADate AS AFilter, Table1.ATime AS ASeries " _
& "FROM Table1 WHERE Table1.ADate=#1/20/2012#"
''This is the query that my Chart form uses
CurrentDb.QueryDefs("Chart").SQL = sSQL
''You can use a Where statement for opening the form, too
DoCmd.OpenForm "Chart", acFormPivotChart, , "ACategory='Bob'"
End Sub
其他两种方法使用类似的子表单设置。
/1。使用链接子字段和主字段
链接主字段设置为列表框控件的名称,链接子字段设置为图表的相关字段:
Link Master Field: List1;List2
Link Child Field: AFilter;ACategory
单击相关控件会重新绘制图表。
/2。使用查询并强制重绘:
Private Sub List1_Click()
sSQL = "SELECT Table1.AText AS ACategory, Table1.ANumber AS AData, " _
& "Table1.ADate AS AFilter, Table1.ATime AS ASeries " _
& "FROM Table1 WHERE Table1.ADate=#" _
& Format(Me.List1, "yyyy/mm/dd") & "#"1/13/2013#"
''This is the query that my Chart form uses
CurrentDb.QueryDefs("Chart").SQL = sSQL
''Chart is the name of the subform control, and confusingly,
''the name of the embedded form.
Me.Chart.SourceObject = "Chart"
End Sub
关于excel - 在 Access 中嵌入生成的 Excel 图表,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/14895659/