Some useful code... I wanted to count the lines of code in my Access database, and looked around for a tool. I found something from 2007 that no longer worked, so I asked ChatGPT to create one for me.  I also asked to include a parameter to choose between varying levels of verboseness.  It consists of a function that may be called in the immediate window and a related helper function.

     Usage:  CountLinesInAllModules
          or      CountLinesInAllModules 3 ' for more verbose detail

I added the following code as its own module to be easier to be portable between Access projects.


'---------------------------------- (begin code module)-----
Option Compare Database
Option Explicit

Public Function CountLinesInAllModules(Optional iVerboseLevel As Integer = 3) As Long
' Purpose:   Count the number of lines of code in your database.
' Argument:  iVerboseLevel: This number is a bit field, indicating what should print to the Immediate Window:
'               0 displays nothing
'               1 displays a summary for the module type (form, report, stand-alone.)
'               2 lists the lines in each module
'               3 displays the summary and the list of modules.

    Dim obj As Object
    Dim modul As Module
    Dim lineCount As Long
    Dim objType As String

    ' Count lines in standalone modules
    objType = "stand-alone module(s)"
    For Each obj In CurrentProject.AllModules
        Set modul = Application.Modules(obj.Name)
        lineCount = lineCount + CountLinesInModule(modul, obj.Name, iVerboseLevel, objType)
    Next obj

    ' Count lines in forms
    objType = "module(s) behind forms"
    For Each obj In CurrentProject.AllForms
        DoCmd.OpenForm obj.Name, acDesign, WindowMode:=acHidden
        If Forms(obj.Name).HasModule Then
            On Error Resume Next
            Set modul = Application.Modules("Form_" & obj.Name)
            If Err.Number = 0 Then
                lineCount = lineCount + CountLinesInModule(modul, "Form_" & obj.Name, iVerboseLevel, objType)
            End If
            On Error GoTo 0
        End If
        DoCmd.Close acForm, obj.Name, acSaveNo
    Next obj

    ' Count lines in reports
    objType = "module(s) behind reports"
    For Each obj In CurrentProject.AllReports
        DoCmd.OpenReport obj.Name, acDesign, WindowMode:=acHidden
        If Reports(obj.Name).HasModule Then
            On Error Resume Next
            Set modul = Application.Modules("Report_" & obj.Name)
            If Err.Number = 0 Then
                lineCount = lineCount + CountLinesInModule(modul, "Report_" & obj.Name, iVerboseLevel, objType)
            End If
            On Error GoTo 0
        End If
        DoCmd.Close acReport, obj.Name, acSaveNo
    Next obj

    ' Print total count and return
    If (iVerboseLevel And 1) <> 0 Then
        Debug.Print "Total: " & lineCount & " line(s)"
    End If
    CountLinesInAllModules = lineCount
End Function


Private Function CountLinesInModule(modul As Module, objName As String, iVerboseLevel As Integer, objType As String) As Long
    Dim lineCount As Long
    lineCount = modul.CountOfLines
    If (iVerboseLevel And 2) <> 0 Then
        Debug.Print objName & ": " & lineCount & " line(s)"
    End If
    If (iVerboseLevel And 1) <> 0 Then
        Debug.Print lineCount & " line(s) in " & objType
    End If
    CountLinesInModule = lineCount
End Function