Discussion :

[adrien.gendre]

Bonjour je souhaiterais faire une requête 'LIKE' dans mon openrecordset et je tombe sur l'erreur suivante : Trop peu de paramètres, 1 attendu.
Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Set CountTable = CurrentDb.OpenRecordset("SELECT STOCKDEB,Mois FROM MENSUELLE WHERE Periode LIKE '" & Left(txtPeriodeFin, 4) & "'", dbOpenDynaset)
    CountTable.MoveFirst
    Do While T <= MoisNbr
    TabVal(CountMois) = CountTable.Fields("StockDeb")
 
    Dim Ecrir_Table As DAO.Recordset
    Set Ecrir_Table = CurrentDb.OpenRecordset("WT_Temp_Mvt_Mensuel_Stock", dbOpenDynaset)
    With Ecrir_Table
        .AddNew
        .Fields("Ligne") = "Stock Début de Mois"
        .Fields("Colone Libélé") = "0" & T & " - " & TabMois(CountMois)
        .Fields("Colone Val") = TabVal(CountMois)
        .Update
        .Requery
    End With
    CountTable.MoveNext
    CountMois = CountMois + 1
    T = T + 1
    Loop

IL me met l'erreur sur le set. Merci de votre aide

[mouaa]

essaye de stocker ton left (machin, 4) dans une variable et de relancer avec la variable à la place.

ou sinon essaye de stocker ta requête complète dans une variable et de ne mettre que le nom de la variable dans le lancement du recordset

comme ça par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
dim str as string
'après tu mets ta requête dans str
 
Set CountTable = db.OpenRecordset("str", DB_OPEN_DYNASET)

ps: je n'écris pas DB_OPEN_DYNASET exactement comme toi, peut-être que ça change quelque chose...