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.