Compartilhar via

Método Module.DeleteLines (Access)

  • Artigo

O método DeleteLines exclui linhas de um módulo padrão ou um módulo de classe.

Sintaxe

expressão. DeleteLines (StartLine, Count)

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

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Startline Obrigatório Long O número da linha no qual começar a excluir.
Count Obrigatório Long O número de linhas a ser excluído.

Valor de retorno

Nada

Comentários

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.

Para substituir uma linha por outra linha, use o método ReplaceLine.

Exemplo

O exemplo a seguir exclui uma linha especificada de um módulo.

Function DeleteWholeLine(strModuleName, strText As String) _ 
 As Boolean 
 Dim mdl As Module, lngNumLines As Long 
 Dim lngSLine As Long, lngSCol As Long 
 Dim lngELine As Long, lngECol As Long 
 Dim strTemp As String 
 
 On Error GoTo Error_DeleteWholeLine 
 DoCmd.OpenModule strModuleName 
 Set mdl = Modules(strModuleName) 
 
 If mdl.Find(strText, lngSLine, lngSCol, lngELine, lngECol) Then 
 lngNumLines = Abs(lngELine - lngSLine) + 1 
 strTemp = LTrim$(mdl.Lines(lngSLine, lngNumLines)) 
 strTemp = RTrim$(strTemp) 
 If strTemp = strText Then 
 mdl.DeleteLines lngSLine, lngNumLines 
 Else 
 MsgBox "Line contains text in addition to '" _ 
 & strText & "'." 
 End If 
 Else 
 MsgBox "Text '" & strText & "' not found." 
 End If 
 DeleteWholeLine = True 
 
Exit_DeleteWholeLine: 
 Exit Function 
 
Error_DeleteWholeLine: 
 MsgBox Err & " :" & Err.Description 
 DeleteWholeLine = False 
 Resume Exit_DeleteWholeLine 
End Function

Essa função poderia ser chamada a partir de um procedimento como este, que procura uma declaração de constante no módulo Module1 e a exclui.

Sub DeletePiConst() 
 If DeleteWholeLine("Module1", "Const conPi = 3.14") Then 
 Debug.Print "Constant declaration deleted successfully." 
 Else 
 Debug.Print "Constant declaration not deleted." 
 End If 
End Sub

Confira também

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.