Erreur 3061 depuis 2 JOURS !!!!!!!!Résolu

Question

Erreur d'execution '3061' : Trop peu de param&#232;tre. 1 attendu.
En d&#233;bogage il s'arrete sur la ligne verte.
Ca va faire 2 jours que je sui sur cette erreur, je n'en pe plus... aidez moi !!!!!

Private Sub CbNumFat_Click()
    Dim SQL As String 'Requ&#234;te SQL
    
    SQL = "Select COMMERCANT.Com_Nom, COMMERCANT.Com_Statut, COMMERCANT.Com_Num, COMMERCANT.Com_AdR, COMMERCANT.Loc_CP, COMMERCANT.Loc_Ville, FACTURE.Fac_CondPaiet, COMMERCANT.Com_CodeFisc, DATE.JJMMAAAA, TYPE.Type_Libelle, VOITURE.Voi_Num, FACTURE.Fac_NumChassis, FACTURE.Fac_DImm, FACTURE.Fac_PlaImm, FACTURE.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 FACTURE.Fac_Num=" & "'" & CbNumFat.Text & "'"
    MsgBox SQL
   
    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

~*~ L&#238;L&#239;? ~*~

cs_Tipo · Accepted Answer

Salut,

Je crois qu'il te manque des champs dans ton SELECT... Tu s&#233;lectionnes pas tous les champs pr&#233;sents dans tes clauses WHERE. Rajoute les dans le SELECT. Ou mets 
SELECT FACTURE.*, CORRESPONDRE.*,...

Bonne chance

liliesma · Answer

Bien vu Tipo !!!!! 
Si j'avais su que quelqu'un aurai trouv&#233; si vite la solution a mon probl&#232;me, j'aurai post&#233; bien avant... 
Masi je pense aussi que le fait d'avoir eu les yeux riv&#233;s sur cetet requ&#234;te depuis 2 jours m'a compl&#232;tement embrouill&#233; l'esprit...

encore merci 
~*~ L&#238;L&#239;? ~*~

Conradd · Answer

Ou alors, rajoute le type :

Pour tout objet Recordset, la propri&#233;t&#233; Type peut comprendre 
les constantes suivantes  :



Constante,
Description,
----

dbOpenDynamic,
Ouvre un objet Recordset de type Feuille de r&#233;ponses
dynamique - dynaset - (espaces de travail ODBCDirect uniquement),
----

dbOpenDynaset,
Ouvre un objet Recordset de type Feuille de r&#233;ponses
dynamique (Dynaset),
----

dbOpenForwardOnly,
Ouvre un objet Recordset de type En avant
seulement,
----

dbOpenSnapshot,
Ouvre un objet Recordset de type Instantan&#233;,
----

dbOpenTable,
Ouvre un objet Recordset de type Table (espaces de
travail Microsoft Jet uniquement)

liliesma · Answer

Merci gr&#226;ce &#224; vous mon application de stage est enfin termin&#233;e... 

~*~ L&#238;L&#239;? ~*~

Erreur 3061 depuis 2 JOURS !!!!!!!!

4 réponses

Discussions similaires