Discussion :

[toine52000]

Bonjour à tous,

Je souhaite créer un formulaire sous Access avec des indications sur une autre table, je m'explique: j'ai créer deux tables, une EMPLOYE préalablement remplie et une autre LIVREUR. Je souhaite remplir cette table LIVREUR avec un formulaire.

Ce formulaire devrait comporter plusieurs champs:

* Un champs NuméroLivreur qui est automatiquement attribué
* Un champs NumEmployé qui devra être une liste déroulante qui choisis une valeur tiré du champs NumEmployé de la table EMPLOYE mais qui devra s'enregistrer dans le champs NumEmployé de la table LIVREUR.
*Puis 2 champs, nom et prénom, non-modifiable, qui affiche le nom et prénom de l'employé correspondant au champs NumEmployé sélectionné dans la liste déroulante précédente.

Après des heures de travail et de nombreux sites consultés, je n'arrive pas à obtenir le résultat voulu. Si quelqu'un sait comment effectuer cela, je lui en serais très reconnaissant de m'aider.

Merci d'avance,

Toine52000

[Invité]

Bonsoir
Je ne sais pas si j'ai tout compris.
Les deux champs Noms et Prénom sont donc juste là pour l'affichage?

Si c'est le cas, ta liste déroulante peut avoir deux colonnes supplémentaires.
Sur l'évènement "Après mise à jour" de ta liste déroulante tes zones de texte ou labels pourront faire référence à ces colonnes.

[toine52000]

C'est exactement ça! Mais c'est la procédure pour y faire référence que je n’arrive pas à faire...

[Invité]

Bonjour
Imaginons que tu as une ComboBox "cboEmploye" avec 3 colonnes (Num, Nom, Prenom). Cette combo sera liée à la table par le champ Num
Tu as également une zone de texte "txtNom" ou un label "lblNom"

Sur l'évènement Après mise à jour de ta comboBox il te suffira de mettre:

Code :

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

1
2
3
4
5
6
7
8
Private Sub cboEmploye_AfterUpdate()
Dim strNom as String
strNom = Nz(Me.CboEmploye.Column(1),"")
 
Me.txtNom.ControlSource = "=" & Chr(39) & strNom & Chr(39)
'ou
Me.lblNom.Caption = strNom
End Sub