Discussion :

[Tchock]

Bonjour a tous,

Je suis en train de créer une base access et je crois que je suis un peu rouillé...

Voici ma situation:
J'ai une table 1 avec, entre autres 2 champs: Type_Client et Nom_Client
J'ai un formulaire de saisie de commande qui vient renseigner une table 2 qui possède les même 2 champs.
Dans mon formulaire, j'ai crée une liste déroulante Nom_Client qui vient chercher l'info dans la table 1. J'aimerai que sur mise à jour du champ Nom_Client, le champs Type_client de mon formulaire se mette à jour automatiquement en allant chercher dans la table 1.

Quelqu'un aurait-il une solution à me proposer?

Merci d'avance.

[naphta]

bonjour,
Voila,

Code :

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

1
2
3
4
 
 
Dim trouveca As Variant
trouveca = DLookup("cekejeveux", "latable", "critererecherche = 1")

dans ton cas

Code :

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

1
2
3
4
5
 
 
Dim trouveca As Variant
trouveca = DLookup("Type_client", "table 1", "Nom_Client= ' " + Nom_Client +" '")
me.Type_client = trouveca

a+

[Tchock]

Merci Pour la réponse.
Malheureusement je n'arrive pas à la mettre en oeuvre.
J'ai mis cette ligne de code en procédure evenementielle "AfterUpdate" du champ Nom_Client et il ne se passe rien...

[naphta]

Bonjour,
Faut faire attention à la colonne liée. De toute façon si tu utilises Dlookup et que tu fais passer une mauvaise info tu dois avoir une erreur.
Au fait t'as une erreur ?
a+

[Tchock]

Hello

Non, meme pas de message d'erreur

Je ne comprends pas trop, mais je suis une "tanche" en code...

Voici ce que j'ai mis en procédure afterupdate:

Code :

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

1
2
3
4
5
6
7
 Private Sub Nom_Client_AfterUpdate()
 
Dim trouveca As Variant
trouveca = DLookup("Type_Client", "T_Client", "Nom_Client= ' " + Nom_Client+ " '")
Me.Generique = trouveca
 
End Sub

Ya surement un petit truc idiot qui bloque (et je ne parle pas de moi )

[Tchock]

Personne n'a une petite idée?

[LE VIEUX]

je n'ai pas la possibilité de vérifier les critères de ton Dlookup

as ty essayé

Code :

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

Me.Generique.Value = DLookup("Type_Client", "T_Client", "Nom_Client= ' " + Nom_Client+ " '")

[mikeGo20]

Petites fautes de frappe .... ou d'espace entre les caractères ....

Code :

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

1
2
 
trouveca = DLookup("Type_Client", "T_Client", "Nom_Client= ' " + Nom_Client+ " '")

devient

Code :

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

1
2
 
trouveca = DLookup("Type_Client", "T_Client", "Nom_Client= '" & Nom_Client & "'")

Je préfère utiliser le &

[Tchock]

Super, ca marche!

Merci à tous pour votre aide

[Tchock]

Alors suite à vos brillantes réponses, ma base ayant un peu évolué, je dois mettre à jour automatiquement dans le fomulaire non seulement le Type de Client, mais aussi son adresse.

Puis-je mettre à jour automatiquement 1 deuxieme champ de mon formulaire au cours de la meme instruction?

merci d'avance

[LE VIEUX]

tant qu'il y a de la place sur ton formulaire .....pour les lignes de code il n'y a qu'a ajouter
access a la santé

[Tchock]

Cela me rassure, mais je n'y arrive pas. En fait lorsque sur mise à jour du champ client je veux que 2 autres champs se mettent à jour mais cela ne fonctionne pas. et c'est surement dû à mon ignorance niveau code: voici l'instruction:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 Private Sub Nom_Client_AfterUpdate()
 
Dim trouveca As Variant
trouveca = DLookup("Type_Client", "T_Client", "Nom_Client= '" & Nom_Client & "'")
Me.Type_Client= trouveca
 
Dim trouveca As Variant
trouveca = DLookup("Adresse_Client", "T_Client", "Nom_Client= '" & Nom_Client & "'")
Me.Adresse_Client= trouveca
 
End Sub

Une idée de l'erreur que je fait?

[LE VIEUX]

salut
déjà des problèmes d'organisation de ton code :
1) Les Dim si possible à mettre au début de ta sub
2) essaye d'utiliser le bon type de données - n'utiliser variant que quand c'est indispensable - ex : ton ID est soit Numérique "Integer" soit "String"
ton Nom_client est forcément String - enfin tant qu'on est pas que des N°!!!!
3) 2 si tu utilises des variables "trouveca" ne pas mettre sauf exeption la même...Ex trouveID - TrouveAdresse.

mais ton problème me semble t il ne doit pas venir que de là - dans ton premier post tu dis que dans ta table 1 tu n'as que les champs ID et Nom_Client -
-où est l'adresse de ton client?
si c'est dans une autre table tu dois dire à Dlookup dans laquelle il doit chercher -
1) il faudra qu'elle ait un champ Nom_client lié et qu'il apparaisse bien entendu dans le même enregistrement que son adresse .
et pour Dlookup il faut que le critère soit Unique si tu choisi le champ "Nom_Client" si un jour tu as 2 clients du même nom il ne saura pas lequel des 2 prendre - donc c'est sur son ID (clé Unique) qu'il vaut mieux référencer ta recherche...
pioche un peu
teste et dis nous ce qui se passe
à +