Zoek alle zoekopdrachten die een bepaalde tabel gebruiken

We hebben zojuist een enorme conversie van 39 databases naar SQL Server uitgevoerd voor een klant in Tennessee, wat behoorlijk uitdagend was, we moesten niet alleen alle tabellen vergroten, maar het systeem overschakelen van het importeren/exporteren tussen databases naar het gebruik van gekoppelde tabellen. Soms moesten we achterhalen welke query's een tabel gebruikten, dus gebruikten we de volgende code om snel een tabel in alle query's te vinden:
Public Function SearchQueries(strTableName As String)
Dim qdf As DAO.QueryDef
Dim strSQL As String
On Error GoTo ErrorHandler

Voor elke qdf in CurrentDb.QueryDefs
Application.Echo True, qdf.Name
strSQL =qdf.SQL
If InStr(1, strSQL, strTableName)> 0 Then
Debug. Print qdf.Name
End If
Next qdf

Stel qdf =Niets in
MsgBox "Zoeken voltooid"

Functie afsluiten
ErrorHandler:
If Err.Number =3258 Then
strSQL =“”
Resume
End If
Functie beëindigen
Laten we zeggen we moeten vinden waar tblCustomers wordt gebruikt in de zoekopdrachtverzameling, we zouden op Ctrl-G drukken om naar het onmiddellijke venster te gaan en typen:
?SearchQueries("tblCustomers")
Het systeem retourneert alle zoekopdrachten waar ze zijn gebruikt in hetzelfde directe venster:
qryCustomerList
qryOrdersByCustomer
qryOrderHistory
Ik hoop dat je deze code nuttig vindt! Laat het me weten in de reacties, iedereen die een reactie achterlaat, krijgt een Amazon.com-cadeaubon van $ 25, schiet op, wedstrijd eindigt op 10-6-16!