Método Module.InsertText (Access)
O método InsertText insere uma cadeia de texto especificada em um módulo padrão ou um módulo de classe.
Sintaxe
expressão. InsertText (Texto)
Expressão Uma variável que representa um objeto Module .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Text | Obrigatório | String | O texto a ser inserido no módulo. |
Valor de retorno
Nada
Comentários
Quando você insere uma cadeia de caracteres usando o método InsertText, o Microsoft Access coloca o novo texto no final do módulo, após todos os outros procedimentos.
Para adicionar várias linhas, inclua a constante intrínseca vbCrLf nas quebras de linha desejadas dentro da cadeia de caracteres que compõe o argumento Texto . Essa constante força um retorno de carro e alimentação de linha.
Para especificar em que linha o texto será inserido, use o método InsertLines. Para inserir o código na seção declarações do módulo, use o método InsertLines em vez do método InsertText.
Observação
[!OBSERVAçãO] Nas versões anteriores do Microsoft Access, o método InsertText era um método do objeto Application. Você ainda pode usar o método InsertText do objeto Application , mas recomendamos que você use o método InsertText do objeto Module .
Exemplo
O exemplo a seguir insere uma cadeia de caracteres de texto em um módulo padrão.
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
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.