title image


Smiley Re: Alle Kontrollkästchen mit einem klick abharken
Hallo,



ohne ein paar Zeilen VBA-Code wird's nicht so recht gehen..





Z. B. mit einem Recordset:



Sub Kontrollkästchen1_Click()

Dim rs as Dao.Recordset 'Verweis auf die DAO3.6 Library setzen!



If Me!subfrmBestelldetails.Form.Recordset.Recordcount = 0 then Exit Sub

Set rs = Me!subfrmBestelldetails.Form.Recordsetclone

rs.movefirst

Do until rs.Eof

rs!Edit

rs![i.O]=Me!Kontrollkästchen1

rs.Update

rs.Movenext

Next

rs.close

set rs = Nothing

End Sub







wobei vielleicht eine Schaltfläche angebrachter wäre.


Gruß vom Bodensee
Franz, DF6GL

PS: Bitte nach Tipps oder Lösungsvorschlägen immer eine Erfolgs- / Mißerfolgsmeldung posten!


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: