Office中国论坛/Access中国论坛

标题: 当图表数据为空时弹出提示，如何实现？ [打印本页]

作者: xinle 时间: 2007-2-21 07:44
标题: 当图表数据为空时弹出提示，如何实现？
窗体中的图表数据源是动态更新的，
就是说根据不同的查询结果来更新数据源。
比如：
查询：
strSql = "SELECT (Format([BMSJ],'yy_m')) AS 月份, Count(tblStudent.BH) AS 计数BH FROM tblStudent where [BMKC]=" & Me.cboKC & ""
更改数据源：
Me.DataChart.RowSource = strSql

但有时查询结果为空，而图表就会显示为空白一片，
不知道有没有什么方法来检测图表数据，如果为空时弹出提示！

谢谢！！！

作者: andymark 时间: 2007-2-21 20:54
TRY:

Dim Rs As New ADODB.Recordset
Dim Conn As New ADODB.Connection
Dim StrSql As String
Set Conn = CurrentProject.Connection

StrSql = "SELECT (Format([BMSJ],'yy_m')) AS 月份, Count(tblStudent.BH) AS 计数BH FROM tblStudent where [BMKC]=" & Me.cboKC & ""

Rs.Open StrSql, Conn, adOpenDynamic, adLockOptimistic

If Rs.EOF Then
MsgBox "没有相关数据"
Exit Sub
End If
Me.DataChart.RowSource = StrSql
Set Rs = Nothing
Set Conn = Nothing

作者: xinle 时间: 2007-2-23 04:48
我也用这种方法的，但老是提示查询语句出错！
我再试试！

谢谢！

[此贴子已经被作者于2007-2-22 20:48:41编辑过]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)