点击下载此示例

截   图:

源   码:

'统计查询“Q_员工工资”中，销售部实得工资2000以上的员工数
Private Sub cmd_统计_Click()
    Dim Num As Integer
    '得到部门为销售部、实得工资2000及以上的人数
    Num = DCount("部门", "Q_员工工资" _
    , "[部门]='销售部' and [实得工资]>=2000")
    '将统计结果输出到文本框中
    txt_人数 = Num & "人"
End Sub