키워드가 액세스 쿼리에 있는지 확인하는 방법

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