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.