Problème Access Fermé

Question

En fait j'aimerais qu'à partie d'un formulaire contenant 5 Combobox on affiche les différents enregistrements suivant les valeurs sélectionnées dans les combobox...

J'ai essayer avec ce genre de code :
SQL = "SELECT FrmAnswerAllQueries.FLangage FROM FrmAnswerAllQueries Where FrmAnswerAllQueries.FLangage =(Me![Combo9.Value])"

(FrmAnswerAllQueries = Formulaire ou on devrait voir les enregistrements avec les différentes valeurs sélectionnées dans les combo.. Et FrmAskAllQueries = Là ou il y a les combobox.)

Si quelqu'un pouvait m'aider ca le ferait bien bien quoi :)
Merci d'avance..

DJELiTe · Answer

J'ai oublier de préciser que le problème est que il m'affiche tous les résultats et même ceux ne correspondant pas a la valeur sélectionnée dans le combo... voila

blux · Answer

Salut,

Ta chaine nommé SQL est mal formatée, elle doit contenir des instructions SQL valides et non du code VB.

Un début de ce que tu devrais encoder (pour une seule combo) :

SQL="SELECT FrmAnswerAllQueries.FLangage FROM FrmAnswerAllQueries Where FrmAnswerAllQueries.FLangage = '" + Me![Combo9.Value] + "' ;"

A+ Blux

 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"

DJELiTe · Answer

Ah d'accord.
Merci de ton aide mais quand je mets ce que tu m'as dit il me mets l'erreur suivante :
"Microsoft Access can't find the field 'Combo9.Value' reffered into your expression"

Bizarr.. Vais essayer de chipoter lol..

blux · Answer

C'est parce que Combo9 n'existe pas...A+ Blux            "Les cons, ça ose tout.C'est même à ça qu'on les reconnait"

DJEliTe · Answer

Bah pourtant si...J'viens de matter dans les propriétés de la combobox et il est marqué Combo9 à Name :-/

blux · Answer

Crée un bouton, et mets le code suivant :

Msgbox combo9.value

Tu verras bien s'il te dit quelque chose lorsque tu appuies dessus...

A+ Blux

 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"

DJELiTe · Answer

Ouep j'lai fait et j'ai selectionnée anglais, j'ai cliquer sur le bouton et il m'as mit anglais :-/

DJELiTe · Answer

C'est pas possible que ca soit à cause du !ME là? J'ai essayer sans et en le remplacant par le nom du formulaire mais ca ne fonctionne pas

blux · Answer

'Me' fait référence à la base de données en cours...As-tu essayé en mettant juste combo9.value ?A+ Blux            "Les cons, ça ose tout.C'est même à ça qu'on les reconnait"

DJELiTe · Answer

Je viens d'essayer de mettre ca :SQL = "SELECT FrmAnswerAllQueries.FLangage FROM FrmAnswerAllQueries Where FrmAnswerAllQueries.FLangage = '" + Combo9.Value + "' ;"Mais ca m'affiche tous les enregistrements (ceux qui ne correspondent pas à la selection aussi)

blux · Answer

C'est sans dout que combo9.value n'a pas de valeur donc pas de clause WHERE...

Avant de lancer la requête, peux-tu faire un :

msgbox combo9.value

pour voir ce qu'il y a dedans ?

A+ Blux

 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"

DJELite · Answer

Voilà je viens d'insérer un

MsgBox Combo9.Value

avant

DoCmd.OpenForm "FrmAnswerAllQueries"
With FrmAnswerAllQueries
SQL = "SELECT FrmAnswerAllQueries.FLangage FROM FrmAnswerAllQueries Where FrmAnswerAllQueries.FLangage = '" + [Combo9.Value] + "' ;"
End With

Résultat : Il me montre ce qu'il y a dans le combobox a traver le msgbox mais me dit la même chose qu'après...
Access ne peut trouver le combo9.value

J'commence a plus rien y capter c'est trop bizarre quoi

blux · Answer

Suprime le with et le end with...A+ Blux            "Les cons, ça ose tout.C'est même à ça qu'on les reconnait"

DJELiTe · Answer

Ca donne tjs la même chose.J'parie que c'est un truc tou con en plus ca m'ennerve

blux · Answer

Le code que tu mets, c'est pour filtrer les données dans l'affichage du formulaire que tu viens d'ouvrir ?A+ Blux            "Les cons, ça ose tout.C'est même à ça qu'on les reconnait"

DJELiTe · Answer

Ben ouai c'est pour que dans le formulaire AnswerAllQueries on ne voit par exemple que les anglais.. Mais si il n'y avait que ca ca aurait été "facile". Sauf que dans mon cas j'dois tenir compte de 5 combobox en fait... Déjà si j'arrive pas a faire la 1ere ^^

blux · Answer

En principe, on ne filtre pas les données avec du SQL quand le form est ouvert, cela se fait à l'ouverture, dans les paramètres de openform.
Il y a un truc qui est noté clause where...

Regarde l'aide, tu en sauras plus...

A mon avis, lorqsue tu ouvres le form, il te positionne dedans et n'est plus capable de récupérer la valeur de la zone combo9 qui est ailleurs...

