[RESOLVED] Find string in a MS Access Module using DAO

[WeePecky]

Hi,

I am trying to write some VB6 code that will seek out a specific string in an Access Code Module. I can get to the modules name but cannot find properties or methods which will give me a handle to the code within the module.

Is it possible to do this?
If it is, could you please point me to an example or help.
Thanks
Wee!

========


Dim ctrLoop As Container
Dim prpLoop As Property
Dim doc As Document

With db
' Enumerate Containers collection.
For Each ctrLoop In .Containers
For Each doc In ctrLoop.Documents

If ctrLoop.Name = "Modules" Then
Debug.Print "Container: " & ctrLoop.Name & " Document: " & doc.Name & " Owner: " & doc.Owner
For Each prpLoop In doc.Properties
Debug.Print doc.Properties(x).Name
Next
End If

Next
Next ctrLoop


End With