Propriedade Module.CountOfLines (Access)

Propriedade CountOfLines retorna um valor Long que indica o número de linhas de código em um módulo padrão ou um módulo de classe. Long somente leitura.

Sintaxe

expressão. CountOfLines

Expressão Uma variável que representa um objeto Module .

Comentários

As linhas de um módulo são numeradas a partir de 1.

O número da linha da última linha em um módulo é o valor da propriedade CountOfLines.

Exemplo

O exemplo a seguir conta o número de linhas e linhas de declaração em cada módulo padrão na coleção Modules. Observe que a coleção Modules contém apenas os módulos abertos no editor do módulo.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.