Propriedade Module.CountOfDeclarationLines (Access)

A propriedade CountOfDeclarationLines retorna um valor Long que indica o número de linhas de código na seção Declaração de um módulo padrão ou de um módulo classe. Long somente leitura.

Sintaxe

expressão. CountOfDeclarationLines

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 valor da propriedade CountOfDeclarationLines é igual ao número da última linha da seção Declaração. Use essa propriedade para determinar onde termina a seção Declarações e o corpo do módulo.

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.