Discussion :

[meehan]

Bonsoir

J'explique mon cas

J'ai un formulaire "clientlisting" dans lequel j'affiche,dans une zone de liste indépendante nommé "liste2", TOUT mes clients.

J'ai un 2ème formulaire "libelle" avec un sous formulaire "client"
"IDclient" est la clé primaire des mes clients.

Ce que je cherche à faire c'est:

-Lorsque "clientlisting" est ouvert, je sélectionne un client.
-Puis valide la sélection par un bouton "OK"
-Cet action ouvre le formulaire "libelle" sur un enregistrement vierge.
-Et là, faudrait que le sous formulaire "client" soit déjà pré-remplit grâce à ma sélection.

Je coince
Avec

Code :

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

DoCmd.OpenForm "libelle", acNormal, , "IDClient=" & Me!Liste2 & " "

j'ouvre seulement les libelle déjà remplis avec le client sélectionné.

Si quelqu'un peu m'aider a trouver ce foutu code me permettant de faire ça.

Un grand merci d'avance

[ClaudeLELOUP]

Bonjour,

Dans l’événement « sur ouverture » de libelle, tu devrais tester si clientlisting est ouvert :

Code :

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

if not currentproject.AllForms("clientlisting").IsLoaded then exit sub

(ceci pour éviter l'erreur si tu ouvres libelle de manière manuelle).
Ensuite pour compléter ton sous-formulaire voici un exemple de syntaxe

Code :

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

Me.client.LechampDansClient = forms!clientlisting.LechampDansClientListing

Ceci n'a rien de "foutu".
Bonne journée.

[meehan]

Merci pour ton aide, mais je sai spas si c'est moi mais ça fonctionne pas non plus

[meehan]

C'est bon j'ai trouvé.

j'ai mis

Code :

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

Forms.libelle.IDClient = Forms.clientlisting.liste2

Merci ClaudeLELOUP

Juste une chose, quelle est la différence entre ces 2 code svp?

Code :

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

1
2
3
4
 
forms!clientlisting.blabla
 
forms.clientlisting.blabla

[ClaudeLELOUP]

Bonjour,

vois dans la FàQ
http://access.developpez.com/faq/?pa...iffPtAndPtExcl

[meehan]

Super merci à tous bonne journée