Anmerkung
Der Zugriff auf diese Seite erfordert eine Genehmigung. Du kannst versuchen, dich anzumelden oder die Verzeichnisse zu wechseln.
Der Zugriff auf diese Seite erfordert eine Genehmigung. Du kannst versuchen , die Verzeichnisse zu wechseln.
Die CountOfLines-Eigenschaft gibt einen Wert des Datentyps Long zurück, der angibt, wie viele Codezeilen ein Standardmodul oder ein Klassenmodul enthält. Schreibgeschützter Long-Wert.
Syntax
Ausdruck. CountOfLines
Ausdruck Eine Variable, die ein Module-Objekt darstellt.
Hinweise
Die Nummerierung der Zeilen eines Moduls beginnt mit 1.
Die Zeilennummer der letzten Zeile eines Moduls ist gleich dem Wert der CountOfLines-Eigenschaft.
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.