消費税増税対応などで、Accessで組んだクエリーで固定値として1.05とか書いちゃっているのを直さなきゃいけないような人は、いちいちクエリーをもぐらたたきするのは大変な手間になります。
そこで、簡単にクエリーのSQL文をテキストファイルに出力するサブルーチンを起こしてみました。
Public Sub AllQueryName() Dim c As Long, i As Long, fno As Long Dim qd As DAO.QueryDef fno = FreeFile c = CurrentDb.QueryDefs.Count Open "C:\クエリー一覧.txt" For Output As #fno For i = 0 To c - 1 Set qd = CurrentDb.QueryDefs(i) Print #fno, ">>" & qd.name & "<<" & vbCrLf & qd.SQL & vbCrLf Next Set qd = Nothing Close #fno End Sub
これで一旦テキストファイルに出力してしまえば、どのクエリーで1.05って書いているかなんてすぐわかっちゃうわけです。 大変便利。