Module.DeleteLines メソッド (Access)
DeleteLines メソッドは、標準モジュールまたはクラス モジュールの内容から指定された行を削除します。
構文
式。DeleteLines (StartLine、 Count)
式Module オブジェクトを表す変数。
パラメーター
名前 | 必須 / オプション | データ型 | 説明 |
---|---|---|---|
Startline | 必須 | 長整数型 (Long) | 削除を開始する行番号を指定します。 |
Count | 必須 | 長整数型 (Long) | 削除する行数を指定します。 |
戻り値
なし
解説
モジュール内の行番号は 1 で始まります。 モジュール内の行数を調べるには、 CountOfLines プロパティを使います。
1 つの行を別の行と置換するには、 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 のサポートおよびフィードバックを参照してください。