Método Module.DeleteLines (Access)
El método DeleteLines elimina líneas de un módulo estándar o un módulo de clase.
expresión. DeleteLines (StartLine, Count)
Expresión Variable que representa un objeto Module .
Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
---|---|---|---|
Startline | Obligatorio | Long | Número de la línea en la que debe comenzar la eliminación. |
Count | Obligatorio | Long | Número de líneas que se elimina. |
Nothing
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.
Para reemplazar una línea por otra línea, utilice el método ReplaceLine.
En el ejemplo siguiente se elimina una línea especificada de un 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
Puede llamar a esta función desde un procedimiento como el siguiente, que busca en el módulo Module1 una declaración de constante y la elimina.
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
¿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.