Método Module.CreateEventProc (Access)

El método CreateEventProc crea un procedimiento de evento en un módulo de clase.

Sintaxis

expresión. CreateEventProc (EventName, ObjectName)

Expresión Variable que representa un objeto Module .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Eventname	Obligatorio	String	Nombre de evento.
ObjectName	Obligatorio	String	Objeto que tiene el evento especificado por el argumento EventName . Si el procedimiento de evento se va a agregar a un objeto Form, especifique la palabra "Formulario" para este argumento. Si el procedimiento de evento se va a agregar a un objeto Report, especifique la palabra "Informe" para este argumento. Si va a agregar el procedimiento de evento a un Control, especifique el nombre del control para este argumento.

Valor devuelto

Long

Comentarios

El valor devuelto por el método CreateEventProc indica el número de línea de la primera línea del procedimiento de evento.

El método CreateEventProc crea un código auxiliar para un procedimiento de evento para el objeto especificado. Por ejemplo, puede usar este método para crear un procedimiento de evento Click para un botón de comando en un formulario. Microsoft Access crea el procedimiento de evento Click en el módulo asociado al formulario que contiene el botón de comando.

Después de crear el código auxiliar del procedimiento de evento mediante el método CreateEventProc , puede agregar líneas de código al procedimiento mediante otros métodos del objeto Module . Por ejemplo, puede utilizar el método InsertLines para insertar una línea de código.

Ejemplo:

En el ejemplo siguiente se crea un formulario nuevo, se agrega un botón de comando y se crea un procedimiento de evento Click para el botón de comando.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.