pb remplir Listbox dynamique

Bonjour à tous!
Voila j'essaye de faire une petite appli de reservation pour un théatre (devoir de vacances).
J'ai fait pour cela une table sous access avec en gros les colonnes pieces,datedébut,datefin
Dans mon form j'ai fait une combo qui charge en dur au démarrage les 12 mois de l'année
J'essaye de faire en sorte que lorsqu'on sélectionne un mois dans la combo
ca affiche le nom de la piece dans la listbox.
Mon problème c'est que si la piece dure trois mois il faut qu'on puisse la voir à chaque mois sélectionné, logique!
mais je n'arrive qu'a soit afficher la piece pour le premier ou le dernier mois , soit à l'afficher autant de fois qu'il ya de mois ou elle est jouée
Voici ce que j'ai fais :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

rst.Open "SELECT * FROM LstSpectTab", cnx, adOpenDynamic, adLockOptimistic   If Not rst.EOF Then Do Until rst.EOF strDateDebut = rst.Fields("date_debut").Value strDateFin = rst.Fields("date_fin").Value pieceTemp = rst.Fields("pieces").Value   If Month(strDateDebut) = Me.cboMois.ListIndex + 1 Or _ Month(strDateFin) = Me.cboMois.ListIndex + 1 Then Me.lstSpectMois.AddItem pieceTemp End If rst.MoveNext Loop End If

---

Bonjour à tous!
Voila j'essaye de faire une petite appli de reservation pour un théatre (devoir de vacances).
J'ai fait pour cela une table sous access avec en gros les colonnes pieces,datedébut,datefin
Dans mon form j'ai fait une combo qui charge en dur au démarrage les 12 mois de l'année
J'essaye de faire en sorte que lorsqu'on sélectionne un mois dans la combo
ca affiche le nom de la piece dans la listbox.
Mon problème c'est que si la piece dure trois mois il faut qu'on puisse la voir à chaque mois sélectionné, logique!
mais je n'arrive qu'a soit afficher la piece pour le premier ou le dernier mois , soit à l'afficher autant de fois qu'il ya de mois ou elle est jouée
Voici ce que j'ai fais :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

st.Open "SELECT * FROM LstSpectTab", cnx, adOpenDynamic, adLockOptimistic   If Not rst.EOF Then Do Until rst.EOF strDateDebut = rst.Fields("date_debut").Value strDateFin = rst.Fields("date_fin").Value pieceTemp = rst.Fields("pieces").Value   If Month(strDateDebut) = Me.cboMois.ListIndex + 1 Or Month(strDateFin) = Me.cboMois.ListIndex + 1 Then Me.lstSpectMois.AddItem pieceTemp End If rst.MoveNext Loop End If

---

A vue de nez :

Code:

---

1 2 3 4 5 6

Dim intNbMonths As Integer   intNbMonths = Month(strDateFin) - Month(strDateDebut) if Me.cboMois.ListIndex + 1 >= Month(strDateDebut) And Me.cboMois.ListIndex + 1 <= (Month(strDateDebut) + intNbMonths) Then ...

---

Vérifier au préalable que DateFin est > DateDebut

Cela semble très cohérent, étant débutant je n'ai pas encore la logique j'aimerais bien essayer mais j'ai pas vb au boulo j'essaye dès ce soir Merci !
Je ne mets pas en résolu pour l'instant

En fait je ne comprend pas très bien pour passer par un integer, je ne vois pas ce que cela change

ceci :

Code:

---

if Me.cboMois.ListIndex + 1 >= Month(strDateDebut) And Me.cboMois.ListIndex + 1 <= (Month(strDateDebut) + intNbMonths) Then

---

et ca :

Code:

---

if Me.cboMois.ListIndex + 1 >= Month(strDateDebut) And Me.cboMois.ListIndex + 1 <= Month(strDateFin) Then

---

donne le meme resultat non?

maniolo, les balises [quote], c'est pour les citations.
Pour le code, c'est... [code].

Logique, pourtant, non?

Citation:

---

Envoyé par maniolo

mais je n'arrive qu'a soit afficher la piece pour le premier ou le dernier mois , soit à l'afficher autant de fois qu'il ya de mois ou elle est jouée
Voici ce que j'ai fais :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

rst.Open "SELECT * FROM LstSpectTab", cnx, adOpenDynamic, adLockOptimistic If Not rst.EOF Then Do Until rst.EOF strDateDebut = rst.Fields("date_debut").Value strDateFin = rst.Fields("date_fin").Value pieceTemp = rst.Fields("pieces").Value If Month(strDateDebut) = Me.cboMois.ListIndex + 1 Or _ Month(strDateFin) = Me.cboMois.ListIndex + 1 Then Me.lstSpectMois.AddItem pieceTemp End If rst.MoveNext Loop End If

---

---

normal la partie en rouge te permet de le faire

Salut

Je viens de fusionner les deux discussions puisqu'il s'agissait rigoureusement de la même question...