opendatabase

[bbxrider]

how can I do the same functionality as below only when I open a db different from the one I have
open with opendatabase, I want dump to forms, macros, everything

For i = 0 To (Application.CurrentProject.AllModules.Count) - 1    modName = Application.CurrentProject.AllModules(i).Name
    DoCmd.OpenModule modName
    Set moduleObj = Modules(modName)
    If moduleObj.CountOfLines > 0 Then
       f.WriteLine (" ")
       f.WriteLine ("+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++")
       f.WriteLine ("Start of Module " & modName)
       f.Write moduleObj.Lines(1, moduleObj.CountOfLines) & " "
    End If
    DoCmd.Close acModule, modName
    Set moduleObj = Nothing
Next

[ranman256]

No code needed.
menu bar, export, access.

[bbxrider]

thanks, but I was looking for a custom tool, the db is designed for non-tech users and the tool bars are turned
off, I would like to set up a db as an utility like app that I can use to access perhaps 50+ db apps throughout the
company domain to get internals