Se aplică la
Obiectul BoundObjectFrame |
Obiectul Label |
Obiectul Rectangle |
Obiectul CheckBox |
Obiectul ListBox |
Obiectul Section |
Obiectul ComboBox |
Obiectul ObjectFrame |
Obiecte TabControl |
Obiectul CommandButton |
Obiectul OptionButton |
Obiectul TextBox |
Obiectul Form |
Obiectul OptionGroup |
Obiectul ToggleButton |
Obiectul Image |
Obiectul Page |
Setează sau returnează valoarea casetei La Clic din fereastra Proprietăți a unuia dintre obiectele din lista Se aplică la. Șir de caractere în citire/scriere.
expresie.OnClick
expresie Obligatoriu. O expresie care returnează unul dintre obiectele din lista Se aplică la.
Observații
Această proprietate este utilă pentru a schimba prin programare acțiunea efectuată de Microsoft Office Access 2007 atunci când se declanșează un eveniment. De exemplu, între apelurile de evenimente, poate doriți să modificați parametrii unei expresii sau să treceți de la o procedură de eveniment la o expresie sau o macrocomandă, în funcție de circumstanțele în care s-a declanșat evenimentul.
Evenimentul Clic are loc atunci când un utilizator apasă și eliberează butonul mouse-ului deasupra unui obiect.
Valoarea OnClick va fi una dintre următoarele, în funcție de selecția aleasă în fereastra Alegere generator (accesată făcând clic pe butonul Generare de lângă caseta La clic din fereastra Proprietăți a obiectului):
-
Dacă se alege Generatorul de expresii, valoarea va fi „=expresie”, unde expresie este expresia din fereastra Generatorului de expresii.
-
Dacă se alege Generatorul de macrocomenzi, valoarea este numele macrocomenzii.
-
Dacă se alege Generatorul de cod, valoarea va fi „[Procedura eveniment]”.
În cazul în care caseta La Clic este goală, valoarea proprietății este un șir de caractere gol.
Exemplu
Următorul exemplu asociază evenimentul Clic cu procedura de eveniment „OK_Click” pentru butonul numit „OK” din formularul „Order Entry” (Introducere comenzi), dacă în prezent nu există nicio asociere.
With Forms("Order Entry").Controls("OK")
If .OnClick = "" Then
.OnClick = "[Event Procedure]"
End If
End With