Discussion :

[tornade69]

Bonjour,

J'ai une erreur 3061 sur une requête en VBA

Code :

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

1
2
3
4
5
6
7
    Dim db As DAO.Database, rst As DAO.Recordset
    Dim vsql As String
    Dim vcpt As Integer
    Set db = CurrentDb
    vsql = "Select * from [R_extraction pour édition Etat prescription] where Type=1 and [Numéro de séjour] = " & [Forms]![F_Saisie_Prescription]![Numéro de séjour]
    Set rst = db.OpenRecordset(vsql, dbOpenForwardOnly, dbReadOnly)
    vcpt = rst.RecordCount

qui me renvoie

Code :

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

1
2
 
"Select * from [R_extraction pour édition Etat prescription] where Type=1 and [Numéro de séjour] = 12064929"

J'ai testé la requete dans le module requete Acces (en enlevant les guillemets devant et derriere), elle fonctionne parfaitement

[Numéro de séjour] est numérique

J'ai aussi essayer

Code :

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

 vsql = "Select * from [R_extraction pour édition Etat prescription] where Type=1 and [Numéro de séjour] = '" & [Forms]![F_Saisie_Prescription]![Numéro de séjour] & "'"

Mais ca marche pas mieux.

Message d'erreur : 3061 : trop peu de paramètres 1 attendu

Merci pour votre aide

[vodiem]

salut tornade69,

ton erreur ne proviens pas de ce code.
tu as d'ailleurs une correction à faire si tu veux obtenir le bon résultat:

Code :

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

    Set rst = db.OpenRecordset(vsql, dbOpenDynaset, dbReadOnly)

mais tu pourrais obtenir ce résultat plus simplement avec:

Code :

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

dcount("*","R_extraction pour édition Etat prescription","[Numéro de séjour] = " & [Forms]![F_Saisie_Prescription]![Numéro de séjour])