データーベースにフィルターをかけててそれを印刷するには？
解決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の内容を一覧印刷することはできますか？
>簡単にrst2の内容を一覧印刷することはできますか？
あなたに十分な技能があり、
手段や見栄えを問わないなら、簡単にできます。
そうですね^^;
やっぱりDaTaReportでがんばってみます。
つまらない質問でした。
| ツイート |  |