特定のテーブルを使用するすべてのクエリを検索

テネシー州のクライアントのSQLServerへの大規模なデータベース変換を完了したばかりです。これは非常に困難でした。すべてのテーブルをアップサイズするだけでなく、システムをデータベース間のインポート/エクスポートからリンクテーブルの使用に切り替える必要がありました。テーブルを使用しているクエリを見つける必要がある場合があるため、次のコードを使用して、すべてのクエリでテーブルをすばやく見つけました。
Public Function SearchQueries(strTableName As String)
Dim qdf As DAO.QueryDef
Dim strSQL As String
On Error GoTo ErrorHandler

CurrentDb.QueryDefsの各qdfについて
Application.EchoTrue、qdf.Name
strSQL =qdf.SQL
If InStr（1、strSQL、strTableName）> 0 Then
デバッグ。 qdf.Nameを出力
EndIf
Next qdf

qdf =Nothing
MsgBox“ Search Completed”

Exit Function
ErrorHandler：
If Err.Number =3258 Then
strSQL =“”
Resume
End If
End Function
言いましょうクエリコレクションでtblCustomersが使用されている場所を見つける必要がある場合は、Ctrl-Gを押してイミディエイトウィンドウに移動し、次のように入力します。
?SearchQueries("tblCustomers")
システムは、同じイミディエイトウィンドウで使用されているすべてのクエリを返します。
qryCustomerList
qryOrdersByCustomer
qryOrderHistory
このコードがお役に立てば幸いです！コメントで教えてください。コメントを残した人は誰でも25ドルのAmazon.comギフト券に入れられます。急いで、コンテストは2016年6月10日に終了します！