データーベースにフィルターをかけててそれを印刷するには？ (ID:120350)

名前

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

本文 sdb = App.Path If Right(adb, 1) <> "\" Then sdb = sdb & "\" sdb = sdb & "消耗品.mdb" Dim tablename As String Dim db As Database Dim rst As Recordset Dim cunt As Long Dim rst2 As Recordset Set db = OpenDatabase(sdb) Set rst = db.OpenRecordset("ベルト", dbOpenSnapshot) rst.Filter = "日付 like '*" + 年 + "*'" Set rst2 = rst.OpenRecordset With rst2 If .RecordCount <> 0 Then .MoveLast .MoveFirst Do While Not .EOF .MoveNext Loop cunt = rst2.RecordCount Text2.Text = Format(cunt) ans = MsgBox("検索が終了しました。", vbOKOnly, "メッセージ") rst2.Close rst.Close End With db.Close Set db = Nothing Set rst = Nothing Set rst2 = Nothing End Sub 上記でrst2に検索結果がセットされてカウントはでますが、そのレコード内容を印刷したいのです。環境はDAO3.6でしています。 簡単にrst2の内容を一覧印刷することはできますか？