Recordset.recordcount（DAO-mdb） (ID:120748)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 無事、出力されました。 LESIA様、ありがとうございます。 ----------中略------------------ Dim DBase As DAO.Database Dim RecSet As DAO.Recordset Dim strSQL AS String Dim hogehoge AS Integer strSQL = "SELECT * FROM hoge" Set DBase = DBEngine.Workspaces(0).OpenDatabase(DBPath, True, True) Set RecSet = DBase.OpenRecordset(strSQL) Recset.Movelast '←追加 hogehoge = Recset.recordcount --------中略（解放処理）---------------