Stage : pb Erreur 3061 2 paramètres attendusRésolu

Question

voila mon probl&#232;me : 
Pour que se soit plus facile de compr&#233;hension j'ai mis une cature d'&#233;cran
A partir du num&#233;ro de facture je dois pouvoir afficher le reste de la facture 
voila mon code :
    SQL = "Select ARTICLE.Art_Code, Art_Lib, Art_Prix, FAMILLE.Fam_Code, Fam_Lib, FACTURE.Fac_Num, Fac_Tab, Fac_Couv, CONTENIR.Qte "
    SQL = SQL & "From FACTURE, CONTENIR, ARTICLE, FAMILLE "    SQL SQL & "Where FACTURE.Fac_Num CONTENIR.Fac_Num "    SQL SQL & "And CONTENIR.Art_Num ARTICLE.Art_Num "    SQL SQL & "And ARTICLE.Fam_Code FAMILLE.Fam_Code "    SQL SQL & "And FACTURE.Fac_Num" & "'" & cbNumFact.Text & "'"
    Set rs_RechFact = DB.OpenRecordset(SQL)
    
    TxtNumTab = rs_RechFact.Fields(6)
    TxtNbCouv = rs_RechFact.Fields(7)
    lstCodArt.AddItem (rs_RechFact.Fields(0))
    lstLibArt.AddItem (rs_RechFact.Fields(1))
    lstCodFam.AddItem (rs_RechFact.Fields(3))
    lstPriArt.AddItem Format((rs_RechFact.Fields(2)), "##,##0.00" & " ?")
    lstQte.AddItem (rs_RechFact.Fields(8))
    TotLig = (CDbl(rs_RechFact.Fields(2))) * (CDbl(rs_RechFact.Fields(8)))
    lstTotLig.AddItem Format((TotLig), "##,##0.00" & " ?")
    lbTotFact = Format(lbTotFact + TotLig, "##,##0.00" & " ?")

seulement apr&#232;s ex&#233;cution du programme, j'ai la fameuse erreur 3061, qui me dit 2 param&#232;tres attendus.
je crois que le probl&#232;me viens de mes listbox, mais je ne vois pas comment faire (autre que ce que j'ai fait)  pour afficher les donn&#233;es dans les listbox...

Merci de votre aide... c'est assez important, c'est pour une application de stage

~*~ L&#238;L&#239;? ~*~

cs_Jack · Accepted Answer

Salut
Sur quelle ligne as-tu cette erreur ? je ne vois pas
Sinon, prends l'habitude de mettre tous les param&#232;tres, cel&#224; peut poser des probl&#232;mes de conversions &#224; VB : Exemple
xtNumTab.Text =  rs_RechFact.Fields(6) .Value 

Eventuellement m&#234;me, pense &#224; imposer toi m&#234;me la convertion :
xtNumTab.Text  = CStr(rs_RechFact.Fields(6).Value)
Rappel : Quand un champ de ta DB est de type num&#233;rique, il ne faut pas utiliser de ' dans les requ&#232;tes SQL : SQL SQL & "And FACTURE.Fac_Num" & cbNumFact.Text
Au niveau de l'&#233;criture des String, ne confonds pas la structure SQL et celle de VB

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_Jack · Answer

Re
Es-tu s&#251;r que la syntaxe suivante soit bien correcte, &#231;a me parait bizarre d'utiliser la virgule comme s&#233;parateur de millier en version FR
Format((rs_RechFact.Fields(2)), "##,##0.00" & " ?")

Pour &#234;tre plus clair et &#233;viter les erreurs, dans ta requ&#232;te SQL, pr&#233;cise toujours le nom de la table :
SQL = "Select ARTICLE.Art_Code, ARTICLE.Art_Lib, ARTICLE.Art_Prix, FAMILLE.Fam_Code ...

Tes variables style TotLig sont-elles bien dimensionn&#233; en Double aussi ?

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_CanisLupus · Answer

Salut, tu as post&#233; cette question plusieurs fois (avec des noms de tables diff&#233;rents) mais le principe reste le m&#234;me.
Les r&#233;ponses ne te conviennent toujours pas ?
Alors, donne la structure (nom et type des champs pour chacune des tables) car cette erreur ne vient pas de VB mais de Access (ta requete sql).

liliesma · Answer

Merci pour votre aide, c'&#233;tait bien un probl&#232;me de conversion 

Par contre, j'ia un autre probl&#232;me, c'est qu'il ne m'affiche qu'une ligne dans les listbox ....

~*~ L&#238;L&#239;? ~*~

Stage : pb Erreur 3061 2 paramètres attendus

4 réponses

Discussions similaires