Poštovanje Getsbi!
Dugo se nismo čuli, to je zato što zadnjih mjeseci punim bazu, koju sam napravio zahvaljujući svima na ovom forumu, kao i tebi, koji ste mi pomogli. Mada moram iskreno priznati da je to dosadan posao, ali ga netko mora uraditi.
Sad kad je hrpa podataka, dolazi do situacija kad mi šef rekne obriši ovo iz baze, ili obriši ono. Brisanje sam napravio tako da je potrebno označiti checkbox, a nakon toga kliknuti na button
Obrisati, jer u slučaju da se iznenada predomislim za neki podatak, dovoljno ga je otčekirati prije brisanja. Sve je bilo u redu dok je bilo u pitanju par redova,ali dogodilo se je to da imam katakad 100 i više redova, a onda traje dok ih sve označim.
Stoga mi je potreban kod koji će kao u primjeru koda dolje označiti sve checkbox-ove:
Code:
Private Sub Svi_Click()
' Selektuje sve prekidače na formi (ovaj kod se napravi ustvari dva puta za dva buttona, jednim koji se mogu svi označiti, a drugim odznačiti)
Dim ctr As Control
For Each ctr In Controls
If TypeOf ctr Is CheckBox Then
ctr.Value = True
' Vrednost False za "Nijedan"
End If
Next ctr
End Sub
Kao što sam ranije rekao, iako bi prema teoriji mjesta gdje sam našao ovaj kod trebao označiti sve checkbox-ove koji su na formi otvoreni, označi mi samo prvi, a ostale ne.
Ne vidim u čemu je problem? Da li je potrebno možda uključiti i frm da se rekne da se radi o trenutnoj formi?