Свойство Module.CountOfLines (Access)

Свойство CountOfLines возвращает значение Long , указывающее количество строк кода в стандартном модуле или модуле класса. Только для чтения, Long.

Синтаксис

expression. CountOfLines

Выражение Переменная, представляющая объект Module .

Замечания

Строки в модуле нумеруются начиная с 1.

Номер строки последней строки в модуле — это значение свойства CountOfLines .

Пример

В следующем примере подсчитывается количество строк и строк объявления в каждом стандартном модуле в коллекции Modules . Обратите внимание, что коллекция Modules содержит только те модули, которые открыты в редакторе модулей.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.