Dim mydb As Database
Dim rst As DAO.Recordset
Set mydb = CurrentDb
Set rst = mydb.OpenRecordset("select * from tablename")
MsgBox ("データは" & rst.RecordCount & "件です。")
Set rst = Nothing
Set mydb = Nothing
RecordCount を取得する前に、
MoveLast を実行しておいた方が動作が確実になるらしい。
rst.MoveLast
私の環境では今のところ、
MoveLast なしでもデータ件数を正確に取得できている。
【このカテゴリーの最新記事】
-
no image
-
no image
-
no image
-
