Propiedad Module.CountOfLines (Access)

La propiedad CountOfLines devuelve un valor de tipo Long que indica el número de líneas de código en un módulo estándar o un módulo de clase. Long de sólo lectura.

Sintaxis

expresión. CountOfLines

Expresión Variable que representa un objeto Module .

Comentarios

Las líneas de un módulo se numeran a partir de 1.

El número de línea de la última línea en un módulo es el valor de la propiedad CountOfLines.

Ejemplo:

El ejemplo siguiente cuenta el número de líneas y de líneas de declaración de cada módulo estándar de la colección Modules. Tenga en cuenta que la colección Modules contiene sólo módulos que están abiertos en el editor de módulos.

Public Sub ModuleLineTotal(ByVal strModuleName As String) 
 
 Dim mdl As Module 
 
 ' Open module to include in Modules collection. 
 DoCmd.OpenModule strModuleName 
 
 ' Return reference to Module object. 
 Set mdl = Modules(strModuleName) 
 
 ' Print number of lines in module. 
 Debug.Print "Number of lines: ", mdl.CountOfLines 
 
 ' Print number of declaration lines. 
 Debug.Print "Number of declaration lines: ", _ 
 mdl.CountOfDeclarationLines 
 
End Sub

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.