Good try but following code displayed zero modules.
i = 0
For Each accObj In CurrentProject.AllModules
i = i + 1
Call WriteOutModules(accObj.Name, True)
Next
MsgBox "Found " & i & " modules", , "CreateModuleFiles"
-- Dorian
"Give someone a fish and they eat for a day; teach someone to fish and they
eat for a lifetime".
"Jerry Whittle" wrote:
> I have some doubts that you'll be able to. You might try this:
>
> http://www.demtron.com/blog/post/200...ft-Access.aspx
> --
> Jerry Whittle, Microsoft Access MVP
> Light. Strong. Cheap. Pick two. Keith Bontrager - Bicycle Builder.
>
>
> "Dorian" wrote:
>
> > I inadvertently deleted a module. I can see from the mdb file size that it
> > probably still exists somewhere (I have not done compact). Is there any way
> > to recover it? I have no back up since I just newly coded it.
> > -- Dorian
> > "Give someone a fish and they eat for a day; teach someone to fish and they
> > eat for a lifetime".