Método Module.InsertLines (Access)
El método InsertLines inserta una línea o un grupo de líneas de código en un módulo estándar o un módulo de clase.
Sintaxis
expresión. InsertLines (Line, String)
Expresión Variable que representa un objeto Module .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Line | Obligatorio | Long | Número de la línea en la que debe comenzar la inserción. |
| String | Obligatorio | String | Texto que va a insertarse en el módulo. |
Valor devuelto
Nothing
Comentarios
Para agregar varias líneas, incluya la constante intrínseca vbCrLf en los saltos de línea deseados dentro de la cadena que constituye el argumento String . Esta constante fuerza un retorno de carro y un fin de línea.
Cuando se usa el método InsertLines , cualquier código existente en la línea especificada por el argumento Line se mueve hacia abajo.
Líneas de un módulo se numeran empezando con uno. Para determinar el número de líneas de un módulo, utilice la propiedad CountOfLines.
Ejemplo:
En el ejemplo siguiente se crea un formulario nuevo, se agrega un botón de comando y se crea un procedimiento de evento Click para el botón de comando.
Function ClickEventProc() As Boolean
Dim frm As Form, ctl As Control, mdl As Module
Dim lngReturn As Long
On Error GoTo Error_ClickEventProc
' Create new form.
Set frm = CreateForm
' Create command button on form.
Set ctl = CreateControl(frm.Name, acCommandButton, , , , _
1000, 1000)
ctl.Caption = "Click here"
' Return reference to form module.
Set mdl = frm.Module
' Add event procedure.
lngReturn = mdl.CreateEventProc("Click", ctl.Name)
' Insert text into body of procedure.
mdl.InsertLines lngReturn + 1, vbTab & "MsgBox ""Way cool!"""
ClickEventProc = True
Exit_ClickEventProc:
Exit Function
Error_ClickEventProc:
MsgBox Err & " :" & Err.Description
ClickEventProc = False
Resume Exit_ClickEventProc
End Function
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.