Module.DeleteLines-Methode (Access)

Artikel
04/07/2023

Mit der DeleteLines-Methode werden Zeilen aus einem Standardmodul oder Klassenmodul gelöscht.

Syntax

Ausdruck. DeleteLines (StartLine, Count)

Ausdruck Eine Variable, die ein Module-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Startline	Erforderlich	Long	Die Nummer der Zeile, ab der mit dem Löschen begonnen werden soll.
Count	Erforderlich	Long	Die Anzahl der zu löschenden Zeilen.

Rückgabewert

Nichts

Bemerkungen

Die Nummerierung der Zeilen eines Moduls beginnt mit 1. Verwenden Sie die CountOfLines-Eigenschaft , um die Anzahl der Zeilen in einem Modul zu bestimmen.

Um eine Zeile durch eine andere Zeile zu ersetzen, verwenden Sie die ReplaceLine-Methode .

Beispiel

Das folgende Beispiel löscht die angegebene Zeile aus einem Modul.

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

Sie können diese Funktion etwa aus der folgenden Prozedur aufrufen, die im Modul Modul1 eine Konstantendeklaration sucht und löscht.

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

Siehe auch

DeleteLines-Methode (VBA Add-In-Objektmodell)

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über