Microsoft Office Access
uređuje Branislav Mihaljev, MVP

Aktiviranje prekidača na formi

Nivo:
NIVO 2 - Među ovim prilozima se nalaze preporuke koje se uglavnom odnose na bolje snalaženje i efikasniji rad: dodatni trikovi koji će biti svakom od pomoći i koji upućuju na prag napredne upotrebe programa.

Prilikom dizajniranja forme često se ukazuje potreba za postavljanjem najmanje jednog prekidača, a možda i više njih. Evo predloga kako da inicijalizujete prekidače pri otvaranju forme.

U situacijama kada više prekidača čine izbor, kada su stanja prekidača međusobno zavisna i njihove vrednosti uključive, a korisnik pri tome želi sve sem jednog da isključi (uključi), postavlja se komandni taster za menjanje stanja svih u False (True).

U ovakvoj situaciji manji broj prekidača ne predstavlja veliku muku za isključivanje putem VBA programa. Jednostavno se taksativno pobroje svi prekidači i dodeli im se vrednost False:

Private Sub Svi_Click()
' U događaj OnClick tastera
' "Deselektuj sve":

Check1 = False
Check2 = False
Check3 = False

odnosno vrednost True za OnClick događaj na tasteru "Selektuj sve".

Kod velikog broja prekidača na formi, prilično je nezgodno na ovaj način menjati njihove vrednosti, te se pribegava upotrebi svojstva TypeOf. Sledeći način rešava efikasno problem za neograničen broj prekidača, proveravajući tip kontrole:

1. Na formu sa prekidačima postavite dva tastera sa nazivima "Svi" i "Nijedan"

2. U OnClick događaj tastera "Svi" upišite sledeći kod:

Private Sub Svi_Click()
' Selektuje sve prekidače na formi

Dim ctr As Control
For Each ctr In Controls
  If TypeOf ctr Is CheckBox Then
    ctr.Value = True
  End If
Next ctr
End Sub

3. U OnClick događaju tastera "Nijedan" upišite sledeći kod:

Private Sub Nijedan_Click()
' Deselektuje sve prekidače na formi

Dim ctr As Control
For Each ctr In Controls
  If TypeOf ctr Is CheckBox Then
    ctr.Value = False
  End If
Next ctr
End Sub

Opisana tehnika je jednako primenjiva i na prekidače tipa "Toggle Button" i "Option Button", a rešenje je univerzalno, pa se bez obzira na naziv prekidača (koji može imati vrednosti True i False) može primeniti jednostavnim kopiranjem u OnClick događaj odgovarajućeg kontrolnog tastera na formi.

U obrnutom slučaju, kada treba dozvoliti da samo jedan od više prekidača ima vrednost True, odnosno kada su stanja prekidača isključiva, može se programski na događaj OnClick svakog prekidača postaviti kôd koji će stanja ostalih postaviti na vrednost False. Problem se javlja kada ovu operaciju treba sprovesti na velikom broju prekidača.

Rešenje ovog problema ne leži u programiranju, nego u sledećem postupku:

1. Otvorite formu u dizajn-pogledu.
2. Ako na ekranu nemate grupu ikona "Toolbox", uključite je.
3. Odaberite ikonu "Option Group" i postavite je na formu.
4. Odaberite ikonu "Check Box" i postavite je unutar "Option Group".
5. Ponavljajte tačku 4 dok na formu ne postavite potreban broj prekidača.

Otvorite formu i promenite vrednost jednog prekidača u vrednost True (uključen). Ostali unutar te pseudo-grupe će dobiti vrednost False (isključen). Ovim primerom se ilustruje rešavanje problema bez programiranja, što uvaženo mišljenje da se u Accessu skoro ništa ne može uraditi bez korišćenje VBA samo potvrđuje kao izuzetak.