Discussion :

[KIK83]

Bonjour à tous,

Est-il possible de passer le résultat de ma requête

Code :

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

sql = "SELECT [Référence Pièce] FROM Table_Stocks WHERE [Référence Pièce]='" & txt_E_S_Reference_Piece.Value & "' "

à une variable strMaVariable ?

J'ai cherché une peu partout mais je n'ai pas trouvé...

Merci pour vos réponses.

Bonne journée

[Domi2]

Bonjour,

"Sql" est une variable. Tu peux faire :

Code :

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

1
2
Dim strMaVariable As String
strMaVariable = "SELECT [Référence Pièce] FROM Table_Stocks WHERE [Référence Pièce]='" & txt_E_S_Reference_Piece.Value & "' "

Domi2

[KIK83]

Merci Domi2 pour ta prompte réponse,

C'est bien ce que j'ai codé au départ, pensant bien faire...

Mais je viens de réssayé par acquis de conscience, et j'ai l'erreur 424 Objet requis...

[Domi2]

Re,

L'erreur est dans ta requête. Si tu remplaces :

Code :

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

txt_E_S_Reference_Piece.Value

par une valeur valide, cela donne quoi ?

Domi2

[KIK83]

Si je code

Code :

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

strMaVariable = "SELECT [Référence Pièce] FROM Table_Stocks WHERE [Référence Pièce]='B 73'  "

Et que je vérifie par un MsgBox sur ma variable strMaVariable

J'ai le message SELECT [Référence Pièce] FROM Table_Stocks WHERE [Référence Pièce]='B 73' qui l'affiche...

En fait la requete ne s'exécute pas...

[Domi2]

C'est normal que ta requête soit une chaîne de caractère.

C'est donc bien :

Code :

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

txt_E_S_Reference_Piece.Value

qui pose problème. Tu fais quoi avec ta variable, après ?

Tu peux poster un peu plus de code ?

Domi2

[Jean-Philippe André]

salut,
pour ma part, je comprenais plutôt que strMavariable devait récupérer la valeur de l'enregistrement issu de la requête...

Code :

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

1
2
3
4
5
6
7
Dim RS as DAO.Recordset
Dim strMavariable As String
sql = "SELECT [Référence Pièce] FROM Table_Stocks WHERE [Référence Pièce]='" & txt_E_S_Reference_Piece.Value & "' "
set RS= Currentdb.openrecordset(sql)
if not RS.EOF Then
strmavariable = Rs.Fields("Référence Pièce").Value
end if

[KIK83]

C'est nickel jpcheck !

Merci à tous !

Bonne soirée