DAO エクセルｖｂａからアクセスのレコードの件数

質問

DAOで、エクセルｖｂａからアクセスのレコードの件数を取得したいのですが

Dim ac As Object
Dim db As DAO.Database
Dim rs As DAO.Recordset

Set ac = CreateObject("Access.Application")
Set db = ac.DBEngine.OpenDatabase("D:\あああ.accdb", False, True)

Set rs = db.OpenRecordset("SELECT * FROM Tマスタ WHERE masterkey like '*四*';")
i = rs.RecordCount

Debug.Print rs("masterkey")

rs.Close: Set rs = Nothing
db.Close: Set db = Nothing
ac.Quit: Set ac = Nothing

をすると、抽出するレコードが１０００件でも、必ず１が返ります。
masterkeyフィールドは文字列型です。

なぜ実際はたくさんのレコードがあるのに、１が返るのでしょうか？

回答No.1

nicotinism · ベストアンサー

こちらをどうぞ。
DAOでレコード件数をカウントする方法
http://www.nurs.or.jp/~ppoy/access/access/acM044.html

お礼

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