Module.Lines プロパティ (Access)

Lines プロパティは、標準モジュールまたはクラス モジュール内の指定された行または行の内容を含む文字列を返します。 読み取りのみ可能な String 値です。

構文

式。Line (Line, NumLines)

式Module オブジェクトを表す変数。

パラメーター

名前	必須 / オプション	データ型	説明
Line	必須	長整数型 (Long)	最初の行の行番号を示します。
NumLines	必須	長整数型 (Long)	行数を示します。

注釈

モジュールの各行には、1 から始まる番号が割り当てられます。 たとえば、Line 引数に値が 1、NumLines 引数が 1 の Lines プロパティを読み取った場合、Lines プロパティはモジュール内の最初の行のテキストを含む文字列を返します。

モジュールに行を挿入するには、 InsertLines メソッドを使用します。

例

次の使用例では、モジュール内から指定した行を削除します。

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 のサポートおよびフィードバックを参照してください。