Alors pour planter le decor
J'ai une table Clients
ds laquelle j'ai un champ Nomsociete et CodeClients
J'ai egalement une table devis
 
Je veux générer via le formulaire d'édition du devis un CodeDevis fonction du CodeClient lui mm fonction de la société...
Dans mon formulaire je selectionne donc le nom de la société via une liste deroulante...
et je voudrai pouvoir remplir automatiquement le champ CODECLIENT de ce mm formulaire pour pouvroi effectuer un calcul pr remplir le dernier champ CODEDEVIS....
Mais bon pour l'instant j'arrive pas à faire l'automatisme SOCIETE - CODECLIENT...
J'ai essyé ça :
 
Sub Modifiable4_Change()
 
Dim varCodeClient As Variant
 
varCodeClient = DLookup("[CodeClient]", "Clients", "[NomSociete] =Forms![Clients1]![Modifiable4].value" )
If (Not IsNull(varCodeClient)) Then Forms![Devis Sous-formulaire]![CodeClient] = varCodeClient
End Sub
 
Mais ma variable code client (varcodecleint) ne donne rien (null ou vide)...A priori en utilisant des espions je me suis rendu compte qu'il ne trouvait pas la table clients...
Quel est votre avis sur le pb ??? (j'ai vérifier l'orthographe du nom de la table clients avt)...
Meric de votre aide..

Tu as écrit

 
Il faudrait plutôt

 
voire même
 

si ton code société est de type texte

Merci pour ta réponse c exactement ça (le deuxième cas marche alors que le premier non !!!)
J'ai galéré comme une bete et j'ai trouvé un bout de code sur un forum qui utilisé les apostrophes (que j'avais pas encore essayer) et pouf ça a marché...
 
Je n'avais pas compris pour quoi il fallait des apostrophes ta reponse  
 
-------------
voire même  
 
 
 
varCodeClient = DLookup("[CodeClient]", "Clients", "[NomSociete] = '" & Forms![Clients1]![Modifiable4].value & "'" )  
 
 
si ton code société est de type texte
--------------
eclaire tout
encore merci