Метод Module.DeleteLines (Access)
Метод DeleteLines удаляет строки из стандартного модуля или модуля класса.
expression. DeleteLines (StartLine, Count)
Выражение Переменная, представляющая объект Module .
Имя | Обязательный или необязательный | Тип данных | Описание |
---|---|---|---|
StartLine | Обязательный | Long | Номер строки, из которой начинается удаление. |
Count | Обязательный | Long | Количество удаляемых строк. |
Отсутствует
Строки в модуле нумеруются, начиная с единицы. Чтобы определить количество строк в модуле, используйте свойство CountOfLines .
Чтобы заменить одну строку другой строкой, используйте метод ReplaceLine .
В следующем примере из модуля удаляется указанная строка.
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
Эту функцию можно вызвать из следующей процедуры, которая выполняет поиск в модуле Module1 объявления константы и удаляет его.
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
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.