次の方法で共有


Module.InsertText メソッド (Access)

InsertText メソッドは、指定した文字列を標準モジュールまたはクラス モジュールに挿入します。

構文

InsertText (Text)

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

パラメーター

名前 必須 / オプション データ型 説明
テキスト 必須 String モジュールに挿入する文字列を指定します。

戻り値

なし

解説

InsertText メソッドを使って文字列を挿入すると、文字列は、モジュールの末尾 (他のすべてのプロシージャの後) に配置されます。

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

指定した行にテキストを挿入するには、 InsertLines メソッドを使います。 モジュールの宣言セクションにコードを挿入するには、 InsertText メソッドではなく InsertLines メソッドを使います。

注:

[!メモ] 以前のバージョンの Microsoft Access では、 InsertText メソッドは Application オブジェクトのメソッドでした。 Application オブジェクトの InsertText メソッドは引き続き使用できますが、代わりに Module オブジェクトの InsertText メソッドを使用することをお勧めします。

次の例では、テキストの文字列を標準モジュールに挿入します。

Function InsertProc(strModuleName) As Boolean 
 Dim mdl As Module, strText As String 
 
 On Error GoTo Error_InsertProc 
 ' Open module. 
 DoCmd.OpenModule strModuleName 
 ' Return reference to Module object. 
 Set mdl = Modules(strModuleName) 
 ' Initialize string variable. 
 strText = "Sub DisplayMessage()" & vbCrLf _ 
 & vbTab & "MsgBox ""Wild!""" & vbCrLf _ 
 & "End Sub" 
 ' Insert text into module. 
 mdl.InsertText strText 
 InsertProc = True 
 
Exit_InsertProc: 
 Exit Function 
 
Error_InsertProc: 
 MsgBox Err & ": " & Err.Description 
 InsertProc = False 
 Resume Exit_InsertProc 
End Function

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

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