VBA：DCountでテーブルやクエリのレコード数をカウントする方法
１．やりたいこと
Accessのクエリやテーブルのレコード数をカウントしたい。
例：以下のような場合に、「国語」のレコード数を2レコードとカウントしたい。
２．サンプルコード
以下のサンプルコードをそれぞれ実行することで抽出条件に対するレコード数をカウントできます。
(1)ツールバーを消す
|
1 2 3 4 5 6 7 8 9 10 11 |
Function test01() Dim cntTest As Long cntTest = DCount("*", "T_テーブル", "科目 like '国語*'") 'DCount([カラム],[テーブル名]or[クエリ名],抽出条件)の指定ができます。' '抽出条件はなしでも問題なし。抽出条件に「*」を付けると曖昧検索ができる。' '「カラム」も指定する必要がなければ「*」で問題なし。' MsgBox cntTest End Function |
◆関連記事
AccessVBA：【DoCmd】【TransferSpreadsheetメソッド】Excelの取込み(インポート)と出力(エクスポート)
【DoCmd】「TransferSpreadsheet」を使ったExcelの入力(インポート)と出力(エクスポート)の方法について
VBA：【ADO】【取込み】ExcelファイルのAccessテーブルへのインポート・取込み「SQL文」
【VBA】ExcelファイルのAccessテーブルへのインポート・取込み方法。「ADO」と「SQL文」利用。
VBA：【ADO】【取込み】CSVファイルのAccessテーブルへのインポート・取込み「SQL文」
【VBA】CSVファイルのAccessテーブルへのインポート・取込み方法。「ADO」と「SQL文」利用。
