title image


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



ja, meine Fehler, ;=()





Sub alleIO_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!alleIO

rs.Update

rs.MoveNext

Loop 'hier loop statt next

rs.Close

Set rs = Nothing

End Sub






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: