DCount関数：Access

■ 構文
DCount(Expr, Domain, Criteria)

■ 引数
Expr ： （必須）　戻り値のフィールド名
Domain ： （必須）　テーブル名またはクエリ名
Criteria ： （省略可）　WHERE条件式

■ Access実行画面

「顧客登録数」ボタンで全ての登録数を表示します。
「日付以降の顧客登録数」ボタンで、入力されている初回日付以降の数を表示します。
もし、日付が入力されていない場合は、全ての登録数を表示します。
下のテキストボックスには、日付以前の登録数を表示しています。

■ Access VBA 実行コード

Option Compare Database
Option Explicit
Private Sub コマンド2_Click()
    Me!テキスト0 = DCount("来店回数", "顧客マスター")
End Sub
Private Sub コマンド7_Click()
    If IsNull(Me!テキスト4) Then
            Me!テキスト6 = DCount("来店回数", "顧客マスター")
        Me!テキスト8 = Null
        Else
        Me!テキスト6 = DCount("来店回数", "顧客マスター", "初回来店日>=#" & Me!テキスト4 & "#")
        Me!テキスト8 = DCount("来店回数", "顧客マスター", "初回来店日<#" & Me!テキスト4 & "#")
    End If
End Sub