Discussion :

[beebs]

Bonjour,

Je suis encore peu experimenté en VBA, mais jái besoin de cet outil pour une fonctionnalite de ma base de données..
En fait, j'ai 7 boutons options repartis en trois groupes d'options, et je voudrais que le logiciel ouvre une requete differente selon les choix d'option qui ont été éffectués lorque j'appuie sur un bouton de commande.
Problème : lorsque j'appuie sur mon bouton de commande, mon instruction me renvoie toujours a ma requete "Query1"

Cela va peut etre vous sembler basique, mais je ne pariens pas a trouver la source de l'erreur..
Merci d'avance

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
Sub Commande43_Click()
Dim A As Boolean
Dim b As Boolean
Dim C As Boolean
Dim D As Boolean
Dim E As Boolean
Dim F As Boolean
Dim G As Boolean
 
A = Form_Rate.Option23.OptionValue
b = Form_Rate.Option25.OptionValue
C = Form_Rate.Option30.OptionValue
D = Form_Rate.Option32.OptionValue
E = Form_Rate.Option37.OptionValue
F = Form_Rate.Option39.OptionValue
G = Form_Rate.Option41.OptionValue
 
 
If A = True And C = True And E = True Then
DoCmd.OpenQuery "Query1", acViewNormal, acReadOnly
 
ElseIf A = True And C = True And F = True Then
DoCmd.OpenQuery "Query2", acViewNormal, acReadOnly
 
ElseIf A = True And C = True And G = True Then
DoCmd.OpenQuery "Query3", acViewNormal, acReadOnly
...
End if
End Sub

[ClaudeLELOUP]

Bonjour et bienvenue chez nous,


Il faut aborder le problème autrement : exploiter les événements "Après mise à jour" de tes groupes d'options.

Si tu peux poster une BdD dans un format Access2000 avec ton formulaire, je te construirai un exemple pour t'expliquer.

[beebs]

Je n'ai malheureusement pas la version 2000 de Access.
Je comprend la logique de la mise à jour, mais que coder pour qu'elle soit effective lorsque je clique sur mon bouton de commande?

[jimbolion]

beebs,

poste ta base je ferai la conversion

Jimbolion

[ClaudeLELOUP]

Merci Jean-Marie.

Pour Beebs : vois ici la procédure pour convertir en Access2000.

[jimbolion]

Claude

Retour de boomerang, cette procédure c'est moi qui te l'avais envoyé il y fort longtemps déjà

Jean-Marie

[ClaudeLELOUP]

C'est la preuve que lorsqu'on me souffle une bonne idée, j'en prends note.

Mais je suis un ingrat : je ne mentionne pas toujours mes sources : mes excuses, Jean-Marie, je complète mon copion pour le prochain usage !