Compartilhar via

Método Module.InsertLines (Access)

  • Artigo

O método InsertLines insere uma linha ou grupo de linhas de código em um módulo padrão ou um módulo de classe.

Sintaxe

expressão. InsertLines (Linha, Cadeia de Caracteres)

Expressão Uma variável que representa um objeto Module .

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Line Obrigatório Long O número da linha no qual começar a inserir.
String Obrigatório String O texto a ser inserido no módulo.

Valor de retorno

Nada

Comentários

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 String . Essa constante força um retorno de carro e um avanço de linha.

Quando você usa o método InsertLines , qualquer código existente na linha especificada pelo argumento Linha é movido para baixo.

Linhas em um módulo são numeradas começando com um. Para determinar o número de linhas em um módulo, use a propriedade CountOfLines.

Exemplo

O exemplo a seguir cria um novo formulário, adiciona um botão de comando e cria um procedimento de evento clique no botão 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

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.