Se aplica a
|
Objeto BoundObjectFrame |
Objeto Label |
Objeto Rectangle |
|
Objeto CheckBox |
Objeto ListBox |
Objeto Section |
|
Objeto ComboBox |
Objeto ObjectFrame |
Colección TabControl |
|
Objeto CommandButton |
Objeto OptionButton |
Objeto TextBox |
|
Objeto Form |
Objeto OptionGroup |
Objeto ToggleButton |
|
Objeto Image |
Objeto Page |
Establece o devuelve el valor del cuadro Al hacer clic de la ventana Propiedades de uno de los objetos de la lista Se aplica a. Valor String de lectura y escritura.
expresión.OnClick
expresión Requerido. Una expresión que devuelve uno de los objetos de la lista Se aplica a.
Observaciones
Esta propiedad es útil para cambiar mediante programación la acción que ejecuta Microsoft Office Access 2007 cuando se desencadena un evento. Por ejemplo, entre llamadas de evento es posible que quiera cambiar los parámetros de una expresión o cambiar de un procedimiento de evento a una expresión o macro, según las circunstancias en las que se desencadene el evento.
El evento Click se produce cuando un usuario presiona y suelta el botón primario del mouse sobre un objeto.
El valor OnClick será uno de los siguientes, según la selección elegida en la ventana Elegir generador (a la que se tiene acceso haciendo clic en el botón Generar situado junto al cuadro Al hacer clic en la ventana de Propiedades del objeto):
-
Si se selecciona Generador de expresiones, el valor será "=expresión", donde expresión es la expresión de la ventana Generador de expresiones.
-
Si se selecciona Generador de macros, el valor es el nombre de la macro.
-
Si se selecciona Generador de código, el valor será "[procedimiento de evento]".
Si el cuadro Al hacer clic está en blanco, el valor de la propiedad es una cadena vacía.
Ejemplo
En el ejemplo siguiente se asocia el evento Click con el procedimiento de evento "Aceptar_Click" para el botón denominado "Aceptar" del formulario "Introducción de pedidos", si actualmente no hay ninguna asociación.
With Forms("Order Entry").Controls("OK")
If .OnClick = "" Then
.OnClick = "[Event Procedure]"
End If
End With
