Método Module.InsertText (Access)
El método InsertText inserta una cadena de texto especificada en un módulo estándar o un módulo de clase.
Sintaxis
expresión. InsertText (Texto)
Expresión Variable que representa un objeto Module .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Text | Obligatorio | String | Texto que va a insertarse en el módulo. |
Valor devuelto
Nothing
Comentarios
Cuando se inserta una cadena mediante el método InsertText, Microsoft Access sitúa el texto nuevo al final del módulo, después de que todos los demás procedimientos.
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 Text . Esta constante fuerza un retorno de carro y un avance de línea.
Para especificar en qué línea se inserta el texto, utilice el método InsertLines. Para insertar código en la sección de declaraciones del módulo, utilice el método InsertLines en lugar del método InsertText.
Nota:
[!NOTA] En versiones anteriores de Microsoft Access, el método InsertText era un método del objeto Application. Todavía puede usar el método InsertText del objeto Application , pero se recomienda usar el método InsertText del objeto Module en su lugar.
Ejemplo:
En el ejemplo siguiente se inserta una cadena de texto en un módulo estándar.
Function InsertProc(strModuleName) As Boolean
Dim mdl As Module, strText As String
On Error GoTo Error_InsertProc
' Open module.
DoCmd.OpenModule strModuleName
' Return reference to Module object.
Set mdl = Modules(strModuleName)
' Initialize string variable.
strText = "Sub DisplayMessage()" & vbCrLf _
& vbTab & "MsgBox ""Wild!""" & vbCrLf _
& "End Sub"
' Insert text into module.
mdl.InsertText strText
InsertProc = True
Exit_InsertProc:
Exit Function
Error_InsertProc:
MsgBox Err & ": " & Err.Description
InsertProc = False
Resume Exit_InsertProc
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.