DCount関数を使用することでテーブルやクエリのレコード件数を取得することができます。








Dcount関数

Sub T_count()

    Dim cou As Integer
    
    '会員数の取得
    cou = DCount("会員No", "T_会員")
   
    MsgBox ("会員数は" & cou & "名です。")
   
End Sub


上の例ではT_会員テーブルのレコード数を変数couに入れ、
メッセージボックスで取得した値を表示させています。