dim SQL as String
dim rs As Recordset
SQL = " SELECT COUNT(フィールド名) AS 名前 FROM テーブル名 "
Set rs = CurrentDb.OpenRecordset(SQL)
NULL値以外のフィールドをカウントし、その結果のカウント数を「名前」で返します。
フィールド名に、＊（アスタリスク）を指定していするとすべてのレコード数を返します。
例1: SQL = " SELECT COUNT( 受付 ) AS 受付合計 FROM 来客管理 WHERE 日付 Between #2007/01/01# AND #2007/04/01# "
指定期間内の受付カウント数を「受付合計」の名前で取得します。
例1: SQL = " SELECT COUNT( * ) AS 遅刻 FROM 社員管理 "
全遅刻数を取得します。