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é.

[talrashha]

Ben, je sais pas.

Le problème viens d'un truc stupide d'Access qui dit que lorsqu'il y a un code sur un evenement, il intercepte l'action qu'Access aurait du faire sans le code... J'ai plus ou moins le même soucis lorsque l'on met un evenement en sortie d'un champ dans un formulaire et que l'on essaye de changer d'enregistrement... ca fonctionne pas.

J'ai cherché une magouille pour ton souci mais je ne vois pas.
J'imagine que ton chrono change tout le temps de valeur donc ca risque de pourrir l'érgonomie si tu actualise la liste à chaque changement de valeur du chrono...

Dsl, je passe la main...

[bobosh]

non non ne t'inquiète pas ça ne pourrie pas l'ergonomie.
J'actualise seulment au clique sur la listbox.

Par contre explique moi ton problème je peux peut être t'aider

[talrashha]

Ce que je te proposai, c'est d'exécuter cette procédure à chaque modification de "chrono" et a chaque modification de la "date" dont tu parlais, plutot que le faire sur clique. Le souci d'actualiser à chaque clique, c'est que lorsque tu sélectionne un élément dans ta liste, et bien Access considère ça comme un événement (jusque la, c'est normal)...
Mais vu qu'il exécute le code VB de l'élément, et bien il en oublie que à la base, tu cliquais pour sélectionner un élément dans une liste.

Si tu veut un autre exemple (c'est le souci que j'avais, mais j'ai laché l'affaire) :
Créer un formulaire basé sur une table bidon. Supprime tous les champs, et met seulement un champ texte lié à rien.

Ensuite, sur ce champs texte, tu met un code bidon "sur sortie" de ce champ, par exemple :

Code :

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

1
2
 
Texte0.value = Ucase(Texte0.Value)

Et la, tu fais un test : tu ecrit un truc dans ton champ, et tu appuie sur un des boutons pour parcourir les enregistrements... et bien tu constatera que le changement d'enregistrement ne se fait pas. L'explication est la même :
Au moment ou tu clique sur le bouton de parcours des enregistrement, Access voit qu'il a un code à exécuter (le code sur sortie de champ). Et donc, il exécute bravement ce code.... et il oublie que : on a appuié sur le bouton pour changer d'enregistrement.

Fais le test, c'est "marrant" -_-