Compartir a través de

Método Module.DeleteLines (Access)

  • Artículo

El método DeleteLines elimina líneas de un módulo estándar o un módulo de clase.

Sintaxis

expresión. DeleteLines (StartLine, Count)

Expresión Variable que representa un objeto Module .

Parameters

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.

Valor devuelto

Nothing

Comentarios

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.

Ejemplo:

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

Consulte también

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.