Discussion :

[timal78]

bonjour,
je ne suis pas super pro dans access mais bon mon boss ne jure que par ça .
je doit faire un formulaire dans lequel il y a une zone de liste déroulante une fois que clic sur un nom la zone de texte juste à coté doit se remplir toute seul comme une grande

liste déroulante :

nom_dro : (de la table X)
juju
pepe
:
:
zone de texte :

lieu : (de la table Y)
paris
:

[francishop]

Bonsoir,

.....dans access mais bon mon boss ne jure que par ça

Il est bien ton Boss!

On va voir pour, depuis une liste, pousser des informations vers des champs, puis, manoeuvre inverse tirer des informations vers des champs, pratiquement sans code.

Une table :
Nom.......Prénom.........Adresse.............Ville.....CodePostal...Pays...IDClient
Moi.........Jean.....10 rue des oiseaux...Luneville.....50100.....France....16
Toi........Janson...19 rue droite..........Amberieux....74700.....France.....2
Lui........Lucien....56 rue gauche.........Montreuil.....93100.....France....3
Lautre...Michel.....21 avenue étroite....Bobigny.......93000.....France....4
Eux......Richard....59 rue large.............Nogent.......94200.....France....5
Voisin....albert.....22 rue des poulets.....Chelles.......77500....France....10

Sur un formulaire sans source on inscrit une liste-->lstNoms
Données-->tblClients-->Colonnes liées=0 Nombre de colonnes-->5
Largeurs colonnes-->;0cm;0cm;0cm;0cm Largeur et hauteur = 2,54cm
4 zones de texte : txtPousse1 + txtPousse2 + txtPousse3 + txtPousse4
Un peu de code :

Code :

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

1
2
3
4
Private Sub Form_Open(Cancel As Integer)
    Me!lstNoms = 0 'On se cale sur le premier nom de la liste
    'Call lstNoms_AfterUpdate 'Si on veut remplir de suite les champs
End Sub

Code :

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

1
2
3
4
5
6
7
Private Sub lstNoms_AfterUpdate()
    Dim intI As Integer
 
    For intI = 1 To 4
        Me("txtPousse" & intI) = Me!lstNoms.Column(intI)
    Next intI
End Sub

Pour l'inverse, c'est à dire tirer le texte depuis les champs.

Sur un formulaire sans source on inscrit une liste-->lstNoms
Données-->tblClients-->Colonnes liées=0 Nombre de colonnes-->5
Largeurs colonnes-->;0cm;0cm;0cm;0cm Largeur et hauteur = 2,54cm
4 zones de texte : txtTire1 + txtTire2 + txtTire3 + txtTire4
Contenu de : txtTire1 =[lstNoms].[Column](1)
Contenu de : txtTire2 =[lstNoms].[Column](2)
Contenu de : txtTire3 =[lstNoms].[Column](3)
Contenu de : txtTire4 =[lstNoms].[Column](4)

Un peu de code sur ce formulaire :

Code :

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

1
2
3
Private Sub Form_Open(Cancel As Integer)
    Me!lstNoms = 0
End Sub

Cordialement.