Erreur 3061

Question

Erreur d'execution 3061 : trop peu de param&#232;tre. 2 attendus.
AIDEZ moi je ne comprend pas mon erreur...
Voici mon code :

Private Sub CbNumFat_Click()
    Dim SQL As String 'Requ&#234;te SQL
    
    SQL = "Select Com_Nom, Com_Statut, COMMERCANT.Com_Num, Com_AdR, Loc_CP, Loc_Ville, Fac_CondPaiet, Com_CodeFisc, DATE.JJMMAAAA, Type_Libelle, VOITURE.Voi_Num, Fac_NumChassis, Fac_DImm, Fac_PlaImm, Fac_TotFact "
    SQL = SQL & "From COMMERCANT, FACTURE, DATEJOUR, VOITURE, TYPE, CORRESPONDRE "    SQL SQL & "Where COMMERCANT.Com_Num CORRESPONDRE.Com_Num "    SQL SQL & "And FACTURE.Fac_Num CORRESPONDRE.Fac_Num "    SQL SQL & "And DATEJOUR.JJMMAAAA CORRESPONDRE.JJMMAAAA "    SQL SQL & "And VOITURE.Voi_Num CORRESPONDRE.Voi_Num "    SQL SQL & "And TYPE.Type_Code VOITURE.Type_Code "
    SQL = SQL & "And Fact_Num=" & "'" & CbNumFat.Text & "'"
    
    Set rs_AffiFatt = DB.OpenRecordset(SQL)
    TxtCog = rs_AffiFatt(0)
    TxtNome = rs_AffiFatt(1)
    TxtComNum = rs_AffiFatt(2)
    TxtInd = rs_AffiFatt(3)
    TxtCap = rs_AffiFatt(4)
    TxtCitta = rs_AffiFatt(5)
    TxtCondPaga = rs_AffiFatt(6)
    TxtPIVA = rs_AffiFatt(7)
    TxtData = rs_AffiFatt(8)
    TxtTipo = rs_AffiFatt(9)
    TxtVoiNum = rs_AffiFatt(10)
    TxtNTelaio = rs_AffiFatt(11)
    TxtDImm = rs_AffiFatt(12)
    TxtTarga = rs_AffiFatt(13)
    TxtTotFat = rs_AffiFatt(14)
End Sub

merci de votre aide 

~*~ L&#238;L&#239;? ~*~

cs_CanisLupus · Answer

Salut,
Je ne suis pas s&#249;r, mais dans la ligne :

SQL = SQL & "And Fact_Num=" & "'" & CbNumFat.Text & "'"

Dans quelle table vas tu chercher Fact_Num ?

Il y a peut-&#234;tre le m&#234;me champ dans plus d'une de tes tables ?
Et de quel type est ce champ ?

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

liliesma · Answer

bon alors voila, j'ai modifi&#233; ma restriction : 

    SQL = SQL & "And CORRESPONDRE.Fac_Num=" & "'" & CbNumFat.Text & "'"

dans ma table c'est un champ de type texte

liliesma · Answer

ah oui, j'oubliais, l&#224; il me met Erreur d'execution 3061 : trop peu de param&#232;tre. 1 attendus.

cs_CanisLupus · Answer

Soyons positifs, il y a du progr&#232;s : plus qu'un param&#232;tre attendu.
Supposons que les champs, dans ta clause WHERE, soient d'une m&#234;me type dans les tables que tu mets en relation sinon &#231;a donnerait une autre erreur.
Reste les champs du SELECT. V&#233;rifie si les champs suivants n'existent pas dans plusieurs de tes tables, auquel cas, il faudra que tu les pr&#233;fixes avec le nom de la table de r&#233;f&#233;rence (TaTable.TonChamp) :

Com_Nom
Com_Statut
Com_AdR
Loc_CP
Loc_Ville
Fac_CondPaiet
Com_CodeFisc
Type_Libelle
Fac_NumChassis
Fac_DImm
Fac_PlaImm
Fac_TotFact

D'ailleurs, quand tu fais une requ&#234;te faisant appel &#224; plusieurs tables, il vaut mieux indiquer &#224; chaque fois le nom de la table o&#249; tu vas chercher le champ (TaTable.TonChamp) m&#234;me si &#231;a parait fastidieux. Ca &#233;vite bien des erreurs.

Bonne prog

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

liliesma · Answer

J'ai mis le nom des tables devant chaque champs, mais ca ne change rien ... 
Et il me demande toujours 1 param&#232;tre...

cs_CanisLupus · Answer

L'erreur 3061, c'est une erreur de syntaxe dans la requete.

Alors, il ne reste que le type des champs : Fac_Num est bien du texte ?

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Erreur 3061

6 réponses

Discussions similaires