Discussion :

[Altrensa]

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 sql :

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

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

Mais plus rien quand je met :

Code sql :

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

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

[Maxi-môme]

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

[Altrensa]

Bonjour Maxi-môme,

En fait c'est ce que je fait car :

Code :

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

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

[Maxi-môme]

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 & "' ; "

[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 sql :

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

"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

[Maxi-môme]

Hum, bizarre...

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

[cafeine]

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 sql :

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

"SELECT ...... WHERE [BLA].[Z] = '" & 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 sql :

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

"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

[Altrensa]

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

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
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

[Altrensa]

Merci cafeine de voler à mon secours,

Code sql :

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

"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

[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

[Maxi-môme]

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

[Altrensa]

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

Encore merci

Altrensa