Module.ProcCountLines property (Access)
The ProcCountLines property returns the number of lines in a specified procedure in a standard module or a class module. Read-only Long.
Syntax
expression.ProcCountLines (ProcName, ProcKind)
expression A variable that represents a Module object.
Parameters
| Name | Required/Optional | Data type | Description |
|---|---|---|---|
| ProcName | Required | String | The name of a procedure in the module. |
| ProcKind | Required | vbext_ProcKind | The type of procedure. See the Remarks section for the possible settings. |
Remarks
The ProcKind argument can be one of the following vbext_ProcKind constants.
| Constant | Description |
|---|---|
| vbext_pk_Get | A Property Get procedure. |
| vbext_pk_Let | A Property Let procedure. |
| vbext_pk_Proc | A Sub or Function procedure. |
| vbext_pk_Set | A Property Set procedure. |
The procedure begins with any comments and compilation constants that immediately precede the procedure definition, denoted by one of the following:
- A Sub statement
- A Function statement
- A Property Get statement
- A Property Let statement
- A Property Set statement
The ProcCountLines property returns the number of lines in a procedure, beginning with the line returned by the ProcStartLine property and ending with the line that ends the procedure. The procedure may be ended with End Sub, End Function, or End Property.
Note
The ProcCountLines property treats Sub and Function procedures similarly, but distinguishes between each type of Property procedure.
Example
The following example displays a message indicating the number of lines in a given procedure.
Dim strForm As String
Dim strProc As String
strForm = "Products"
strProc = "Form_Activate"
MsgBox "There are " & Forms(strForm).Module.ProcCountLines(strProc, vbext_pk_Proc) & _
" lines in the " & strProc & " procedure."
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.