Trova tutte le query che utilizzano una tabella particolare

Abbiamo appena completato una massiccia conversione di 39 database in SQL Server per un client nel Tennessee, il che è stato piuttosto impegnativo, non solo abbiamo dovuto aumentare le dimensioni di tutte le tabelle, ma anche cambiare il sistema dall'importazione/esportazione tra database all'utilizzo di tabelle collegate. A volte dovevamo trovare quali query utilizzavano una tabella, quindi abbiamo utilizzato il codice seguente per trovare rapidamente una tabella in tutte le query:
Public Function SearchQueries(strTableName As String)
Dim qdf As DAO.QueryDef
Dim strSQL As String
On Error GoTo ErrorHandler

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

Imposta qdf =Niente
MsgBox "Ricerca completata"

Exit Function
ErrorHandler:
If Err.Number =3258 Then
strSQL =“”
Resume
End If
End Function
Diciamo dobbiamo trovare dove viene utilizzato tblCustomers nella raccolta di query, premere Ctrl-G per andare alla finestra Immediata e digitare:
?SearchQueries("tblCustomers")
Il sistema restituirà tutte le query utilizzate nella stessa finestra immediata:
qryCustomerList
qryOrdersByCustomer
qryOrderHistory
Spero che questo codice ti sia stato utile! Fammi sapere nei commenti, chiunque lasci un commento verrà inserito in un buono regalo Amazon.com da $ 25, affrettati, il concorso termina il 10/06/16!