Module.InsertLines メソッド (Access)

InsertLines メソッドは、標準モジュールまたはクラス モジュールに、1 行または複数行を挿入します。

構文

式。InsertLines (Line, String)

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

パラメーター

名前	必須 / オプション	データ型	説明
Line	必須	長整数型 (Long)	挿入を開始する行番号を指定します。
String	必須	String	モジュールに挿入する文字列を指定します。

戻り値

なし

解説

複数の行を追加するには、String 引数を構成する文字列内の目的の改行に組み込み定数 vbCrLfを 含めます。 この定数は、強制的にキャリッジ リターンおよびライン フィードを実行します。

InsertLines メソッドを使用すると、Line 引数で指定された行にある既存のコードが下に移動します。

モジュール内の行番号は 1 で始まります。 モジュール内の行数を調べるには、 CountOfLines プロパティを使います。

例

次の例では、新しいフォームを作成し、コマンド ボタンを追加し、コマンド ボタンの Click イベント プロシージャを作成します。

Function ClickEventProc() As Boolean 
 Dim frm As Form, ctl As Control, mdl As Module 
 Dim lngReturn As Long 
 
 On Error GoTo Error_ClickEventProc 
 ' Create new form. 
 Set frm = CreateForm 
 ' Create command button on form. 
 Set ctl = CreateControl(frm.Name, acCommandButton, , , , _ 
 1000, 1000) 
 ctl.Caption = "Click here" 
 ' Return reference to form module. 
 Set mdl = frm.Module 
 ' Add event procedure. 
 lngReturn = mdl.CreateEventProc("Click", ctl.Name) 
 ' Insert text into body of procedure. 
 mdl.InsertLines lngReturn + 1, vbTab & "MsgBox ""Way cool!""" 
 ClickEventProc = True 
 
Exit_ClickEventProc: 
 Exit Function 
 
Error_ClickEventProc: 
 MsgBox Err & " :" & Err.Description 
 ClickEventProc = False 
 Resume Exit_ClickEventProc 
End Function

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。