Discussion :

[caesar23]

Bonjour à tous,

j'ai bien cherché et je sais que le sujet est récurrent, mais je n'arrive pas à résoudre mon problème. Je cherche vraiment la solution la plus simple possible.

j'ai un bouton d'un formulaire A qui ouvre un formulaire B en enregistrant l'OpenArgs du A, en l'occurence le N° de Lot.

A chaque N° de Lot correspond une fourniture et je cherche par tous les moyens de récupérer dans une variable ce numéro de fourniture.

J'ai essayé de définir une liste déroulante qui contient

Code :

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

SELECT T_Fourniture.Num FROM T_Fourniture INNER JOIN T_Lot ON T_Fourniture.Num = T_Lot.R_Fourniture WHERE T_Lot.Num = Me.OpenArgs

. Ca marche mais ça me propose la seule valeur possible et ne me la sélectionne pas. Je ne peux donc pas utiliser la valeur de la liste déroulante dans mes autres requêtes.
Sous forme de zone de texte je n'ai pas réussi.

J'ai essayé avec une sous-requête : ma sous-requête buggue et je n'arrive pas à trouver si j'ai la bonne syntaxe.

Code :

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

CurrentDb.Execute ("INSERT INTO T_ValeurCF (R_Lot, R_Fourniture, R_Specification) VALUES (" & Me.NumLot.Value & ", (SELECT T_Fourniture.Num FROM T_Fourniture INNER JOIN T_Lot ON T_Fourniture.Num = T_Lot.R_Fourniture WHERE T_Lot.Num = " & Me.NumLot.Value & " ), " & Me.lstResultats.Value & ");")

Le bout qui pose clairement problème est

Code :

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

SELECT T_Fourniture.Num FROM T_Fourniture INNER JOIN T_Lot ON T_Fourniture.Num = T_Lot.R_Fourniture WHERE T_Lot.Num = " & Me.NumLot.Value & " )

.
La sous-requête marche bien si elle est requêtée en solo, et la requête longue marche si je remplace la sous-requête par son résultat.

Si vous avez une solution la plus conne possible qui permettrait de stocker en VBA une valeur issue d'une requête

Merci beaucoup d'avance !

[domibigoudi]

Bonjour,

Tu peux récupérer la valeur dans la table avec la fonction "DLookup".

Code :

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

Résultat=DLookup("[Colonne à récupérer]", "NomTable","[Colonnecritère]='" & Critère & "'")

Bonne journée.

[caesar23]

Effectivement, pourquoi faire simple quand on peut faire compliqué !!

Merci beaucoup ça marche au poil