Van toepassing op
| BoundObjectFrame-object | Label-object | Rectangle-object |
|---|---|---|
| CheckBox-object | ListBox-object | Section-object |
| ComboBox-object | ObjectFrame-object | TabControl-verzameling |
| CommandButton-object | OptionButton-object | TextBox-object |
| Formulierobject | OptionGroup-object | ToggleButton-object |
| Image-object | Page-object |
Stelt de waarde van het vak Bij klik in of retourneert de waarde in het venster Eigenschappen van een van de objecten in de lijst Van toepassing op. Tekenreeks lezen/schrijven.
expressieOnClick
Expressie Vereist. Een expressie die een van de objecten in de lijst Van toepassing op retourneert.
Opmerkingen
Deze eigenschap is handig voor het programmatisch wijzigen van de actie die Door Access wordt uitgevoerd wanneer een gebeurtenis wordt geactiveerd. U wilt bijvoorbeeld tussen gesprekken mogelijk parameters van een expressie wijzigen of wisselen van een gebeurtenisprocedure naar een expressie of een macro, afhankelijk van de omstandigheden waaronder de gebeurtenis is geactiveerd.
De Klik-gebeurtenis vindt plaats wanneer een gebruiker de linkermuisknop indrukt en loslaat over een object.
De OnClick-waarde zal een van de volgende opties zijn, afhankelijk van de gekozen selectie in het venster Opbouwfunctie kiezen (toegankelijk door te klikken op de knop Maken naast het vak Bij klik in het eigenschappenvenster van het object):
- Als de opbouwfunctie voor expressies is geselecteerd, is de waarde "=expression", waar expression de expressie is uit het venster van de opbouwfunctie voor expressies.
- Als de opbouwfunctie voor macro's is geselecteerd, is de waarde de naam van de macro.
- Als de opbouwfunctie voor code is geselecteerd, wordt de waarde "[Gebeurtenisprocedure]".
Als het vak Bij klik leeg is, is de waarde van de eigenschap een lege tekenreeks.
Voorbeeld
Het volgende voorbeeld koppelt de Klik-gebeurtenis met de gebeurtenisprocedure 'OK_Click' voor de knop met de naam 'OK' op het formulier 'Orderinvoer' als er momenteel geen koppeling is.
With Forms("Order Entry").Controls("OK")
If .OnClick = "" Then
.OnClick = "[Event Procedure]"
End If
End With