フィルタ後のテーブルのレコード数を取得したい

質問

アクセスｖｂａです。

フィルタ後のテーブルのレコード数を取得したいのですが
Debug.Print DCount("[フィールド１]", "テーブル1")
だと、フィルタ前の数が取得されてしまいます。

フォーム1にテーブル1を紐付けて、
更にフィルタをしているのですが、
元のテーブル１のレコード数が10として、
フィルタ後が3なら、3を取得するVBAコードを教えてください。

回答No.1

hatena1989 · ベストアンサー

フォームでフィルターをかけても、テーブルのレコード数が変わるわけではないですからね。

このコードはどこに記述したのですか。フォームに記述したのなら、

Debug.Print DCount("[フィールド１]", "テーブル1", Me.Filter)

と抽出条件にフォームのフィルターを設定する。

あるいは、フォームのレコードセットの件数を直接取得する。

Debug.Print Me.Recordset.RecordCount

このフォーム以外のモジュールに記述する場合は、Me を
Forms!フォーム名
とします。

お礼

回答ありがとうございました。