Propiedad Module.ProcBodyLine (Access)
La propiedad ProcBodyLine devuelve el número de la línea en la que comienza el cuerpo de un procedimiento especificado en un módulo estándar o un módulo de clase. Long de sólo lectura.
Sintaxis
expresión. ProcBodyLine (ProcName, ProcKind)
Expresión Variable que representa un objeto Module .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| ProcName | Obligatorio | String | El nombre de un procedimiento del módulo. |
| ProcKind | Obligatorio | vbext_ProcKind | El tipo de procedimiento. Vea la sección Comentarios para los valores posibles. |
Comentarios
El argumento ProcKind puede ser una de las siguientes constantes de vbext_ProcKind .
| Constante | Descripción |
|---|---|
| vbext_pk_Get | Un procedimiento Property Get. |
| vbext_pk_Let | Un procedimiento Property Let. |
| vbext_pk_Proc | Un procedimiento Sub o Function. |
| vbext_pk_Set | Un procedimiento Property Set. |
El cuerpo de un procedimiento comienza por la definición de procedimiento, indicada por una de las siguientes instrucciones:
- Una instrucción Sub
- Una instrucción Function
- Una instrucción Get de propiedad
- Una instrucción Let de propiedad
- Una instrucción Property Set
La propiedad ProcBodyLine devuelve un número de línea que identifica la línea en la que comienza la definición de procedimiento. Por el contrario, la propiedad ProcStartLine devuelve un número que identifica la línea en la que se separa un procedimiento del procedimiento anterior en un módulo. Todos los comentarios o las constantes de compilación que preceden a la definición de procedimiento (el cuerpo de un procedimiento) se consideran parte del procedimiento, pero la propiedad ProcBodyLine los omite.
Nota:
La propiedad ProcBodyLine trata los procedimientos Sub y Function de forma similar, pero distingue entre cada tipo de procedimiento Property.
Ejemplo:
En el ejemplo siguiente se muestra un mensaje que indica en qué línea comienza la definición del procedimiento.
Dim strForm As String
Dim strProc As String
strForm = "Products"
strProc = "Products_Subform_Enter"
MsgBox "The definition of the " & strProc & " procedure begins on line " & _
Forms(strForm).Module.ProcStartLine(strProc, vbext_pk_Proc) & "."
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.