Discussion :

[psykbe]

Bonjour,

Tout d'abord j'ai un formulaire avec des champs de saisie 'standard' où là ça ne pose pas de problèmes mais j'en ai un autre où je sèche.

J'ai dans une partie de ce formulaire une zone avec une liste déroulante qui récupère les données avec une requête sql (aucun soucis la sélection s'affiche et est bien récupérée) mais j'aimerait que les autres champs qui se trouve dans cette requête se remplissent automatiquement par rapport au choix fait dans la liste déroulante).

Pour être plus clair j'ai dans liste 3 champs qui sont affiches par lignes (on va dire nom, prénom, code pays), si je sélectionne dans la liste déroulante nom (où les 3 champs s'affichent pour chaque ligne) le 1ier A (nom : A, prénom : B, code pays : BE) le A s'affiche dans le formulaire pour le nom mais j'aimerait bien que le champ prénom se remplisse automatique avec le B correspondant et pareil pour le champ code pays (et que ça se mettre à jour aussi si l'utilisateur change le 1ier champ).

De quelle façon peut-on faire se genre de choses avec un formulaire access ?

Merci d'avance,

[psykbe]

Un peu d'avancement et une solution se profilerait en vba mais j'y connait vraiment rien en vba

j'ai essayé de cette manière et ça fonctionne :

Code :

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

1
2
3
4
5
Option Compare Database
 
Private Sub nomclient_Click()
    nomclient2.Value = "nomclient2"
End Sub

Lorsque je sélectionne un élément dans la liste nomclient le champ nomclient2 se met bien avec "nomclient2" mais j'aimerait remplacer ce "nomclient2" par la valeur correspondante sur la ligne de sélection nomclient.

J'avait pensé à une requête SQL mais visiblement le vba aime pas des masses (ou alors il y a une astuce que je ne connait pas pour selectionner nomclient 2 de la table client où le champ nomclient serait = à la valeur du champ sélectionne dans la liste nomclient).

Quelqu'un à une idée partant de cette idée?

[Heureux-oli]

Le VBA est obligatoire.

Dans l'évènement Après MAJ (AfterUpDate) de ta liste, tu affectes les valeurs des colonnes à tes champs.

Code :

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

1
2
3
4
5
6
7
 
Sub MaListe_AfterUpDate()
Me.MonChampNom = Me.Maliste
Me.MonChampPrénom = Me.Maliste.Column(1)
Me.MonChampCodePays = Me.Maliste.Column(2)
 
End Sub

[psykbe]

J'ai finalement trouvé à force d'essayer et de voir un peu la liste des fonctions dispo voici la solution

Code :

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

1
2
3
4
5
Option Compare Database
 
Private Sub nomclient_Click()
    nomclient2.Value = nomclient.Column(1)
End Sub

[Heureux-oli]

C'est pas ce que j'avais mis ??

[psykbe]

C'est pas ce que j'avais mis ??

Si c'était dans la même idée maintenant il faut passer à la suite