Discussion :

[kumo]

c'est un peu le même problème qu'hier sauf que cette fois ci, j'ai une zone de texte, dont laquelle je veux mettre le nom de fournisseur.
Sachant que dans ma table commandes, j'ai comme clé étrangère le Code fournisseur, je voudrais que quand, grace a ma liste déroulante je sélectionne une commande, i me mette le nom de fournisseur dans la zone de texte.

voici le code que j'ai mis:

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim nom As String
Dim lefour As Integer
 
 
 
lefour = DLookup("[CodeFour]", "[Commandes]", "[NumCom]='" & Me.lacommande.Value & "'")
nom = DLookup("[NomFour]", "[Fournisseur]", "[CodeFour]=lefour")
nomfournisseur = nom

[Demco]

Et en quoi le code que tu nous montres ne te convient pas ? Merci d'être précis.

[kumo]

ben ça ne fonctionnait pas, il y a avit un message d'erreur qui s'affichait...
Au pire, je peux essayer de mettre une requête dans ma zone de texte, mais je sais comment faire, peux tu me montrer s'il te plaît?

[kumo]

oh oui, c'est bon j'ai truvé
bon par respect, je vous montre comment j'ai fait
j'ai crée une zone de texte dans la quelle je récupère d'abord le numéro de fournisseur(numfournisseur), puis j'ai crée une autre zone de texte qui contiendra le nom du founisseur (nomfour), et j'ai donc utilisé la zone de texte numfournisseur pour ma deuxieme fonction DLookup voilà ce que celà donne:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
Dim varX As Long, varY As Integer, nom As String
 
varX = DLookup("[port]", "[Commandes]", "[NumCom]='" & Me.lacommande.Value & "'")
fraisport = varX
varY = DLookup("[CodeFour]", "[Commandes]", "[NumCom]='" & Me.lacommande.Value & "'")
numfournisseur = varY
nom = DLookup("[NomFour]", "[Fournisseur]", "[CodeFour]=numfournisseur")
nomfour = nom