Event Properties [Access 2003 VBA Language Reference]
Event properties cause a macro or the associated Visual Basic event procedure to run when a particular event occurs. For example, if you enter the name of a macro in a command button's OnClick property, that macro runs when the command button is clicked.
To run a macro, enter the name of the macro. You can choose an existing macro in the list. If the macro is in a macro group, it will be listed under the macro group name, as macrogroupname.macroname.
To run the event procedure associated with the event, select [Event Procedure] in the list.
Note Although using an event procedure is the recommended method for running Visual Basic code in response to an event, you can also run a user-defined function when an event occurs. To run a user-defined function, place an equal sign (=) before the function name and parentheses after it, as in =functionname( ).
You can set event properties in the property sheet for an object, in a macro , or by using Visual Basic. Note that you can't set any event properties while you're formatting or printing a form or report.
- The Macro Builder to create and specify a macro for this event property. You can also use the Macro Builder to edit a macro already specified by the property.
- The Code Builder to create and specify an event procedure for this event property. You can also use the Code Builder to edit an event procedure already specified by the property.
- In a Microsoft Access database (.mdb), the Expression Builder to choose and specify a user-defined function for this event property.
In Visual Basic, set the property to a string expression.
|To run this||Use this syntax||Example|
|Event procedure||"[Event Procedure]"||
|User-defined function||"=functionname( )"||
The following example shows how you can use the value entered in the Country control to determine which of two different macros to run when you click the Print Country Report button.
Private Sub Country_AfterUpdate() If Country = "Canada" Then [Print Country Report].OnClick = "PrintCanadaReport" ElseIf Country = "USA" Then [Print Country Report].OnClick = "PrintUSAReport" End If End Sub