Accessのモジュールで、テーブル・クエリのレコードを数える。
Accessのモジュールの中で、テーブルやクエリの件数をカウントしたいことって、結構多いと思います。
そのためのクエリを作って参照してもいいのですが、モジュールの中で実現する方法を書いてみたいと思います。
|
|
Private Sub RecordCount()
'この方法を使うためには、DAOの参照設定をする
'必要があります。
'変数などを定義します。
Dim intCnt As Integer 'レコード件数取得用
Dim strSQL As String 'SQL文格納用
Dim ResultRS As DAO.Recordset 'レコードセット
'カウント用のSQL文を作成します。
'「テスト」というテーブルをカウント
strSQL = "Select Count(*) As RecordCount From テスト"
'作成したSQL文でレコードセット作成します。
Set ResultRS = CurrentDb.OpenRecordset(strSQL)
'レコード件数を取得します。
intCnt = ResultRS![RecordCount]
'レコードセットを閉じます。
ResultRS.Close
Set ResultRS = Nothing
End Sub
|
|
|
以上の記述で、レコード数を変数に格納することができます。
例では、単純にSELECTで数えていますが、WHERE句と組み合わせれば、特定条件の件数を数えることもできます。
|