Module.CountOfDeclarationLines プロパティ (Access)

CountOfDeclarationLines プロパティは、標準モジュールまたはクラス モジュールの Declarations セクションのコード行数を示す Long 値を返します。 取得のみ可能な Long 値です。

構文

式。CountOfDeclarationLines

式Module オブジェクトを表す変数。

注釈

モジュールの各行には、1 から始まる番号が割り当てられます。

CountOfDeclarationLines プロパティの値は、宣言セクションの最後の行の行番号と同じ値になります。 このプロパティを使用して、 [宣言] セクションが終了し、モジュールの本文が開始される場所を決定します。

例

次の使用例では、 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 のサポートおよびフィードバックを参照してください。