Module.CreateEventProc-Methode (Access)

Die CreateEventProc-Methode erstellt eine Ereignisprozedur in einem Klassenmodul.

Syntax

Ausdruck. CreateEventProc (EventName, ObjectName)

Ausdruck Eine Variable, die ein Module-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
EventName	Erforderlich	String	Der Name eines Ereignisses.
ObjectName	Erforderlich	String	Ein -Objekt, dessen Ereignis durch das EventName-Argument angegeben wird. Wenn die Ereignisprozedur einem Formular hinzugefügt wird, sollte für dieses Argument das Wort "Form" angegeben werden. Wenn die Ereignisprozedur einem Bericht hinzugefügt wird, sollte für dieses Argument das Wort "Report" angegeben werden. Wenn die Ereignisprozedur einem Steuerelement hinzugefügt wird, sollte der Name des Steuerelements für dieses Argument angegeben werden.

Rückgabewert

Long

Hinweise

Der durch die CreateEventProc-Methode zurückgegebene Wert gibt die Nummer der ersten Zeile der Ereignisprozedur an.

Die CreateEventProc-Methode erstellt einen Codestub für eine Ereignisprozedur für das angegebene Objekt. Sie können diese Methode beispielsweise verwenden, um eine Click-Ereignisprozedur für eine Befehlsschaltfläche in einem Formular zu erstellen. Microsoft Access erstellt die Click-Ereignisprozedur in dem Modul, das dem Formular zugeordnet ist, das die Befehlsschaltfläche enthält.

Nachdem Sie den Ereignisprozedurcode-Stub mithilfe der CreateEventProc-Methode erstellt haben, können Sie der Prozedur Codezeilen hinzufügen, indem Sie andere Methoden des Module-Objekts verwenden. Sie können beispielsweise die InsertLines-Methode verwenden, um eine Codezeile einzufügen.

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.