Comment utiliser des variables dans une requête SQL ?

Je n'arrive pas à utiliser les variables a et b ds ma requête, à l'ouverture de l'état il me demande quelles sont leurs valeurs.
Si vous avez une solution, merci.

Voici le code, j'ai laissé une partie de la requête de côté.

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Report_Open(Cancel As Integer) Dim a As String Dim b As String   a = Forms!frmEntree!txtNoRef.Column(0, 0) b = Forms!frmEntree!txtNoRef.Column(0, 1) Me.RecordSource = "SELECT tblLots.CodeProduit, tblProduit.NomProduit, tblLots.NoRef" ...." WHERE NoRef = a OR NoRef = b"   End Sub

---

Code:

---

Me.RecordSource = "SELECT tblLots.CodeProduit, tblProduit.NomProduit, tblLots.NoRef" ...." WHERE NoRef = ' " & a & " ' OR NoRef = ' " & b & " ' "

---

si tes variables sont de types string

Code:

---

Me.RecordSource = "SELECT tblLots.CodeProduit, tblProduit.NomProduit, tblLots.NoRef" ...." WHERE NoRef = " & a & " OR NoRef = " & b

---

si tes variables sont d'un type autre qu'une chaine de caractère

Crée une fonction VBA qui renvoie la valeur de a et intègre cette fonction dans ta clause Where.

Code:

---

Me.RecordSource = "SELECT tblLots.CodeProduit, tblProduit.NomProduit, tblLots.NoRef" ...." WHERE NoRef = fReturna() OR NoRef = fReturnb()"

---

Bonjour,

Essaie de sortir les variables des côtes (") sinon il seront considérés comme tel

Code:

---

Me.RecordSource = "SELECT tblLots.CodeProduit, tblProduit.NomProduit, tblLots.NoRef WHERE NoRef = " & a & " OR NoRef = " & b

---

A+

Bonjour,

le code dépend du type de tes variables et de tes champs
si tes variables sont de type numérique (entier, long, etc...) alors le code de junior_jef fonctionne impecc...

par contre, si c'est des chaines de caractères (string) alors il faut mettre

Code:

---

Me.RecordSource = "SELECT tblLots.CodeProduit, tblProduit.NomProduit, tblLots.NoRef" ...." WHERE NoRef = '" & a & "' OR NoRef = '" & b & "'"

---

Après cela dépend aussi du type de tes champs sur lesquels tu exécutes tes conditions

Hello,

Tout ça est intéressant, mais ne pas oublier un

Code:

---

Me.Requery

---

sinon ça n'aura pas d'impact ;)

Je suis desolé de vous dire cela, mais rien ne fonctionne jusqu'au bout.
Donc a et b sont des valeurs String.
Le programme arrive à lire les variables avec la syntaxe " & a & " mais il y a alors une erreur de syntaxe. Et si je rejoute des quotes, cela ne fonctionne pas car il comprend que je cherche un Noref = & a &, il lit ce qu'il y a entre les quotes.

Caféine,
J'avais fait un test sans me.requery en utilisant des valeurs que je connaissais, et ca fonctionnait. Ma procédure s'effectue avant l'ouverture du premier enregistrement dc j'en ai pas besoin si je ne me trompe pas.:)

Pour déboguer, il faut utiliser le Debug.Print.

Cf. mon tuto : http://cafeine.developpez.com/access...el/debugprint/

Citation:

---

Envoyé par Ragnarok85

Je suis desolé de vous dire cela, mais rien ne fonctionne jusqu'au bout.
Donc a et b sont des valeurs String.
Le programme arrive à lire les variables avec la syntaxe " & a & " mais il y a alors une erreur de syntaxe. Et si je rejoute des quotes, cela ne fonctionne pas car il comprend que je cherche un Noref = & a &, il lit ce qu'il y a entre les quotes.

---

J'obtiens rien de plus avec DebugPrint, il me renvoit toujours erreur 3075, erreur de syntaxe.:?

Excusez moi, je vais aller me cacher.....

Le code suivant fonctionne:

Code:

---

Me.RecordSource = "SELECT tblLots.CodeProduit, tblProduit.NomProduit, tblLots.NoRef" ...." WHERE NoRef = '" & a & "' OR NoRef = '" & b & "'"

---

Merci à gary-stoupy
Cela ne fonctionnait pas car j'avais un deuxième problème, je n'avais pas encore enregistré les NoRef que je voulais afficher dans l'état.
Merci à tout le monde

Bon je vais essayer d'arrêter les boulettes...:oops: