Discussion :

[Jisse55]

Pourquoi OpenRecordset dans ce code demande 3 paramètres alors que seul le premier est obligatoire ?
Merci de votre attention.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    Dim strSQL As String
    Dim rst As DAO.Recordset
 
    lngNoAuto = InputBox("À partir de quel numéro de facture?", "NUMÉRO DE COMMANDE")
 
    strSQL = "select * from reqFactures where réfcommande =lngnoauto;"
 
    Set db = CurrentDb
    Set rst = db.OpenRecordset(strSQL, dbOpenForwardOnly, dbReadOnly)
    adMail = rst.Fields("courriel").Value
    rst.Close

[tee_grandbois]

bonsoir,
je ne comprend pas ton problème : as-tu un message d'erreur en mettant que le premier paramètre ?

[EDIT]
en fait ton problème vient plutôt de là: une variable VBA n'est pas reconnu dans l'environnement SQL, il faut la mettre hors des guillemets de l'instruction

Code :

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

strSQL = "select * from reqFactures where réfcommande =" & lngNoAuto  & ";"

[Jisse55]

Merci pour votre réponse.
J'ai fait la modification suggérée mais j'ai toujours le même message d'erreur :Too few parameters, Expected 1

[Jisse55]

J'ai oublié de mentionner que le message d'erreur s'affiche lors de l'exécution de la ligne

Set rst = db.OpenRecordset(strSQL, dbOpenForwardOnly, dbReadOnly)

[Jisse55]

Je ne comprends toujours pas pourquoi mais j'ai trouvé , et cela fontionne merci

strSQL = "select * from reqFactures where réfcommande ='" & lngNoAuto & "'"

[tee_grandbois]

Je ne comprends toujours pas pourquoi mais j'ai trouvé , et cela fontionne merci

Ok, la variable lngNoAuto est de type texte il faut l'entourer d'apostrophes... mais d'après son nom, j'en avais déduit qu'elle était de type numérique ...

[Jisse55]

non, ma variable est vraiment de type numérique long.

[Jisse55]

En fait, j'ai fait erreur en disant que cela fonctionnait en ajoutant des ' ; voici le code complet de ma procédure et le message d'erreur
provient à l'exécution de la ligne Set rst = db.OpenRecordset(strSQL, dbOpenForwardOnly, dbReadOnly)

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
20
21
22
23
24
25
26
27
28
Private Sub cmdGDF_click()
    Dim NomPre As String
    Dim IdClient As String
    Dim NomFacture As String ' Nom de la facture qui stocké dans le fichier LesFactures
    Dim adMail As String    '  Adresse courriel du client
    Dim CheFich As String   '  Chemin du fichier LesFactures
    Dim db As DAO.Database
    Dim lngNoAuto As Long
    Dim strSQL As String
    Dim rst As DAO.Recordset
    lngNoAuto = 113746
 
    strSQL = "select * from reqFactures where réfcommande =" & lngNoAuto & ";"
    Set db = CurrentDb
 
    Set rst = db.OpenRecordset(strSQL, dbOpenForwardOnly, dbReadOnly)
 
    adMail = rst.Fields("courriel").Value
    rst.Close
    CheFich = Application.CurrentProject.Path
    CheFich = CheFich + "\LesFactures\"
    ' Vérifie si le fichier LesRoutes existe dans le même répertoire que la BD
    ' et s'il n'existe pas, le créer
    If Dir(CheFich, vbDirectory) = "" Then
       MkDir (CheFich)
    End If
 
End Sub

[tee_grandbois]

bonsoir,
et si tu mettais tout simplement:

Code :

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

Set rst = db.OpenRecordset(strSQL)

[tee_grandbois]

sinon, le paramètre demandé dans le message d'erreur:

J'ai fait la modification suggérée mais j'ai toujours le même message d'erreur :Too few parameters, Expected 1

peut-il provenir de la requête utilisée, c'est à dire : reqFactures ?

[Jisse55]

Oui, le problème provenait bien de ma requête.
Merci beaucoup pour votre aide.