キーワードがアクセスクエリに存在するかどうかを確認する方法

Question

私の質問は非常に簡単ですが、アクセスデータベースには複数のクエリがあり、どのクエリにも特定のキーワードが存在するかどうかを確認するプロセスを自動作成します。この自動化プロセスは、クエリまたはVBAのいずれかです。誰かが私にどこから始めるべきかを教えてもらえますか？

ありがとうございます！

Answer 1

私はこれを全く別の目的で書いていますが、それはあなたに出発する場所を与えるかもしれません。特定の文字列を探して別の文字列に置き換えて、すべてのクエリを調べます。

Function MassChange(F_string, T_string) 
Dim DB As Database 
Dim QD As QueryDef 
Dim S As String 

Set DB = CurrentDb 
For Each QD In DB.QueryDefs 
    S = QD.SQL 
    If InStr(S, F_string) > 0 Then 
     S = Replace(S, F_string, T_string) 
     QD.SQL = S 
    End If 
Next QD 
MsgBox ("done") 

End Function 

Answer 2

ドン・ジョージの答え@ @vivi使用しますが、あなただけのクエリの名前（複数可）したい場合は、中央部分を置き換える：

If InStr(S, F_string) > 0 Then 
    Debug.Print QD.Name 
End If