Zoeken in modules en CBF

[Guus2005]

Ik wil een crossreference functie maken waarmee een string in je module en/of CBF gevonden kan worden. Net zoals de onderstaande procedure waarmee gezicht wordt naar tabel namen in queries.
Which tables are used in queries:

Public Sub XrefTablesInQueries(Optional blnUsed As Boolean = False)
'Loop through all tables to see if their name is used in queries.
'Default only the tables not used in queries are shown.

    Dim tdf      As TableDef
    Dim blnFound As Boolean
    
    For Each tdf In CurrentDb.TableDefs
        If VBA.Left$(tdf.Name, 4) <> "MSys" Then
            blnFound = SearchInQueryDefs(tdf.Name, True)
            If blnFound And blnUsed Then
                Debug.Print "In use: "; tdf.Name
            ElseIf Not blnFound And Not blnUsed Then
                Debug.Print "Not in use: "; tdf.Name
            End If
        End If
    Next tdf
    MsgBox "Done!", vbInformation, "XrefTables: Search completed"
End Sub

Ik wil weten of een bepaalde query wordt gebruikt in modules en/of CBF.

 

[Guus2005]

Gevonden!

http://www.access-programmers.co.uk/forums/showthread.php?t=136037