Discussion :

[dominux80]

Bonjour,

Débutant sous VB6 je me heurte a un pb de cases d'options.

Dans une frame, j'ai trois frames avec boutons d'options comme suit.

Frame 1
bouton option1
bouton option2
bouton option3

frame2
bouton option4
bouton option5

frame 3
bouton option6
bouton option7
bouton option8

Jusque là tout va bien, mais je voudrai construire des requetes sql en fonction des case d'option cochées. Je ne vois pas comment faire avec case select ou des blocs if then else.

Merci de vos reponses

ma frame pour plus de détails

----------------------------
Date

option1 textbox mois + textbox annee
option2 textbox annee
option3 textbox jour, texbox mois, textbox annee

-----------------------------
Produits

option4 textbox code produit
option5 textbox categorie

------------------------------

Utilisateurs

option6 textbox code utilisateur
option7 textbox groupe
otion8 texbox service

Je voudai pouvoir combiner les options de Date, Produits, et Utilisateurs

[OhMonBato]

Tu peux stocker ta requete dans une chaine et faire quelquechose du style :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim Requete As String
Requete = "SELECT * FROM NomTable WHERE "
If OptionButton1.Value = True Then
  Requete = Requete & "MonChamp = Valeur1"
ElseIf OptionButton2.Value = True Then
  Requete = Requete & "MonChamp = Valeur2"
Else
  Requete = Requete & "MonChamp = Valeur3"
End If

[dominux80]

Le pb est que je veux tester si option1.value=true et si option4=true et si option7= true, alors requete et ainsi de suite ...
Mon bloc d'option est divisé en trois frame dans la frame si je me fais bien comprendre car je débute.

[OhMonBato]

Je pensais t'avoir donné une piste suffisante, il suffit d'ajouter le même type de test pour tes 2 autres groupes de boutons d'option.

[dominux80]

Merci encore et j'ai tout compris la dessus !!!

Merci et très bonne journée