Discussion :

[pimst37]

Bonjour, j'ai une table avec 4 champs, a, b,c et d, et un formulaire avec 2 zones de texte a et b indépendantes.
Dans la première zone de texte l'utilisateur rentre la valeur du champ a qu'il veut, je voudrais qu'à la mis à jour de la première zone de texte , la deuxième zone de texte soit raffraichi avec la valeur du champ b correspondant.

Voici le code que j'ai utilisé :

Code :

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

1
2
3
4
5
Private Sub a_AfterUpdate()
Dim y As String
 
y = DLookup("b", "Table1 Requête", "a = '& Me!a &' ")
Me!b = y

End Sub

ça ne fonctionnne pas et je vois pas pourquoi... Merci de votre aide

[Jean-Philippe André]

il manque un guillemet avant et après les esperluettes :

Code :

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

y = DLookup("b", "Table1 Requête", "a = '"& Me!a &"'")

[pimst37]

merci bcp pour ta réponse, ça marche bcp bcp mieux,
par contre je capte pas la différence entre les " et les ' ?

Merci bcp

[Jean-Philippe André]

les paramètres que tu passes dans la fonction DLookup sont de type String, i.e. chaîne de caractères, i.e. utilisation des guillemets.

La fonction

Code :

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

y = DLookup("b", "Table1 Requête", "a = '"& Me!a &"'")

correspond au premier retour de la requête:

Code :

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

SELECT b FROM [Table1 Requête] WHERE a = 'valeurdearetourneeparleformulaire')

d'où l'utilisation des apostrophes pour encadrer les champs texte...