Discussion :

[fromond]

Bonjour
je voudrais alimenter 2 champs d'une table 1 vers une table 2 par l'intermédiaire d'un formulaire via dans propriété donnée table la table 1 et ensuite champs liés 2 et dans événement maj apres événementiel code vba

Code :

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

1
2
me! [champ2]=me![champ1].column(1) 
me! [champ3]=me![champ1].column(2)

je vois bien mes deux champs qui sont proposé dans le champ de mon formulaire et qui correspondent à la table 1 mais le deuxième champs n'est pas incrémenté
comment faire pour que le deuxième champ aille bien dans mon deuxième champ de mon formulaire

merci pour votre réponse

[Zekraoui_Jakani]

Demande incompréhensible! plus de 30 personnes l'ont lue avant moi mais elles n'ont pas réagi; donc la demande doit être reformulée en langage clair et précis.

[fromond]

Demande incompréhensible! plus de 30 personnes l'ont lue avant moi mais elles n'ont pas réagi; donc la demande doit être reformulée en langage clair et précis.

[fromond]

désolé je me suis mal expliqué
j'ai une table disons client, une table produit et une table facture
je voudrai que dans la facture je récupère le client et son adresse et aussi le produit et son prix unitaire
j'ai essayé par un formulaire et je n'arrive à récupérer qu'un seul champ à la fois
merci

[Zekraoui_Jakani]

Supposons que tu as une clef commune aux 3 tables; appelons la Clt_ID dans les 3 tables (cette clef est numérique et prend les mêmes valeurs dans les 3 tables)
Dans ton formulaire, on aura des TextBox(es) nommés, par exemple Txt_Client, Txt_adresse, Txt_Produit, Txt_Punitaire, alors la propriété "ControlSource" aura respectivement cette formule:

Code :

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

1
2
3
4
Txt_Client = dlookup("[Client]","[TableClients]","[Clt_ID]= " & [Clt_ID])
Txt_adresse = dlookup("[adresse]","[TableClients]","[Clt_ID]= " & [Clt_ID])
Txt_Produit= dlookup("[produit]","[TableProduits]","[Clt_ID]= " & [Clt_ID])
Txt_Punitaire= dlookup("[Punitaire]","[TableFactures]","[Clt_ID]= " & [Clt_ID])  'au cas où le prix unitaire se trouve dans la table "factures"

En français, je crois que la fonction "dlookup" s'appelle "RecherchDom"

[fromond]

merci pour cette réponse
j'avais oublié de créer une clé commune entre les tables
j'avais suivi une demo sur youtube mais il me manquait la clé
merci aussi pour service et votre réactivité

[fromond]

bonjour

depuis que j'ai eu ta réponse je n'arrive pas à faire marcher cette fonction

Code VBA :

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

txt_nom = DLookup("[nom]", "[customert]", "[client_id]= " & [client_id])

txt_nom est le champ arrivé
nom champ de départ
customer table de départ
client_id le champ commun

merci pour votre réponse

[ClaudeLELOUP]

Bonjour,

Peut-être que ceci pourrait t'aider : http://claudeleloup.developpez.com/t...lic-ploc/#LIII

[Zekraoui_Jakani]

En plus de la riche documentation suggérée par ClaudeLeloup, tu peux essayer ceci:

si [client_id] est un nombre, la formule est:

Code :

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

txt_nom = DLookup("[nom]", "[customert]", "[client_id]= " & [client_id])

si [client_id] est du texte, la formule est:

Code :

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

txt_nom = DLookup("[nom]", "[customert]", "[client_id]= '" & [client_id] & "'")

[fromond]

ce n'est pas dans la formule je crois que l'erreur existe mais plutôt dans la construction de la base
car dans le formulaire la liste déroulante de l'id_client je vois bien les deux colonnes remplies et c'est l'affectation du champ nom au champ du formulaire txt_nom
qui ne se fait pas
merci encore

[fromond]

ce n'est pas les formules qui étaient en cause mais une erreur de débogage
merci surtout de votre aide