Discussion :

[DrizztDo]

Bonjour,

j'aimerais mettre une évênement sur simple clic dans une listbox qui en mettrait une autre à jour :
par exemple je clique sur une entrée dans ma listbox 1 et la listbox 2 se met à jour. Le problème c'est que mon code ne reconnait pas la sélection sur simple clic, je suis obligé de mettre un double clic pour que ca fonctionne. Auriez vous des pistes ?

Mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
Dim sql As String, id_demand As String
 
 
For Each ver In Form_F_qualif_0.L_Demand.ItemsSelected
    id_demand = CInt(Form_F_qualif_0.L_Demand.ItemData(ver))
Next ver
 
sql = "SELECT T_Mails.SUJET as sujet, T_Mails.SENDER as sender, T_Mails.id_outlook as id_outlook from T_Mails "
sql = sql & " where ID_Demande = " & id_demand & ";"
 
Form_F_qualif_0.L_mails_demande.RowSource = sql
Form_F_qualif_0.L_mails_demande.Requery

[Demco]

Essaie l'événement Change.

En espérant t'aider.

[User]

Bonsoir,

Une simple question:

Sur ta première listBox, sélectionne-tu plusieurs éléments.

En d'autres termes, le critère de ta requête doit-il prendre en compte plusieurs valeurs pour l'id_demand ?

@+

[DrizztDo]

Bonjour,

tout d'abord merci pour vos réponses.

Ensuite, je n'ai pas d'événement change sur ma listbox, mais je pense avoir testé tous les événements (y compris after update) sans succès. Il n'y a que l'événement mouvement de souris qui fonctionne, mais ce n'est pas utilisable.

Ma listbox est à sélection unique (un seul id_demand).

[User]

Salut,
sur click tu devrais avoir 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 L_Demand_Click()
Dim sql As String, id_demand As Integer
 
id_demand = CInt(Me.L_Demand.value)
 
sql = "SELECT T_Mails.SUJET as sujet, T_Mails.SENDER as sender, T_Mails.id_outlook as id_outlook from T_Mails "
sql = sql & " where ID_Demande = " & id_demand & ";"
 
Me.L_mails_demande.RowSource = sql
 
End sub

Si biensur tous tes contrôles "L_Demand" et "L_mails_demande" sont sur le même formulaire...

Regarde aussi du coté de la propriété colonne liée de ta liste "L_Demand".

A+

[DrizztDo]

Merci ca marche impec, c'était tout con en plus...