A+ Blux

 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"

DJEliTe · Answer

Ouep j'avais déjà fait ca avec les macros et l'action OpenForm mais il n'y a pas assez de places pour toutes les conditions... Il m'avait couper mon code... J'vois pas comment faire d'autre

blux · Answer

Tu l'affiches quand ton formulaire ?Quand on appuie sur un bouton ?A+ Blux            "Les cons, ça ose tout.C'est même à ça qu'on les reconnait"

DJELiTe · Answer

Bah ouai j'ai le premier formulaire avec toutes les listbox et quand je clique sur le bouton c'est censé ouvrir celui avec les enregistrements avec les valeurs sélectionnées dans les listbox du premier formulaire

blux · Answer

Bon ben, tu m'emm... pas, tu colles ce bout de code dans l'appui sur le bouton :Dim SQL As StringDoCmd.OpenForm "FrmAnswerAllQueries"SQL = "SELECT FrmAnswerAllQueries.FLangage FROM FrmAnswerAllQueries Where FrmAnswerAllQueries.FLangage = '" + [Combo9.Value] + "' ;"Forms![FrmAnswerAllQueries].RecordSource = SQLCa devrait aller mieux !A+ Blux            "Les cons, ça ose tout.C'est même à ça qu'on les reconnait"

DJELiTe · Answer

Hum je voudrais pas t'emm... lol mais ca dit ca maintenant comme erreur : "Microsoft Access can't find the field '|' reffered into your expression"Nan mais si ca te prend la tête laisse tomber hein..Merci :)

blux · Answer

Positivement désolé !!! :-(Je voulais mettre "tu T'emm" et j'ai fourché du clavier pour mettre "tu M'emm...", ce qui n'était évidemment pas mon intention (je vais quand même pas abandonner si près du but !).Un msgbox combo9.value marche ?Est-ce que tes champs et tes tables ont les noms tels qu'ils apparaisssent dans la requête ?Peux-tu faire un msgbox SQL pour voir  si la syntaxe est correcte...T'es en quelle version de ACCESS (97, 2002, anglais, français... ?)A+ Blux            "Les cons, ça ose tout.C'est même à ça qu'on les reconnait"

DJEliTe · Answer

Ah ok pas grave lol..Hum le MsgBox fonctionne bien wai!Est-ce que tes champs et tes tables ont les noms tels qu'ils apparaisssent dans la requête ?  : J'vois pas de quelle requête tu parles mais si c'est le code vb bah ouai tout est correct..Ptet aussi que tu veux parler du fait que mes sources de combobox sont dans des tables annexes?Si oui bah voilà le détail :Combo1:Langue=>Vient de TALangues.Combo2:SalesRep=>Vient de TASalesRep.Combo3:Speciality=>Vient de TASpeciality.Combo4:Business=>Vient de TABusiness.Combo5:Fonction=>Vient de TAFunction.Un MsgBox SQL je sais pas trop comment faire ca :-/Et j'suis en access 2000 anglais.voilà j'espere ne pas avoir été a coté de la plaque.Merci

DJELiTe · Answer

Ah ca y est j'ai trouvé... tain j'ai du mal..J'devais en fait mettre a la place des FrmAnswerAllQueries la source du formulaire...Erf quoi..

blux · Answer

Ce que je t'ai fait faire, c'est écrire une requête stockée dans la variable SQL (que l'on peut visualiser en faisant msgbox SQL). Ensuite, on ouvre le formulaire et on lui dit de chercher les informations qu'il doit afficher en exécutant la requête stockée dans SQL, grâce au mot-clé RECORDSOURCE...Pour le reste, c'est ce que je voulais que tu fasses depuis le début, afficher la requête pour voir si elle avait une tête correcte...A+ Blux            "Les cons, ça ose tout.C'est même à ça qu'on les reconnait"

DJELiTe · Answer

A l'aise merci pour tout!!!!

DJELiTe · Answer

J'me rend compte que j'ai oublier de te demander qqch lol...Pour les checkBox c'est aussi Check.Value ? Pcq j'mets ca et ca me mets une erreur Mismatch...Ya pas un truc style check.Checked ou quoi?

blux · Answer

Non, c'est aussi .value-1 = coché0 = non cochéif zone_de_check.value = -1 then....A+ Blux            "Les cons, ça ose tout.C'est même à ça qu'on les reconnait"

DJELiTe · Answer

Ok!Et j'peux mettre ca comme ca a la suite :AND TblCustomer.FAMChecked = '" + (Check16.Value) + "';"Ou bien j'dois le mettre avec le =-1 mais apres le then j'mets quoi?

blux · Answer

Tu peux mettre TRUE ou FALSE, c'est une valeur connue de VB..., mais -1 est connu aussi... :-)Mais j'ai pas tout compris à la façon dont tu voulais agencer ta requête...A+ Blux            "Les cons, ça ose tout.C'est même à ça qu'on les reconnait"

DJELiTe · Answer

C'est ok le problème est réglé. J'ai enfin fini :)Merci pour tout!

Problème Access

32 réponses

Discussions similaires