DAOでレコード数を取得したい（ACESSVBA）

質問

レコードの行数は複数あるのに
---------------------------------------------------------
Sub あ()
Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("T_test", dbOpenDynaset)

MsgBox rs.RecordCount

Set rs = Nothing
Set db = Nothing
End Sub

---------------------------------------------------------

これでレコード数を取得しようとすると１がかえるのですが
なぜレコードの行数を取得できないのでしょうか？

回答No.1

hatena1989 · ベストアンサー

MoveLastで最後まで移動しないと正確な件数は取得できないようです。

Set db = CurrentDb
Set rs = db.OpenRecordset("T_test", dbOpenDynaset)

If Not rs.EOF Then rs.MoveLAst

MsgBox rs.RecordCount

件数を取得するだけなら、集計クエリで取得するほうが高速だそうです。

Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT Count(*) FROM T_test")

MsgBox rs(0).Value

お礼

If Not rs.EOF Then rs.MoveLast
を追加したらうまくいきました。

他の方法のご教授もありがとうございました。