Discussion :

[lolymeupy]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Donc si quelqu'un voit comment faire...

[ProgElecT]

Fais sa avec des checkbox indexés

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[lolymeupy]

Je connaissais pas l'existence de cet index
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 ?

[OhMonBato]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[lolymeupy]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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....

[OhMonBato]

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