Propiedad Module.Lines (Access)

La propiedad Lines devuelve una cadena que contiene el contenido de una línea o líneas especificadas en un módulo estándar o un módulo de clase. String de solo lectura.

Sintaxis

expresión. Líneas (Línea, NumLines)

Expresión Variable que representa un objeto Module .

Parameters

Comentarios

Las líneas de un módulo se numeran a partir de 1. Por ejemplo, si lee la propiedad Lines con un valor de 1 para el argumento Line y 1 para el argumento NumLines , la propiedad Lines devuelve una cadena que contiene el texto de la primera línea del módulo.

Para insertar una línea de texto en un módulo, utilice el método InsertLines.

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

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.