Module.CreateEventProc 方法 (Access)

CreateEventProc 方法會在類別模組中建立事件程序。

語法

運算式。CreateEventProc (EventName， ObjectName)

表達 代表 Module 物件的變數。

參數

名稱	必要/選用	資料類型	描述
EventName	必要	String	事件的名稱。
ObjectName	必要	字串	物件，具有 EventName 引數所指定的事件。 如果將事件程序新增至 Form ，則應為此引數指定「表單」這個字。 如果將事件程序新增至 Report ，則應為此引數指定「報表」這個字。 如果將事件程序新增至 Control ，則應為此引數指定控制項的名稱。

傳回值

Long

註解

CreateEventProc 方法所傳回的值會指出事件程序的第一行的行數。

CreateEventProc 方法會建立指定之物件的事件程序的程式碼 stub。 例如，您可以使用這個方法為表單上的命令按鈕建立 Click 事件程序。 Microsoft Access 會在與包含命令按鈕之表單相關聯的模組中建立 Click 事件程序。

使用 CreateEventProc 方法建立事件程序程式程式碼端之後，您可以使用 Module 物件的其他方法，將程式程式碼新增至程式。 例如，您可以使用 InsertLines 方法來插入一行程式碼。

範例

下列範例會建立新表單、新增命令按鈕，以及建立命令按鈕的 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 支援與意見反應。