Discussion :

[mulanzia2003]

Bonjour,
J'ai créé une requête "Anomalie" à partir de la table "PILOT".
Dans ma requête, j'ai ajouter sur la ligne critère du champ "Nature" : [Quel nature voulez vous ?]
Ma requête fonctionne à merveille.
Maintenant, je souhaite toujours posez la question : Quel nature voulez vous ?, je souhaiterai que l'utilisateur ait le choix entre A; B; C à l'aide d'une liste déroulante.

Je ne sais pas comment procéder !!!
Pouvez vous m'aider

[Dolphy35]

Salut,

Cela n'est pas possible directement par exécution de la requête, il te faut passer par un Formulaire.

Dolphy

[mulanzia2003]

Bonjour,
ok c'est compris, c'est exactement ce que je pensé.
J'ai donc créé un formulaire avec un menu déroulant (nom : Nom_atelier) avec les différentes valeurs que je souhaite.
Ensuite pour executer ma requête, j'ai créé un bouton.
Le seul problème est : que dois je mettre dans ma requête pour lui indiquer que le critère du champ "Atelier" est la valeur du menu déroulant "Nom_atelier".

[Maxi-môme]

Salut,

Ta requete doit ressembler a ça:

Code sql :

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

1
2
3
4
 
SELECT Champ1, Champ2 
FROM TaTable
WHERE Atelier=Forms!NomDeTonFormulaire!Nom_atelier.value ;

[mulanzia2003]

je dois mettre cela sur le bouton de commande ???

[Maxi-môme]

Oui tu vas sur l'evenement "sur clic" de ton bouton et dans l'editeur vba tu fais :

Code :

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

docmd.runsql("[ta requete]")

[mulanzia2003]

Peux tu me dire ou je met
"SELECT Nature_Ent, Atelier, Temps_pass, Date
FROM PILOT
WHERE Atelier=Forms!F_Recup_Nom_atelier!Nom_atelier.value"
car j'ai mis ce code et cela ne marche pas.

Code :

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

1
2
3
4
5
6
7
 
Private Sub Commande7_Click()
DoCmd.RunSQL ("[ACTIVITE_ATELIER]")
SELECT Nature_ENT, Atelier, Temps_pass, Date 
FROM PILOT
WHERE Atelier = Forms!NomDeTonFormulaire!Nom_Atelier.Value
End Sub

Je comprend qu'il n'est pas au bon endroit !!!

[Dolphy35]

Salut,

le SQL correspond à ta requête, là où tu avais mis [Quel nature voulez vous ?] et bien tu mets Formulaires![F_Recup_Nom_atelier]![Nom_atelier]

à l'ouverture de ta requête, celle-ci ira directement prendre la valeur de ta liste, par contre ton formulaire doit rester ouvert, sinon tu sera obligé de redéfinir la source SQL de la requête avec le même paramètre avant fermeture du Form

ensuite sur l'événement sur_click du bouton tu appel ta requête

Dolphy

[mulanzia2003]

Ok j'ai fait ce que tu me dis

Code :

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

1
2
3
4
 
Private Sub Commande7_Click()
DoCmd.RunSQL ("ACTIVITE_ATELIER")
End Sub

J'ai une erreur : instruction SQL non valide,

[Invité]

Bonjour

Peux-tu nous montrer la tête de ta requête "ACTIVITE_ATELIER".

Starec

[mulanzia2003]

OK donc voici l'image en mode création de la requête

je met égelement les codes :

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
 
Public Function Nom_atelier(CMETIER)
  Select Case CMETIER
    Case "E0"
       Nom_atelier = "EMQ"
    Case "A0"
       Nom_atelier = "INFOR"
    Case "B0"
       Nom_atelier = "GTM"
    Case "X0"
       Nom_atelier = "NTR"
    Case "30"
       Nom_atelier = "GMA"
    Case "40"
       Nom_atelier = "FUNF"
    Case "50"
       Nom_atelier = "FM"
    Case "60"
       Nom_atelier = "FUS"
    Case "70"
       Nom_atelier = "FUNS"
    Case Else
       Nom_atelier = Null
   End Select
End Function

[mulanzia2003]

Voici ma requête

Code :

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

1
2
3
SELECT PILOT.NOM_ET_PRE, PILOT.NATURE_ENT, PILOT.REPERE_APP, Nom_Atelier([CORPS_DE_M]) AS Nature
FROM PILOT
WHERE (((Nom_Atelier([CORPS_DE_M]))=[Formulaires]![F_Recup_Nom_atelier]![Nom_atelier]));

[Invité]

Bonjour

Tu ne peux lancer une requête SELECT avec DoCmd.RunSQL, cela est réservé aux requêtes actions (DELETE, UPDATE)

Une requête SELECT sert à visualiser des données dans un contenant (Formulaire, Liste, etc..)

Starec

[mulanzia2003]

Ok compris, donc je réexplique ce que je veux faire :
Voici ma requête :

Code sql :

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

1
2
3
4
 
SELECT PILOT.NOM_ET_PRE, PILOT.NATURE_ENT, PILOT.REPERE_APP, Nom_Atelier([CORPS_DE_M]) AS Nature
FROM PILOT
WHERE (((Nom_Atelier([CORPS_DE_M]))=[Quel nature voulez vous ?]));

A la place de répondre à la question : Quel nature voulez-vous ?
Je souhaite y associer la valeur de mon champ du menu déroulant intitulé Nom_Nature.
Ce menu déroulant se trouve dans le formulaire F_Recup_Nom_Nature.
Je souhaite executer cette requête avec un bouton.

[cafeine]

Hello,

tu aurais tout intérêt à passer par une table de transcodage, plutot qu'une fonction qui teste autant de valeurs.

OK donc voici l'image en mode création de la requête

je met égelement les codes :

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
 
Public Function Nom_atelier(CMETIER)
  Select Case CMETIER
    Case "E0"
       Nom_atelier = "EMQ"
    Case "A0"
       Nom_atelier = "INFOR"
    Case "B0"
       Nom_atelier = "GTM"
    Case "X0"
       Nom_atelier = "NTR"
    Case "30"
       Nom_atelier = "GMA"
    Case "40"
       Nom_atelier = "FUNF"
    Case "50"
       Nom_atelier = "FM"
    Case "60"
       Nom_atelier = "FUS"
    Case "70"
       Nom_atelier = "FUNS"
    Case Else
       Nom_atelier = Null
   End Select
End Function

[mulanzia2003]

Oui caféine mais encore, je fais quoi !!!
c koi "table de transcodage" et comment on la fait cette table.

et pour mon problème , tu n'as pas une ptite idée

[mulanzia2003]

bon ben je pensais avoir des pistes ce matin sur mon problème (snif !!!)
je continue mes recherches

vous me dites si vous avez des pistes (Menu déroulant pour requête)

[mulanzia2003]

Bon, mon pbm est résolu merci à arkham et à tous ceux qui ont répondu à mon post