Récupérer la valeur d'une liste déroulante dans une requête SQL
Fermé
Random Dude
Messages postés
24
Date d'inscription
mercredi 3 juillet 2013
Statut
Membre
Dernière intervention
6 août 2013
-
17 juil. 2013 à 11:04
blux Messages postés 25924 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 28 mars 2024 - 22 juil. 2013 à 10:29
blux Messages postés 25924 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 28 mars 2024 - 22 juil. 2013 à 10:29
A voir également:
- Récupérer la valeur d'une liste déroulante dans une requête SQL
- Liste déroulante excel - Guide
- Liste déroulante en cascade - Guide
- Récupérer une vidéo youtube - Guide
- Comment récupérer un compte facebook piraté - Guide
- Recuperer message whatsapp - Guide
4 réponses
alu1308
Messages postés
4
Date d'inscription
vendredi 19 juillet 2013
Statut
Membre
Dernière intervention
31 juillet 2013
1
19 juil. 2013 à 16:07
19 juil. 2013 à 16:07
Bonjour,
Je suis confrontée au même problème que Random Dude.
Je veux faire la même chose que lui, je me suis donc inspirée de son code.
Cependant, j'obtiens un Run time error 3270.. Apparemment cela viendrait du problème que mes champs dont j'ai besoin dans ma requête soient en type nombre et pas texte.
comment puis-je modifier ce code pour faire en sorte que la requête fonctionne?
Mon code :
Quand je clique sur le bouton que j'ai créé pour générer le formulaire j'obtiens donc une fenetre avec ce run time error, et quand je clique sur debug, la ligne surligné est :
Merci d'avance pour votre aide :)
Je suis confrontée au même problème que Random Dude.
Je veux faire la même chose que lui, je me suis donc inspirée de son code.
Cependant, j'obtiens un Run time error 3270.. Apparemment cela viendrait du problème que mes champs dont j'ai besoin dans ma requête soient en type nombre et pas texte.
comment puis-je modifier ce code pour faire en sorte que la requête fonctionne?
Mon code :
Private Sub CreateProjectConsolidation_Click() Dim SQL As String Dim dbs As Database Dim qdf As QueryDef Set dbs = CurrentDb() SQL = " SELECT * FROM T_Weeklys WHERE ProjectName = '" & Me.ProjectName.Value & "'" With dbs Set qdf = .CreateQueryDef("Project_Consolidation", SQL) DoCmd.OpenQuery "Project_Consolidation" .QueryDefs.Delete "Project_Consolidation" End With dbs.Close qdf.Close End Sub
Quand je clique sur le bouton que j'ai créé pour générer le formulaire j'obtiens donc une fenetre avec ce run time error, et quand je clique sur debug, la ligne surligné est :
DoCmd.OpenQuery "Project_Consolidation"
Merci d'avance pour votre aide :)
Thorak83
Messages postés
1051
Date d'inscription
jeudi 20 juin 2013
Statut
Membre
Dernière intervention
22 décembre 2017
156
17 juil. 2013 à 11:19
17 juil. 2013 à 11:19
Bonjour,
le champ "mois" est en type texte ?
Si oui
SQL = " SELECT * FROM Tb_congés WHERE mois = '" & Me.liste.value & "'"
ATTENTION A l'ESPACE entre le ' et le "
Cordialement
le champ "mois" est en type texte ?
Si oui
SQL = " SELECT * FROM Tb_congés WHERE mois = '" & Me.liste.value & "'"
ATTENTION A l'ESPACE entre le ' et le "
Cordialement
blux
Messages postés
25924
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
28 mars 2024
3 281
17 juil. 2013 à 11:22
17 juil. 2013 à 11:22
Salut,
si mois est de type texte, il faut l'enquoter, sinon, pas besoin des quotes....
si mois est de type texte, il faut l'enquoter, sinon, pas besoin des quotes....
Random Dude
Messages postés
24
Date d'inscription
mercredi 3 juillet 2013
Statut
Membre
Dernière intervention
6 août 2013
17 juil. 2013 à 11:33
17 juil. 2013 à 11:33
Merci beaucoup ;)
Problème résolu avec :
En faisant attention à ne pas mettre d'espace.
Enfin :P
Problème résolu avec :
SQL = " SELECT * FROM Tb_congés WHERE mois = '" & Me.liste.value & "'"
En faisant attention à ne pas mettre d'espace.
Enfin :P
19 juil. 2013 à 16:10
Un MsgBox SQL avant le .openquery peut permettre d'y voir plus clair.
22 juil. 2013 à 08:44
Pourrais tu m'expliquer ton éventuelle solution avec le MsgBox? Qu'est ce que à me permettrait de faire?
22 juil. 2013 à 09:14
Valeur que l'on peut avoir en faisant un msgbox Me.Project.Value, ça doit afficher un résultat dont on pourra regarder s'il est cohérent avec la requête...
22 juil. 2013 à 09:49
22 juil. 2013 à 10:29
Pour plus d'infos, voir ici.
Il te suffit donc de paramétrer correctement ta zone de liste et ça devrait aller...