Discussion :

[thiefer]

Bonjour à tous,

je cherche à rendre plus clair un code que j'ai rélisé mais qui devient difficile à maintenir compte tenu du nombre de chkbox qui me permettent de contruire ma requête sql.

J'ai deux catégories de chkbox, l'une préfixée chk_rg, l'autre chk_st.
Les premières servent à sélectionnés mes champs en select et group by, les secondes servent à réaliser des statistiques, sont donc en select et sont des champs calculés.
Chacun de ces champs est donc une formule de calcul qui lui est propre.

Le code que je cherche à réaliser est (plus qu') inspiré d'une FAQ access prise sur le site et donne quelques chose comme ceci :

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
 
Dim ctl as control
Dim nbChoixRgpt as integer
 
for each ctl in Me.controls
 
select case left (ctl.name,6)
 
case "chk_rg"
 
if ctl.name.value =1 then
nbChoixRgpt = nbChoirRgpt +1
 
if nbChoixRgpt > 1 then
strChamps = StrChamps & ", "
strGroup = strGroup & ", "
End if
 
strchamps = strChamps & "Formule propre à mon ctl.name"
strGroup = strGroup & "Autre formule propre à mon même ctl.name"
End if
 
Case "chk_st"
traitement approximativement similaire
 
End Select
 
Next ctl

Je viens de taper ceci à main levée et n'ai encore rien testé sous access mais déjà deux questions me posent problème :

Est-ce que je peux programmer un ctl.name.value ?
Comment faire en sorte de paramétrer et récupérer des formules propres à chacun de mes chkbox ?

Si quelqu'un pouvait me donner la main...

Merci par avance

TF

[Pierre Fauconnier]

Bonjour

Balancer un code saisi à la va-vite, sans l'indenter, et demander de l'aide relève de l'ironie, ou de l'utopie, ou d'une foi inébranlable en la compassion et au bon vouloir des individus, ou d'un peu de tout cela, mais aussi, et surtout, d'une méconnaissance des règles de fonctionnement de nos forums, qui formalisent l'attente légitime des contributeurs bénévoles d'un minimum d'implication du demandeur, ce qui ne transparait pas ici.

La saisie du code dans l'environnement VBA aurait montré que derrière ctl.Name, il n'y a rien, et que cette syntaxe suffit donc à récupérer le nom du contrôle.

La compréhension minimale de l'anglais du VBA et une utilisation de la saisie semi-automatique permettrait de voir qu'il y a une propriété Value attachée à un contrôle et que, fort logiquement, cette propriété renvoie... la valeur dudit contrôle...

L'utilisation d'un checkbox permet de déduire que la valeur de ce type de contrôle est une valeur binaire (coché-Non coché, Vrai-Faux, ...)

Donc, a priori, un message inutile si la personne qui l'a posté s'était donné un peu de peine, en tout cas moins que celle que j'ai eue à écrire cette réponse...

[thiefer]

Bonjour à tous,

Après avoir pris le temps d'effectuer plus de tests en revenant de l'école de ma fille, voici l'avancement de 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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Dim nbChoixRgpt As Integer
Dim nbChoixStat As Integer
 
nbChoixRgpt = 0
nbChoixStat = 0
 
    ' construit les clauses "Select" via strChamps et "group by" via strGroup
    Dim strChamps   As String
    Dim strGroup    As String
 
    Dim ctl As Control
 
    For Each ctl In Me.Controls
 
        Select Case Left(ctl.Name, 6)
            Case "chk_rg"
                If ctl.Value = 1 Then
                    nbChoixRgpt = nbChoixRgpt + 1
 
                    If nbChoixRgpt > 1 Then
                        strChamps = strChamps & ", "
                        strGroup = strGroup & ", "
                    End If
 
                    strChamps = strChamps & "Formule propre à mon ctl.name"
                    strGroup = strGroup & "Autre formule propre à mon même ctl.name"
                End If
 
            Case "chk_st"
                If ctl.Value = 1 Then
                    nbChoixStat = nbChoixStat + 1
 
                    If nbChoixStat > 0 Then
                        strChamps = strChamps & ", "
                    End If
 
                    strChamps = strChamps & "Formule propre à mon ctl.name"
                End If
 
        End Select
 
    Next ctl

La construction des variables strChamps et strGroup fonctionne.
Il s'agit pour moi à présent de renseigner les formules qui vont bien.

Pour être plus précis :

- si traitement de chk_rg_annee, on complète :
strChamps avec "Year(tbl_donnees.date) AS Annee"
strGroup avec "Year(date)"

- si traitement de chk_st_vitmoy (pour le calcul de la vitesse moyenne de course), on complète :
strchamps avec "Avg([tbl_donnees.Distance_km]/([tbl_donnes.Temps]*24)) AS VitesseMoy"

L'enjeu est de traiter 6 chkbox_rg et 12 chkbox_st avec pour objectif de pouvoir ultérieurement créer de nouvelles possibilité avec des modifications de code limitées et d'avoir une bien meilleure lisibilité de mon code actuel qui fonctionne à l'aide d'une multitude de condition if.

Merci par avance de votre aide

TF

[Pierre Fauconnier]

Et... Où est le problème? Où est la question? Y-en-a-t-il une?

[thiefer]

Cela me paraissait pourtant clair.

Lorsque je suis dans ma boucle For each en case chk_rg par exemple sur le 3ème checkbox de ma série, comment m'y prendre pour remplacer les bouts de codes :
"Formule propre à mon ctl.name"
"Autre formule propre à mon ctl.name"
par les valeurs spécifiques à ce chkbox en question ?
Donc les rendre variable, paramétrer et appeler ces variables.

C'est probablement simpliste au vu des aimables réponses précédentes mais je bloque;

Merci de votre aide à tous

TF

La provocation et l'agressivité gratuite font rarement bon ménage avec l'efficacité

[DMboup]

Eh bien il te faut une table de correspondance (ou autre chose) qui te permet de lier une formule à chaque chexbox.

Après dans tes case, il faudra tester le chexbox aussi pour retrouver la formule liée.