Discussion :

[enrone]

Bonjour à tous,

Je découvre le logiciel Access, et j'aurais besoin de votre aide pour un formulaire.
Voila mon probleme: J'ai créé une requete et un formulaire qui s'appui sur celle ci pour ajouter une nouvelle facture.
Sur ce formulaire j'ai mis un bouton "ajouter un nouvel enregistrement" qui vide tous les champs afin que je puisse les remplir.
Parmi ces champs j'ai prénom client, nom client... et je voulais que si le client existait deja je choisisse son nom dans une zone de liste et que ca me complete toutes les informations.Ce que j'ai réussi à faire.
Et le probleme c'est qu'il me complete bien les champs mais qu'il complete aussi les champs "quantité achetées", "produit acheté"... en faite il complete tout mon formulaire, jaurai donc voulu que quand je selectionne un nom dans la zone de liste il ne complete que les champs voulu.
J'ajoute une image de mon formulaire en PJ.

J'espere que j'ai été clair, en tout cas merci beaucoup pour votre aide.

[Marc_27]

Bonjour enrone.

Quel est le code derière la liste derroulant?
Dans ta base, t'as que une table? Ou une table clients et une autre table commandes?

[enrone]

le code derriere le menu déroulant:

dans contenu: SELECT [facture Requête].[Nom], [facture Requête].[Prenom] FROM [facture Requête];

dans apres MAJ:
-action: RechercherEnregistrement
-arguments: ; ; Premier; ="[Nom] = " & "'" & [Screen].[ActiveControl] & "'"

J'espere que c'est ca comme je l'ai dit je suis débutant.

Dans la base j'ai 7 tables: client, facture, detail facture, fournisseur, produit, vendeur, catégorie.

[Vorjb]

Hello!

Pourquoi ne pas passer par :

Zone de liste déroulante construite ainsi:

CodeClient|NomClient|PrenomClient|Adresse|CodePostal|Ville|Pay

Ensuite, dans chaque champs, au niveau de la MAJ de ta zone déroulante, tu mets un code du style:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub ZoneDeroulante_AfterUpdate()
 
Me![NomClient]=Me![ZoneDeroul].Column(1)
Me![Prenom]=Me![ZoneDeroul].column(2)
Me![Adresse]=Me![ZoneDeroul].column(3)
Me![CodePostal]=Me![ZoneDeroul].column(4)
Me![Ville]=Me![ZoneDeroul].column(5)
Me![Pays]=Me![ZoneDeroul].column(6)
Me![CodeClient]=Me![ZoneDeroul].column(0)
 
End Sub