Discussion :

[maniolo]

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 :

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

[maniolo]

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 :

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

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

[BertrandA]

A vue de nez :

Code :

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

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

[maniolo]

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

[maniolo]

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

ceci :

Code :

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

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

et ca :

Code :

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

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

donne le meme resultat non?

[AlainTech]

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

Logique, pourtant, non?

[sovo]

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 :

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

[zazaraignée]

Salut

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