レコード件数が返らない理由がわからない

質問

テーブル1にはレコードが5件入ってるのですが

Private Sub レコード件数()
Dim strSQL As String
Dim rs As DAO.Recordset

strSQL = "SELECT * FROM テーブル1;"

Set rs = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
Debug.Print rs.RecordCount
End Sub

これをすると1が返るのですがなぜでしょうか？
レコードの数が返ると思ってるのですが違うのでしょうか？

回答No.1

masatsan · ベストアンサー

そうなんです。取れる場合もあれば取れない場合もある。多分ACCESSのバグだと思う。
仕方ないのでmovenextでlastまで行って数を数える。

お礼

バグですか！思いがけない原因でした。そういうこともあるのですね。ありがとうございました。

回答No.3

m3_maki

「Access RecordCount 正しくない」 でググると
分かりやすい日本語の説明が得られますが、
一応、こちらが本家なので。
http://support.microsoft.com/kb/105976/ja

お礼

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

回答No.2

masatsan

No1の追伸
多分ACCESSは実際にレコードを移動して数えているのではないだろうか。
従ってプロパティを取得する場合、まだ数えているうちに返ってきてしまうので
おかしくなっているんだろう。という勝手な解釈。

お礼

なるほど～
納得しました。