Método Module.CreateEventProc (Access)

O método CreateEventProc cria um procedimento de evento em um módulo de classe.

Sintaxe

expressão. CreateEventProc (EventName, ObjectName)

Expressão Uma variável que representa um objeto Module .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Eventname	Obrigatório	String	O nome de um evento.
ObjectName	Obrigatório	String	Um objeto que tem o evento especificado pelo argumento EventName . Se o procedimento de evento estiver sendo adicionado a um Form, a palavra "Form" deverá ser especificada para esse argumento. Se o procedimento de evento estiver sendo adicionado a um Report, a palavra "Report" deverá ser especificada para esse argumento. Se o procedimento de evento estiver sendo adicionado a um Control, o nome do controle deverá ser especificado para esse argumento.

Valor de retorno

Long

Comentários

O valor retornado pelo método CreateEventProc indica o número de linha da primeira linha do procedimento do evento.

O método CreateEventProc cria um fragmento de código para um procedimento de evento para o objeto especificado. Por exemplo, você pode usar esse método para criar um procedimento de evento Clique para um botão de comando em um formulário. O Microsoft Access cria o procedimento de evento Clique no módulo associado ao formulário que contém o botão de comando.

Depois de criar o stub do código do procedimento de evento usando o método CreateEventProc , você pode adicionar linhas de código ao procedimento usando outros métodos do objeto Module . Por exemplo, você pode usar o método InsertLines para inserir uma linha de código.

Exemplo

O exemplo a seguir cria um novo formulário, adiciona um botão de comando e cria um procedimento de evento clique no botão 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.