m6u's blog

便利な製品・サービス・アプリを見つけては、その評価を書き続けるブログ

Access VBA:クエリーのSQL文を調べあげる方法

 消費税増税対応などで、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って書いているかなんてすぐわかっちゃうわけです。 大変便利。