【Access入门】统计表中指定值的记录数示例

时　间:2013-07-03 09:27:42
作　者:麥田   ID：11  城市：上海  QQ：20099004
摘　要:Accessoft-统计表中指定值的记录数示例
正　文:

    根据网友要求，制作的一则示例，代码如下：

'统计单号个数命令(数字型)
Private Sub Command2_Click()
    Dim a As Integer
    a = DCount("*", "表1", "单号= " & Me.Text0)
    MsgBox "表中符合该条件的'单号'记录数为 " & a & " 条", vbInformation, "提示："
End Sub

'统计名称个数命令(文本型)
Private Sub Command5_Click()
    Dim b As String
    b = DCount("*", "表1", "名称='" & Me.Text3 & "'")
    MsgBox "表中符合该条件的'名称'记录数为 " & b & " 条", vbInformation, "提示："
End Sub

附   件：