Module.CountOfDeclarationLines-Eigenschaft (Access)

Die CountOfDeclarationLines-Eigenschaft gibt einen Wert des Datentyps Long zurück, der angibt, wie viele Codezeilen der Deklarationsbereich eines Standardmoduls oder eines Klassenmoduls enthält. Schreibgeschützter langer Wert.

Syntax

Ausdruck. CountOfDeclarationLines

Ausdruck Eine Variable, die ein Module-Objekt darstellt.

Hinweise

Die Nummerierung der Zeilen eines Moduls beginnt mit 1.

Der Wert der CountOfDeclarationLinesCountOfDeclarationLines-Eigenschaft ist gleich der Zeilennummer der letzten Zeile im Deklarationsbereich. Verwenden Sie diese Eigenschaft, um zu bestimmen, wo der Abschnitt Deklarationen endet und der Text des Moduls beginnt.

Beispiel

Im folgenden Beispiel werden für ein Standardmodul, das zur Modules-Auflistung gehört, die Anzahl aller Zeilen sowie die Anzahl der Deklarationszeilen ermittelt. Zu beachten ist, dass die Modules-Auflistung nur Module enthält, die im Moduleditor geöffnet sind.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.