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.