Note
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
La méthode CreateEventProc crée une procédure événementielle dans un module de classe.
Syntaxe
expression. CreateEventProc (EventName, ObjectName)
Expression Variable qui représente un objet Module .
Parameters
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| Eventname | Obligatoire | String | Nom d'un événement. |
| ObjectName | Obligatoire | String | Objet dont l’événement est spécifié par l’argument EventName . Si la procédure événementielle est ajoutée à un Form, le terme Formulaire doit être précisé pour cet argument. Si elle est ajoutée à un Report, le terme État doit être précisé pour cet argument. Si elle est ajoutée à un Control, le nom du contrôle doit être précisé pour cet argument. |
Valeur renvoyée
Entier long
Remarques
La valeur renvoyée par la méthode CreateEventProc indique le numéro de ligne de la première ligne de la procédure événementielle.
La méthode CreateEventProc crée une délimitation de code pour une procédure d'événement pour l'objet spécifié. Par exemple, vous pouvez utiliser cette méthode pour créer une procédure événementielle Click pour un bouton de commande sur un formulaire. Microsoft Access crée la procédure événementielle Click dans le module associé au formulaire qui contient le bouton de commande.
Une fois que vous avez créé le stub de code de procédure événementielle à l’aide de la méthode CreateEventProc , vous pouvez ajouter des lignes de code à la procédure à l’aide d’autres méthodes de l’objet Module . Par exemple, vous pouvez utiliser la méthode InsertLines pour insérer une ligne de code.
Exemple
L’exemple suivant crée un formulaire, ajoute un bouton de commande et crée une procédure événementielle Click pour le bouton de commande.
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
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.