Намерете всички заявки, които използват конкретна таблица

Току-що завършихме огромно 39 конвертиране на база данни в SQL Server за клиент в Тенеси, което беше доста предизвикателно, трябваше не само да увеличим размера на всички таблици, но и да превключим системата от импортиране/експортиране между бази данни към използване на свързани таблици вместо това. Понякога трябваше да намерим кои заявки използват таблица, така че използвахме следния код, за да намерим бързо таблица във всички заявки:
Public Function SearchQueries(strTableName As String)
Dim qdf As DAO.QueryDef
Dim strSQL As String
On Error GoTo ErrorHandler

За всеки qdf In CurrentDb.QueryDefs
Application.Echo True, qdf.Name
strSQL =qdf.SQL
Ако InStr(1, strSQL, strTableName)> 0 Тогава
Отстраняване на грешки. Отпечатайте qdf.Name
Край, ако
Следващ qdf

Задайте qdf =Нищо
MsgBox „Търсенето е завършено“

Изход функция
ErrorHandler:
Ако Err.Number =3258 Тогава
strSQL =“”
Възобновяване
Край, ако
Край на функция
Да кажем трябва да намерим къде се използва tblCustomers в колекцията от заявки, ще натиснем Ctrl-G, за да отидем в прозореца Immediate и напишем:
?SearchQueries("tblCustomers")
Системата ще върне всички заявки, използвани в един и същ непосредствен прозорец:
qryCustomerList
qryOrdersByCustomer
qryOrderHistory
Надявам се да намерите този код за полезен! Уведомете ме в коментарите, всеки, който остави коментар, ще получи сертификат за подарък от Amazon.com от $25, побързайте, конкурсът приключва на 10.06.16!