"Remplir" dynamiquement des checkBox ?

Bonjour,;)
J'aimerais savoir quelle est la meilleure solution pour remplir dynamiquement toute une série de checkBox.
Pour précision, lorsque je charge une form "Horaire", je dois récupérer tous les horaires ( 00:00, 00:30, 01:00, 01:30, ..... , 23:00, 23:30 ) qui sont dans une table et je doit afficher une checkbox pour chacun, afin que l'admin de l'appli puisse modifier la plage horaire en vigueur.
Par exemple, actuellement on travaille entre 8H et 16H (donc toutes les cases entre 8H et 16H doivent être cochée à l'ouverture de la Form).
J'ai essayé en créant mes 47 checkbox, qui s'appellent Check1, Check2, etc...., Check47.

Mais quand je récupère mes enreg. dans 1 RS, je ne peux pas faire :

dim i as integer
dim temp as string

Code:

---

1 2 3 4 5 6 7 8 9 10

i = 1   While Not RS.EOF   temp = "Check" & i 'J'essaye de "créer" le nom des checkbox dynamiquement temp.Caption = RS.fields![Nom_Horaire] ....   i = i +1 Wend

---

Ca plante sur :
temp = "Check" & i

Je peux pas gérer les caption et value dynamiquement car je peux pas "incrémenter" le nom du checkbox dynamiquement...

Résultat, je dois gérer 1 à 1 tous les checkbox, ce qui n'est pas une bonne solution car en dur dans le code, donc pas bon si changement dans la base, et en + c'est super chiant :mrgreen:

Donc si quelqu'un voit comment faire...:P

Fais sa avec des checkbox indexés

Code:

---

1 2 3 4 5

While Not RS.EOF Check(i).Caption = RS.fields![Nom_Horaire] .'... i = i +1 Wend

---

Je connaissais pas l'existence de cet index :oops:
Par contre j'ai essayé ce que tu proposes mais y'a un bug.
Les names de mes checkbox sont Check1, Check2, ...., Check47.
Et je mets leur index respectif à 1, 2, etc...., 47.
Mais ça ne marche pas quand je mets :

Check(1).Caption = ....

Et je dois mettre des "name" différents à chaque CheckBox...
Comment faire ?

Non justement, il ne faut surtout pas mettre de noms differents !
Pour exemple, fais un essai avec un nouveau projet, crees un checkbox, appelle le ChkTest par exemple.
Fais un copier/coller de ce checkbox et tu vas voir que VB vas te proposer de creer un groupe de controles, tu vas repondre oui.

Ajoute un bouton de commande et mets comme code dans son evenement click :

Code:

---

1 2 3 4

For i = 0 To ChkTest.UBound ChkTest(i).Caption = "Checkbox # " & i Next i

---

P.S Evite de parler de "name" si tu parles du Caption, il est important d'utiliser le bon vocabulaire pour etre mieux compris ;)

Merci pour l'info...;)
Je viens de capter le truc :oops:
Par contre, il me met un message d'erreur (L'élément du groupe de controle '48' n'existe pas ...)
Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub Form_Load() Dim sReq As String Dim rRec As Recordset Dim i As Integer   i = 1   sReq = " SELECT * FROM T_Resa_Horaires2 ORDER BY RH_OrdreHoraires " Requete sReq, rRec   While Not rRec.EOF   Check1(i).Caption = rRec.Fields![RH_Horaires] If rRec.Fields![RH_PlageHoraires] = 1 Then Check1(i).Value = 1 Else Check1(i).Value = 0 End If i = i + 1 Wend   End Sub

---

et je comprends pas car j'ai vérifié, j'ai bien 47 enregistrements !
Et j'ai bien mon Check1 en 47 exemplaires et indexés de 1 à 47....

Ben il manque un MoveNext dans ta boucle, la tu restes toujours sur le meme recordset donc ta boucle est sans fin.