[VBA et SQL] Requête SQL utilisant une variable VBA

Bonjour,

J'ai débuté le codage sous ACCESS (en VBA) il y a deux semaine tout au plus et je suis tout nouveau sur developpez.net.
Je me permet de faire appel à vous car je suis confronté à un petit problême et vous pourrez peut-être m'aider.

Exposé des faits :
J'ai une requête SQL dans un recordset. Tout marche quand je met :

Code:

---

"SELECT ......... WHERE [Bla].[1] = '000A000'"

---

Mais plus rien quand je met :

Code:

---

1 2 3 4 5

"SELECT ......... WHERE [Bla].[1] = Ref" "SELECT ......... WHERE [Bla].[1] = 'Ref'" "SELECT ......... WHERE [Bla].[1] = '.Ref.'" "SELECT ......... WHERE [Bla].[1] = `Ref`" "SELECT ......... WHERE [Bla].[1] = "Ref""

---

Avec "Ref" ma variable VBA dont le contenu observé avec un MsgBox est tout à fait correct. Pourriez vous m'aider s'il vous plaît !

D'avance merci.

Altrensa

Salut Altrensa,

Je pense qu'il faut que tu identifies ton formulaire avec par exemple un
Me.Ref , en admettant que Ref est dans ton formulaire courant.

Sinon il faut identifier ton formulaire par la syntaxe suivante :

Forms!Nom_Formulaire!Ref

Bonjour Maxi-môme,

En fait c'est ce que je fait car :

Code:

---

Ref = Me.[BLA].Column(0)

---

Pour BLA une zone de liste déroulante. De plus, il se trouve qu'un MsgBox de cette variable (MsgBox(Ref)) me renvoit la bonne valeur.

Merci

Altrensa

OK,

Je viens de voir que Ref est une variable c'est bien ça ?
A ce moment la, dans ta requete, tu dois faire

"SELECT ......... WHERE [Bla].[1] = " & Ref & " ; "

A entourer par exemple avec des ' si c'est une chaine de caracteres, ce qui donne :

"SELECT ......... WHERE [Bla].[1] = '" & Ref & "' ; "

Merci Maxi-môme,

Ref est effectivement une variable et plus précisément une chaîne de caractère (Dim Ref As String).
Cependant, le code que tu m'as donné provoque une erreur de compliation. Etant habitué (un peu) au SQL, j'ai supposé que c'était les guillemets qui refermaient la zone de la requête. J'ai donc essayé avec des "chr(34)" dans une requête du type :

Code:

---

"SELECT ...... WHERE [BLA].[Z] = 'chr(34)&Ref&chr(34)'"

---

Le résultat ne fut pas plus glorieux. Si tu as une autre idée, je suis donc preneur, merci.

Altrensa

Hum, bizarre...

Peux-tu mettre un petit aperçu de ton code stp ? Notamment toute ta requete SQL.

Hello, ta réinterprétation de la (bonne) réponse de Maxi-Mome est étrange ;)

il manque l'opérateur de concaténation esperluette (&)
Essaie un truc du genre :

Code:

---

"SELECT ...... WHERE [BLA].[Z] = '" & Ref & "'"

---

Citation:

---

Envoyé par Altrensa

Merci Maxi-môme,

Ref est effectivement une variable et plus précisément une chaîne de caractère (Dim Ref As String).
Cependant, le code que tu m'as donné provoque une erreur de compliation. Etant habitué (un peu) au SQL, j'ai supposé que c'était les guillemets qui refermaient la zone de la requête. J'ai donc essayé avec des "chr(34)" dans une requête du type :

Code:

---

"SELECT ...... WHERE [BLA].[Z] = 'chr(34)&Ref&chr(34)'"

---

Le résultat ne fut pas plus glorieux. Si tu as une autre idée, je suis donc preneur, merci.

Altrensa

---

Voici, Maxi-môme, ma requête complère qui marche quand je met '00000' à la place de Ref.

Code:

---

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 29 30 31

Private Sub Ref_produit_choisi_Change()   'On récupère la référence du produit dont on souhaite la 'maitrise technique Dim Ref As String Ref = Me.[Ref_produit_choisi].Column(0)   'DEBUG MsgBox (Ref)   'On cherche les champs correspondants à cette référence Set r = CurrentDb.openrecordset("SELECT * FROM [Maitrise technique] WHERE [Maitrise technique].[Ref produit]= 'chr(34)&Ref&chr(34)'")   'On les stoque dans des variables If Not r.EOF Then Sel_fr = r.Fields(1).Value Sel_en = r.Fields(2).Value Sel_de = r.Fields(3).Value Sel_es = r.Fields(4).Value   'DEBUG MsgBox (Sel_fr) End If   'On met ses variables dans les champs de la référence en cours de modification Me.[Sélection fr] = Sel_fr Me.[Sélection en] = Sel_en Me.[Sélection de] = Sel_de Me.[Sélection es] = Sel_es   End Sub

---

D'avance merci, Altrensa

Merci cafeine de voler à mon secours,

Citation:

---

Envoyé par cafeine

Code:

---

"SELECT ...... WHERE [BLA].[Z] = '" & Ref & "'"

---

---

En fait comme je le disait au dessus, la compilation ne se fait plus du tout avec ce code....

D'où l'essai avec les chr(34) où j'ai mis les esperluettes d'ailleurs...

Voili voilou

D'avance merci

Altrensa

Qué boulet !!!

En fait j'avais pas mis les espaces autour de l'esperluette (ou alors j'avais oublié un truc) et maintenant cela fonctionne à merveille, merci beaucoup Maxi-môme et cafeine d'être venu en aide au débutant que je suis...

Et encore une ligne à votre palmarès des problèmes résolus, encore merci

Altrensa

De rien, bon courage pour la suite, et surtout n'hésite pas à consulter le forum et amener d'éventuelles réponses. Ben oui, le but d'un forum, c'est de partager, pas uniquement de poster quand on a un problème.

(je dis pas ça pour toi spécialement, mais en parcourant les comptes utilisateurs, je vois qu'il y a plein de "membres" qui ont posté moins de 3 fois depuis leur inscription qui date de plus d'un an !)

C'était la pensée du jour ;)

J'essaierais d'apporter mes quelques connaissances dans les domaines ou je suis un peu plus à l'aise.

Encore merci

Altrensa