How many lines of code do I have?

[ChipR]

I was just asked an interesting question: How many lines of vba code do I have in my Access project?

I didn't see any easy way to get this from the editor, and I don't know if it's possible to access the code in text form outside of Access. Anyone have a suggestion?

[missinglinq]

The MZ-Tools addin (freeware) offers a lot of documentation options, including, I believe, the total lines of code for an app.

http://www.mztools.com/index.aspx

Linq ;0)>

[ChipR]

Thanks for the link, Linq :)
That looks like a nice option. Unfortunately for me, I can't use any unapproved programs, and approval takes a long time (from what I hear). Is there any way to get to my Access code in Visual Studio?

[Stewart Ross]

Hi Chip. Investigate the use of the VBComponents collection of the Application.VBE object which is built-in to Access.

For example, the following sub will list the names of the code modules in your current project and the number of lines in each to the immediate window:

Public Sub ModuleInfo()
    Dim basModule As VBComponent
    For Each basModule In Application.VBE.ActiveVBProject.VBComponents
        With basModule
          Debug.Print .Name, .CodeModule.CountOfLines, .CodeModule.CountOfDeclarationLines
        End With
    Next basModule
End Sub

-Stewart

[ChipR]

Perfect! I knew there had to be a way, just never heard of that collection.
Thanks, Stewart.