(Microsoft Access) SQL文を含むクエリ内で特定の文字列を検索

Microsoft Accessで使用するVBAを作成しました。
このVBAは、SQL文を含むクエリ内で特定の文字列を検索する機能を持っています。
大量にクエリが存在する場合、テーブル内の一つの項目名を変更するだけでも、非常に時間がかかる作業となることがあります。

しかし、このコードを使用すれば、どのクエリに特定の文字列が含まれているかを簡単に確認することができます。
これにより、確認作業の時間を大幅に短縮し、見落としを防ぐことができます。
さらに、このコードはクエリだけでなく、レポートからの検索にも利用することが可能です。

microsoft visual basic for applicationsに、モジュールを作成して
下記のコードを入力して実行してください

「●」の部分に特定の文字列を入力して下さい。

Sub SearchquerySQL()
    Dim db As DAO.Database
    Dim qdf As DAO.QueryDef
    Dim results As String
    Dim searchText As String

    searchText = "●" ' 検索する文字列を設定
    Set db = CurrentDb()
    results = ""

    For Each qdf In db.QueryDefs
        If InStr(qdf.SQL, searchText) > 0 Then
            results = results & qdf.Name & vbCrLf
        End If
    Next qdf

    If Len(results) > 0 Then
        MsgBox results, vbInformation, "Found Queries"
    Else
        MsgBox "Text '" & searchText & "' not found in any query.", vbInformation
    End If
End Sub