Boucle sur les checkbox dans un formulaire

Bonjour,
j'ai un formulaire à partir d'une requête, le formulaire contient des checkbox occupant une colonne et plusieurs lignes.
Avec le timer du formulaire, je souhaite faire une boucle qui parcoure pour cocher ou toutes les lignes de checkbox.
dans mon cas seul le checkbox de la ligne sélectionnée est modifier. or j'ai besoin qu'elle fasse le tour de tout les enregistrements du formulaire.

Code:

---

1 2 3 4 5 6 7 8

Dim MyControl As Control If (JMoinsDte <= 7 And JMoinsDte >= 0) Then For Each MyControl In Me.Controls If TypeOf MyControl Is CheckBox Then ControlOk.value= True End If Next MyControl End If

---

Pièce jointe 628368

Salut
Vous n'êtes pas sur Excel Forms ! En L4

Code:

---

If ctl.ControlType = acCheckBox Then

---

Citation:

---

Envoyé par hyperion13

Salut
Vous n'êtes pas sur Excel Forms ! En L4

Code:

---

If ctl.ControlType = acCheckBox Then

---

---

Merci pour votre réaction, je suis sous Access, en utilisant votre proposition, j'ai uniquement le premier checkbox qui est coché et pas les autres
Pièce jointe 628377

re,
Et j'ai bien compris être sur le forum Access de DEV :weird:
Ôtez-moi d'un doute, votre form est bien attaché à une source (tbl ou qry)
A mon humble avis

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim rst As DAO.Recordset   Set rst = Me.RecordsetClone rst.MoveLast rst.MoveFirst   Do Until rst.EOF rst.Edit rst.Fields("NomCaseACocher") = True rst.Update rst.MoveNext Loop

---

Bonjour,

C'est normal car tu es sur un formulaire continu, donc tu ne travailles que sur l'enregistrement en cours.

Je pense qu'en amont tu as des données avec un champ de type Oui/Non, si c'est le cas il faut que tu fasses une requête de mise à jour (Update) de ces champs et ensuite un rafraichissement du formulaire (Requery).

Voilà une idée mais il y en a surement d'autres.

ONTAYG

Citation:

---

Envoyé par hyperion13

re,
Et j'ai bien compris être sur le forum Access de DEV :weird:
Ôtez-moi d'un doute, votre form est bien attaché à une source (tbl ou qry)
A mon humble avis

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim rst As DAO.Recordset   Set rst = Me.RecordsetClone rst.MoveLast rst.MoveFirst   Do Until rst.EOF rst.Edit rst.Fields("NomCaseACocher") = True rst.Update rst.MoveNext Loop

---

---

Merci pour la solution avec elle j'ai toutes les checkbox cochés d'affilés.
pour parfaire le code, je l'ai mis dans une condition if .... end if pour que la cette mise à jour prenne en compte que les deux lignes en couleur.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

If (JMoinsDte <= 7 And JMoinsDte >= 0) Then Dim rst As DAO.Recordset   Set rst = Me.RecordsetClone rst.MoveLast rst.MoveFirst   Do Until rst.EOF rst.Edit rst.Fields("ControlOk") = True rst.Update rst.MoveNext Loop rst.Close Set rst = Nothing End If

---

afin que la mise à jour prenne en considération que les deux lignes en rouge mais au contraire tout les checkbox sont cochés.
Que faut il revoir ?

Bonjour namorykeitaa3,

Le test doit se faire sur le "RecordSet" et non pas sur un contrôle. Il faut ajouter après dans la boucle :

Code:

---

1 2 3 4

Do Until rst.EOF If rst("LeNomDuChamp") <=7 And rst("LeNomDuChamp") >=0 then rst.Edit etc...

---

Bonne journée

Merci Robert1957 pour votre proposition, mais elle me met dans une boucle infinie et Access fini par s'arrêté.

Merci à tous ;) le problème est résolu.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Do Until rst.EOF If rst.Fields("JMoinsDte") <= 7 And rst.Fields("JMoinsDte") >= 0 Then rst.Edit rst.Fields("ControlOk") = True rst.Update MsgBox rst.Fields("JMoinsDtePaie") Else MsgBox "je suis la" End If rst.MoveNext Loop   rst.Close Set rst = Nothing

---