Nosotros hemos completado una conversión masiva de 39 base de datos a SQL para un cliente en Tennessee que era bastante desafiante, No solo tuvimos que actualizar el tamaño de todas las tablas, sino cambiar el sistema de Importación y exportación en base de datos que usan tablas vinculadas, en ocasiones necesitamos encontrar cuales consultas utilizaba una tabla, así que usamos el siguiente código para ubicar’ rápidamente una tabla en todas las consultas:

Public Function SearchQueries(strTableName As String)
   Dim qdf As DAO.QueryDef
   Dim strSQL As String
   On Error GoTo ErrorHandler
   
   For Each 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
   
   Set qdf = Nothing
   MsgBox "Search Completed"
   
   Exit Function
ErrorHandler:
   If Err.Number = 3258 Then
       strSQL = ""
       Resume
   End If
End Function

Digamos que necesitamos encontrar donde se está usando tblCustomer en la colección de consultas, debemos presionar Ctrl+G para ir inmeditamente a la venta y escribir esto:

?SearchQueries("tblCustomers")

El sistema estará retornando todas las consultas donde es usada, serán mostradas inmediatamente en la misma ventana.

qryCustomerList
qryOrdersByCustomer
qryOrderHistory

¡Espero que este código le sea útil! ¡Déjame saber a través de los comentarios, cualquier persona que deja un comentario será incorporado en un certificado de regalo de $ 25 Amazon.com, Date prisa el concurso termina 6/10/16!