Discussion :

[bobosh]

Bonjour tous le monde,

J'aimerais que lorsque je clique sur une listbox plusieur valeur s'ajoute, je vous montre ma fonction, cependant quand je clique sur ma listebox, la fonction n'est même pas lancé, j'ai vérifié avec de msgbox

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
MsgBox ("rtgbzrb")
Dim A As Date
Dim B As Date
Dim db As Database
Dim rq As Recordset
Dim Chrono As Long
 
Chrono = Forms.Formulaire_Principal.CRP.Form.Chrono.Value
Set db = CurrentDb()
Set rq = db.OpenRecordset("SELECT Date_Debut, Date_Fin From Dates_Visite WHERE Chrono=" & Chrono)
 
If Not (rq.EOF) Then
  A = rq(0)
  B = rq(1)
End If
 
Dim date_tmp As Date
date_tmp = A
 
While date_tmp <= B
   Liste_Dates.AddItem (date_tmp)
   date_tmp = date_tmp + 1
Wend

merci et bon week end

[talrashha]

Salut,

Ne met pas ton code sur l'evenement "Sur Click" mais plutot "Sur souris appuyée"

[bobosh]

merci de ton aide, cela fonctionne.
Cependant quand je selectionne une valeur de mla listbox, elle n'est pas selectionné(elle n'apparait pas dans le champ de ma listbox)

[talrashha]

Hum... Oui en effet :s

Je dirai bien que... je crois que ce que tu veut faire, c'est que quand on arrive sur cette liste, son contenu s'adapte en fonction de

Code :

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

1
2
 
Forms.Formulaire_Principal.CRP.Form.Chrono.Value

Donc j'aurai tendance à penser que plutôt qu'actualiser ta liste à chaque clic, soit tu le fais "Sur modification" de Chrono, soit uniquement "Sur récéption focus" sur ta liste. Pas la peine de l'actualiser à chaque fois que le menu déroulant s'ouvre, si?

[bobosh]

non du tout,

le problème c'est que par exemple quand je clique sur la listbox,

par exemple 3 dates apparaissent, mais quand je selectionne une de ces dates, le champs de la listbox reste vide.

[bobosh]

Et si je dois l'actualiser à chaque clique car la date ou le chrono peut être modifié.