SQL COUNT関数でレコードをカウントする

SQL = " SELECT COUNT(フィールド名) AS 名前 FROM テーブル名 "
NULL値以外のフィールドをカウントし、その結果のカウント数を「名前」で返します。
フィールド名に、＊（アスタリスク）を指定していするとすべてのレコード数を返します。

例1: SQL = " SELECT COUNT( 受付 ) AS 受付合計 FROM 来客管理 WHERE 日付 Between #2007/01/01# AND #2007/04/01# "
指定期間内の受付カウント数を「受付合計」の名前で取得します。

例1: SQL = " SELECT COUNT( * ) AS 遅刻 FROM 社員管理 "
全遅刻数を取得します。

［コード］
Option Compare Database

Private Sub コマンド53_Click()
    Dim SQL As String
    Dim rs As Recordset
    SQL = "SELECT COUNT(*) AS 販売数 FROM 販売管理"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト2 = rs![販売数]
    Set rs = Nothing
End Sub

Private Sub コマンド55_Click()
    Dim SQL As String
    Dim rs As Recordset
    SQL = "SELECT COUNT(数量) AS 販売数 FROM 販売管理"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト3 = rs![販売数]
    Set rs = Nothing
End Sub

Private Sub コマンド8_Click()
    Dim SQL As String
    Dim rs As Recordset
    SQL = "SELECT COUNT(販売ID) AS 販売数 FROM 販売管理"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = rs![販売数]
    Set rs = Nothing
End Sub

サンプルソフトのダウンロード