Module.InsertLines-Methode (Access)

Mit der InsertLines-Methode werden eine oder mehrere Codezeilen in ein Standardmodul oder Klassenmodul eingefügt.

Syntax

Ausdruck. InsertLines (Line, String)

Ausdruck Eine Variable, die ein Module-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Line	Erforderlich	Long	Die Nummer der Zeile, ab der mit dem Einfügen begonnen wird.
String	Erforderlich	String	Der Text, der in das Modul eingefügt werden soll.

Rückgabewert

Nichts

Bemerkungen

Um mehrere Zeilen hinzuzufügen, schließen Sie die systeminterne Konstante vbCrLf an den gewünschten Zeilenumbrüchen in die Zeichenfolge ein, aus der das String-Argument besteht. Diese Konstante fügt einen Wagenrücklauf und Zeilenvorschub ein.

Wenn Sie die InsertLines-Methode verwenden, wird der vorhandene Code in der durch das Argument Line angegebenen Zeile nach unten verschoben.

Die Nummerierung der Zeilen eines Moduls beginnt mit 1. Verwenden Sie die CountOfLines-Eigenschaft , um die Anzahl der Zeilen in einem Modul zu bestimmen.

Beispiel

Im folgenden Beispiel wird ein neues Formular erstellt, eine Befehlsschaltfläche hinzugefügt und eine Click-Ereignisprozedur für die Befehlsschaltfläche erstellt.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.