Discussion :

[killowatt]

Bonjour mesdemoiselles messieurs,
Voila je suis en train de développer un soft ou il y' des parametres par utilisateurs.
Dans cette forme je charge une combobox avec le resultat d'une requete ce qui me donne des noms. En appuyat sur ok je charge une requete qui selectionne le nom dans la table employe sur access . Cette a es champs avec case a cocher vrai ou faux.
Je voudrait lier les checkbox de ma form avec celles de la table.
j'ai donc fait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 Do While dr.Read()
            For i = 0 To dr.FieldCount - 1
                If ((dr.GetValue(i)).ToString) = True Then
                    For Each ctrl In Me.Controls
                        If TypeOf ctrl Is CheckBox Then
                            cb = ctrl
                            cb.Checked = True
                        Else
                        End If
                    Next ctrl
                End If
            Next
        Loop

Mais ca ne marche pas alors je fait des boucles if.....

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
24
25
26
27
28
29
30
31
 
 Do While dr.Read
 
            If dr.GetValue(0) = True Then
                Cb1.Checked = True
            End If
            If dr.GetValue(1) = True Then
                Cb2.Checked = True
            End If
            If dr.GetValue(2) = True Then
                Cb3.Checked = True
            End If
            If dr.GetValue(3) = True Then
                Cb4.Checked = True
            End If
            If dr.GetValue(4) = True Then
                Cb5.Checked = True
            End If
            If dr.GetValue(5) = True Then
                Cb6.Checked = True
            End If
            If dr.GetValue(6) = True Then
                Cb7.Checked = True
            End If
            If dr.GetValue(7) = True Then
                Cb8.Checked = True
            End If
            If dr.GetValue(8) = True Then
                Cb9.Checked = True
            End If
                   Loop

Quelqu'un ou quelqu'une pourrait me donner une explication ou une solution pour que je comprenne pourquoi ça ne marche pas ?
Merci d'avance

[shayw]

Bonjour

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Do While dr.Read()
            For i = 0 To dr.FieldCount - 1
                If dr.GetFieldType(i) Is GetType(Boolean) Then
                    If dr.GetBoolean(i) = True Then
                         For Each ctrl In Me.Controls
                              If TypeOf ctrl Is CheckBox Then
                                 DirectCast(ctrl, CheckBox).Checked = True  
                        next
                    End If
 
                End If
             next
    loop

[rv26t]

Bonjour,

et en récupérant le résultat dans son type ; en supposant que votre requête ne ramène qu'une ligne (sinon cela n'a pas de sens), et uniquement des valeurs boleennes (il aurait été intéressant de voir la requête)

Code :

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

1
2
3
4
5
6
If (dr.HasRows) Then
  dr.Read()
  For i = 0 To dr.FieldCount - 1
    DirectCast(me.Controls("cb" & (i + 1).tostring), CheckBox).Checked = dr.GetBoolean(i)
  End For
End If

si besoin pensez à remplacer me par le conteneur (panel ou groupbox, ...) ou sont les checkbox.

[killowatt]

Rv26t tu as raison ton code fonctionne parfaitement. Par contre pourrais tu m'expliquer l'utilisation du hasch code stp??
Pour shayw ton code fonctionne mais lorsque je change de nom dans ma combo box les check box restent cochées de plus si je check une seule check box dans ma table Access toutes les check box dans mon formulaires sont cochées.....

[rv26t]

Rv26t tu as raison ton code fonctionne parfaitement. Par contre pourrais tu m'expliquer l'utilisation du hasch code stp??

du hasch code ? Tu veux dire du HasRow, non ?

Code :

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

If (dr.HasRows) Then

C'est simplement pour vérifier qu'il existe bien une ou des lignes en retour de la requête.
Pense à marquer la discussion en résolue

[killowatt]

Gros merci a vous je suis seul le seul développeur de la boite et en plus c pour mon stage de validation de formation c'est super de savoir qu'il y a un endroit ou je peux avoir de réponses !!!!
Merci beaucoup!!!!!


"Connaître par non-connaissance est très élevé."
Lao-Tseu