title image


Smiley Re: Alle Kontrollkästchen mit einem klick abharken
Ok danke schon mal, aber funktioniert noch nicht ^^

Verweis ist gesetzt, aber er meckert rum kein DO ohne Loop und kein NEXT ohne For..

und ich weiß leider nicht wo ich die hier setzen soll?



sieht im moment so aus:

-----------------------------------------------------------------------

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 <<<<<<<<<<<<<<------------- dat hat er einen Punkt statt ! verlangt

rs![i.O] = Me!alleIO

rs.Update

rs.MoveNext

Next

rs.Close

Set rs = Nothing



End Sub

------------------------------------------------------------------------



mfg



Hasardeur



A00 User
mfg und thx, Hasardeur

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: