Discussion :

[Chikatilo]

Bonjour ,
j'ai crée un formulaire contenant 3 cases a cocher , et une base de donnees stockant plein d'info.
le soucis que j'ai , c'est qu'au moment je choisisse une case et je clique sur le boutton extraire , je recupere le resultat dans un fichier excel.

j'ai pu faire un code mais cela ne marche pas , quelqu'un pourrait me dire s'il y a un moyen plus facile sans utiliser le code vb ?
merci de votre reponse .

[Invité]

Bonjour

Merci d'être plus clair dans ton message, car :

Bonjour ,
j'ai crée un formulaire contenant 3 cases a cocher , et une base de donnees stockant plein d'info.

Tes cases à cocher sont indépendantes ? Appartiennent à la table qui alimentre ton formulaire ?

le soucis que j'ai , c'est qu'au moment je choisisse une case et je clique sur le boutton extraire , je recupere le resultat dans un fichier excel.

Et où est le soucis ?

j'ai pu faire un code mais cela ne marche pas , quelqu'un pourrait me dire s'il y a un moyen plus facile sans utiliser le code vb ?
merci de votre reponse .

Quel est le code ? Qu'est-ce qui ne marche pas ?

Sans plus d'informations, tu ne risques pas d'avoir de réponses.

Starec

[Chikatilo]

Bonjour,
pour les cases elles font partie de la tables qui alimente mon formulaire
les cases a cocher (hyper , super et Proxi) et dans la table il y a un champs reseaux contenant ces valeurs cad (hyper super et proxi)

le soucis c'est que dans mon code j'ai mis des requetes sql qui me permettent d'avoir les info que je cherche ne fait rien donc c'est comme si j'ai rien fait.

[Invité]

Re

Et où est la requête.

Comment veux-tu que l'on t'aide si tu ne nous donne pas plus d'informations ?
Nous ne sommes pas derrière ton écran.

Si tu veux que les membres te donnent de l'aide, il faut aussi les aider à t'aider en leur donnant les informations nécessaires.

Starec

[Chikatilo]

ok voici le code que :

Code :

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

1
2
3
4
5
6
 
DIm SQL As String
If Coher32.Value = True then SQL ="Select Réseau From Data Where Réseau = 'Hyper';"
Elseif Cocher35.Value = True Then SQL ="Select Réseau From Data Where Réseau = 'Super';"
Elseif Cocher37.Value = True Then SQL ="Select Réseau From Data Where Réseau = 'proxi';"
End if

[Invité]

Re

Tu ne nous aides vraiment pas, et cela commence à m'agacer, et pourtant c'est rare.

Tu as mis tes requêtes, et qu'est-ce qui ne va pas ? Un message d'erreur ?

Pourquoi réseau s'écrit de manières différentes ?

Si tu ne mets pas un peu du tien, on est pas prête d'y arriver.

Starec

[Chikatilo]

salut ,
ben justement , il y a rien qui se passe ni message d'erreur ni resultat de mes requetes .
c'est pour cela , je voudrais savoir s'il y a autre moyen hormis le code pour afficher mes resultats .
merci

[Invité]

Re

Et comment exécutes-tu tes requêtes ?

Starec

[Chikatilo]

re
Voila j'ai créé une table data avec plusieurs champs , dans l'un des champs il y réseau qui prend 3 valeur (soit Hyper , Super ou Proxi).
Apres j'ai créé un formulaire avec des case a cocher pour faire la selection entre les 3 valeurs du champs réseau
c'est a dire en cochant sur par exple hyper , j'afficherai que les champs correspondant a hyper et ainsi de suite pour super et proxi .

Entre temps , je suis parti en mode création pour les requetes , et je me demande si on peux faire ce que je veux sans taper du code ?


merci j'espere que j'etais plus clair

[Chikatilo]

je suis reparti sur du code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Reporting_Click()
Dim SQL As String
    If Me.Cocher32.Value = True Then
        SQL = " Select Réseau From Data Where Réseau = 'Hyper';"
            ElseIf Me.Cocher35.Value = True Then
                    SQL = " Select Réseau From Data Where Réseau = 'Super';"
                        ElseIf Me.Cocher35.Value = True Then
                                 SQL = " Select Réseau From Data Where Réseau = 'Proxi';"
    End If
End Sub

Et la j'ai une erreur qui me dis que j'ai une expression sans parametre