Discussion :

[fbourdon]

Bonjour à tous !
Dans mon programme VBA je passe un paramètre à une requête SQL comme suit :

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
Option Compare Database
Option Explicit
Dim db As DAO.Database, rst As DAO.Recordset
Sub ImpressionFacture()
 
Set db = CurrentDb() ' Ouvre la requête facture
 
'Saisie du numéro de facture pour impression
 
Dim Réponse As Integer
Dim sql As String
 
Réponse = Val(InputBox("Saisissez le N° de facture :", "Saisie N° Facture"))
 
sql = "SELECT * FROM Factures WHERE Factures.[N° Facture]= Réponse;"
 
Set rst = CurrentDb.OpenRecordset(sql)

Le programme plante à l'instruction ci-dessus avec le message "Erreur 3061 - Trop peu de paramètres 1 attendu"

Que peut-il bien se passer ?

Merci d'avance pour vos lumières ...

fbou

[Invité]

Bonjour

Il faut sortir réponse (qui est une variable) de la chaine.

Code :

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

sql = "SELECT * FROM Factures WHERE Factures.[N° Facture]=" &  Reponse & ";"

Sinon, tu cherches une facture qui a comme numéro Réponse

De plus, supprimes les accents des mots lorsque tu développes.

Philippe

[fbourdon]

Merci pour ta réponse mais ça ne marche toujours pas...Erreur 3061.
La zone N°Facture dans la table est numérique et la variable sql est de type String ...Est-ce que ça pourrait jouer dans la syntaxe des 2 lignes suivantes ?

Code :

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

1
2
3
4
5
Reponse = InputBox("Saisissez le N° de facture :", "Saisie N° Facture")
 
sql = "SELECT * FROM Factures WHERE Factures.[N° Facture]=" & Reponse & ";"
 
Set rst = db.OpenRecordset(sql)

J'ai enlevé le Val(InputBox .....) de la première ligne pour donner à la variable reponse le type String mais ça ne change rien...

Merci d'avance !

Fbou

[Tofalu]

Bonjour

Soit N° Facture est mal orthographié, soit il n'est pas de type numérique