点击下载此示例

图   示:

快速开发平台--子窗体数据合计在主窗体显示的示例[Access软件网]
http://www.accessoft.com/article-show.asp?id=9698

Public Function XRunQuery(WhereCondition As String)    '传递查询

Public Function XRunQuery(WhereCondition As String)    '传递查询筛选条件WhereCondition
    Dim strSQL As String
    Debug.Print WhereCondition
    If Len(WhereCondition) > 0 Then  '如果有条件
        strSQL = "select * from 客户信息表 where " & WhereCondition

        CurrentDb.QueryDefs("qry客户动态").SQL = strSQL   '更改qry客户动态查询SQL语句,(前提要创建好qry客户动态查询,字段随便建即可)
        Me.普通客户个数 = DCount("*", "qry客户动态", "客户类别='普通客户'")
    Else
        Me.普通客户个数 = DCount("*", "客户信息表", "客户类别='普通客户'")
    End If

End Function