Faire une requête pour Access selon des Checkbox

Version imprimable

26/06/2007, 10h48
Invit-é

Faire une requête pour Access selon des Checkbox

Hello,

Je dois faire des requêtes pour récupérer des données pour Access mais le souci est que c'est selon une douzaine de checkbox. Comment faire pour ne pas tester toutes les combinaisons possibles ? Il n'y pas moyen de vérifier lesquels sont cochés avec un booléen qui se remplacerait directement dans le 'WHERE' de la requête ?

Merci pour votre aide.
Arnaud.
26/06/2007, 11h06
Phifi
Salut,

J'ai utilisé un truc comme ça pour vérifier quelles checkbox étaient cochées parmi une série de 16 : cf. Bitwise (comparaison bit à bit)

Imagine-toi une séquence binaire avex x bit de poids différents.

Pour vulgariser, tu indexes tes checkbox, de 0 à x (on prend 15 comme exemple = 16 checkbox) et tu leur attribues ensuite une valeur en fonction de l'index 2^0, 2^1, 2^2 -> 2^15 correspondant à une valeur cochée (0 si non cochée)
Tu additionnes ensuite chaque valeur pour obtenir un nombre unique, ce nombre est enregistré dans ta base et représente la combinaison de tes checkbox plutôt que x champs booléens (un pour chaque checkbox)

Pour lire la séquence binaire :
Code:

1 2 3 4 5 6 7 8 For ix = 0 to 15 If rst!seq And 2^ix Then '/ Comparaison bit à bit CheckBox(ix).Value = Checked Else CheckBox(ix).Value = UnChecked End If Next ix

Bon voila une technique que j'utilise et qui n'etait pas si ma que ca.

En fait elle consiste a construire progressivement ca requette en fonction de oui ou non si le checkbox (dans ton cas) est coche.

Pour ce faire je vais te donner deux methodes, gardant le mme principe neanmoins.

Sans utilisation du groupe de controle. C'est vrai je ne te conseillerais pas cette methode, mais on ne sais jamais ;)

Code:

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
 
'Dans le code je presume que l'element a ajouter dans la requette
'ce trouve dans le Caption du Checkbox
Dim CBox As Control
 
Private Sub Command1_Click()
    Dim SQL As String
    Dim SQLBrut As String
 
    SQL = "Select * from Table Where"
 
    'Generation du code brut de la requette
    For Each Cbox In Form1.Controls
        If TypeOf Cbox Is CheckBox Then
            If Cbox.Value Then
                SQLBrut = "& " & Cbox.Caption & " &" & SQLBrut
            End If
        End If
    Next
 
    SQL = SQL + SQLBrut
 
    'Traitement de la requette
    SQL = Replace(SQL, "&&", "And")
    SQL = Replace(SQL, "&", "")
 
    MsgBox SQL
End Sub

En utilisant le groupe de controle, Que je te conseille

Code:

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
 
Private Sub Command1_Click()
    Dim SQL As String
    Dim SQLBrut As String
    Dim NbCheck As Integer
    Dim i As Integer
 
    NbCheck = 4     'NbCheck est nombre de CheckBox
                    'que tu as. Dans ton cas 12.
    SQL = "Select * from Table Where"
 
    'Generation du code brut de la requette
    For i = 0 To NbCheck - 1
        If CBox(i).Value Then
            SQLBrut = "& " & CBox(i).Caption & " &" & SQLBrut
        End If
    Next
 
    SQL = SQL + SQLBrut
 
    'Traitement de la requette
    SQL = Replace(SQL, "&&", "And")
    SQL = Replace(SQL, "&", "")
 
    MsgBox SQL
End Sub

Desole je n'ai pas tester le code (pas VB sous la main). Mais ca devrais marcher.