Propiedad Module.CountOfDeclarationLines (Access)

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

Sintaxis

expresión. CountOfDeclarationLines

Expresión Variable que representa un objeto Module .

Comentarios

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

El valor de la propiedad CountOfDeclarationLines es igual al número de línea de la última línea de la sección Declaraciones. Use esta propiedad para determinar dónde finaliza la sección Declaraciones y comienza el cuerpo del módulo.

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.