Propriété Module.CountOfLines (Access)

La propriété CountOfLines retourne une valeur de type Long indiquant le nombre de lignes de code dans un module standard ou un module de classe. Long (en lecture seule).

Syntaxe

expression. CountOfLines

Expression Variable qui représente un objet Module .

Remarques

Les lignes d'un module sont numérotées à partir de 1.

Le numéro de ligne de la dernière ligne dans un module est la valeur de la propriété CountOfLines.

Exemple

L'exemple suivant compte le nombre de lignes et les lignes de déclaration dans chaque module standard de la collection Modules. Notez que la collection Modules contienne uniquement les modules qui sont ouverts dans l'éditeur de module.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.