Discussion :

[Kelly182]

salut tout le monde,

Voila j'ai une premiere liste avec un choix de valeurs ( la requete donne: numsite, nomsite(visible)) et je voudrais que dans ma deuxiéme liste (departement) il apparaisse par defaut la valeur du departement ou se situe le site, donc voila le code que j'ai fait ( et qui naturellement ne marche pas), il faut en faite que l'utilisateur puisse changer le departement si il existe un site avec le meme nom mais pas dans le meme departement et dans un autre temps le rajouter a la liste:

Code :

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

1
2
3
4
5
6
Private Sub lst_site_nom_AfterUpdate()
 
Me.lst_site_nom.Column(1) = Me.lst_dep.defaultvalue
Me.lst_dep.Requery
 
End Sub

merci

[Didier L]

Bonjour,

je ne comprend pas bien ton code

ou se trouve le liens entre le site et le département ?
Dans quelle colonne de ta première liste ?
et pourqui après avoir sélectioné ton site, tu veux changer la valeur du nom de ce dernier ?

Code :

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

1
2
 
Me.lst_site_nom.Column(1) = Me.lst_dep.defaultvalue

ne voudrait tu pas faire l'inverse ?

Code :

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

1
2
 
Me.lst_dep.defaultvalue=Me.lst_site_nom.Column(1)

Car tu ne pourra jamais changer le contenu de ta colonne(1) sauf en changeant le contenu de ta requête ou en sélectionnant une autre ligne !

[Kelly182]

Bonjour didierL,

ma table site: Numsite, nomsite, numdepartement
ma table departement: Numdepartement, libelledepartement

en faite en affichant un site dans une liste déroulante, cela propose automatiquement dans une autre liste le numdepartement qui correspond, mais comme un site peut avoir le meme nom mais pas dans le mem departement alors il faudrait pouvoir changer le departement, donc je pensais qu'il fallait mettre par defaut le numdep que l'on obtient par la premiere liste.

1er liste: Nomsite, Numdep
2éme liste: Numdep

voila en esperant avoir ete plus clair!!
effectivement pour le code c'etait a l'inverse (mais ca marche quand meme pas!! )

[Didier L]

Tu n'es pas obligé de passer par la valeur par defaut et
dans ce cas c'est bien :

Code :

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

1
2
 
Me.lst_dep=Me.lst_site_nom.Column(2)

Qu'il faut faire.

"Column(2)" car tu as bien la première colonne invisible qui contient le numéro de ton site !

[Kelly182]

Bouhou!! ca veut pas marcher!!!

j'ai bien mis le code que tu ma donné!!

Code :

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

1
2
3
4
5
Private Sub lst_site_nom_AfterUpdate()
 
Me.lst_dep = Me.lst_site_nom.Column(2)
 
End Sub

en change() ca marche pas mieux!

(au fait il est sympa le robinson en avatar )

comprends pas pourquoi ca marche pas!!

[Kelly182]

apres bidouillage ca marche!!!

voici le code:

Code :

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

1
2
3
4
5
6
Private Sub lst_site_nom_AfterUpdate()
 
Me.lst_dep.Value = Me.lst_site_nom.Column(1)
Me.Refresh
 
End Sub

merci didierl