Discussion :

[maniolo]

Bonjour à tous !
Voila j'essaye de faire apparaitre dans un label des informations stockées dans un base acces, apparaissant lorsque l'on click sur un combo proposant une liste déroulante
Cependant je n'arrive pas à rafraichir le label , il ya donc toujours la meme chose d'afficher

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
25
26
27
28
29
30
31
32
33
 
Private Sub cmdAfficher_Click()
Dim rst As New ADODB.Recordset
 
Dim strDateDebut As String
Dim strDateFin As String
Dim strResume As String
Dim strAffiche As String
Dim intCpt As Integer
 
    strAffiche = "Mois Selectionner : " & Me.cboMois.Text & vbCrLf & vbCrLf _
            & "Informations : " & vbCrLf
 
        For intCpt = 0 To Me.lstSpectMois.ListCount - 1
            If Me.lstSpectMois.Selected(intCpt) Then
              rst.Open "SELECT date_debut,date_fin,resume FROM Janvier", cnx, adOpenDynamic, adLockOptimistic
                If Not rst.EOF Then
                    Do Until rst.EOF
                        strDateDebut = rst.Fields("date_debut").Value
                        strDateFin = rst.Fields("date_fin").Value
                        strResume = rst.Fields("resume").Value
                        rst.MoveNext
                    Loop
                End If
                strAffiche = strAffiche & vbCrLf & Me.lstSpectMois.List(intCpt) & vbCrLf & strDateDebut & vbCrLf & strDateFin & vbCrLf & strResume
            End If
        Next intCpt
 
 Me.lblInfo.Caption = strAffiche
 
   rst.Close
   Set rst = Nothing
End Sub

[sovo]

et je presume que tu n'as que le dernier element ??

normal voila ce que tu fait

Code :

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

1
2
3
4
5
6
7
8
9
10
 
'tu recuperes a chaque fois les infos la pas de pb.
strAffiche = strAffiche & vbCrLf & Me.lstSpectMois.List(intCpt) & vbCrLf & _
strDateDebut & vbCrLf & strDateFin & vbCrLf & strResume
End If
'lorsque tu sorts de cette boucle tu ne garde que le dernier element
Next intCpt
 
'et la tu l'affiches
Me.lblInfo.Caption = strAffiche

que veux faire les afficher tous au meme moment (la il te faudra label) ??

[maniolo]

oui je n'ai que le dernier élément, le but n'est pas de les afficher tous au meme moment mais qu'à chaque fois que l'on selectionne un élément dans listebox
il apparaisse dans le label
J'ai donc déplacé mon

Code :

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

Me.lblInfo.Caption = strAffiche

dans ma boucle for mais rien de change

[SfJ5Rpw8]

et c'est quoi :

Code :

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

1
2
 
strResume

?

[maniolo]

c'est pour récupérer les valeurs d'une colonne de ma table

[sovo]

si quelque chose change, mais ca ce passe rapidement et ton oeil n'arrive pas a le voir.

Voila une solution, c'est pas la meilleur mais je suis juste ton idee.

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
25
26
27
28
Private Sub cmdAfficher_Click()
Dim rst As New ADODB.Recordset
 
Dim strDateDebut As String
Dim strDateFin As String
Dim strResume As String
Dim strAffiche As String
Dim intCpt As Integer
 
strAffiche = "Mois Selectionner : " & Me.cboMois.Text & vbCrLf & vbCrLf _
& "Informations : " & vbCrLf
 
 
rst.Open "SELECT date_debut,date_fin,resume FROM Janvier where ChampMois = '" &  Me.lstSpectMois.List(Me.lstSpectMois.Listindex) & , & _ cnx, adOpenDynamic, adLockOptimistic
Do Until rst.EOF
strDateDebut = rst.Fields("date_debut").Value
strDateFin = rst.Fields("date_fin").Value
strResume = rst.Fields("resume").Value
rst.MoveNext
Loop
strAffiche = strAffiche & vbCrLf & Me.lstSpectMois.List(intCpt) & vbCrLf & strDateDebut & vbCrLf & strDateFin & vbCrLf & strResume
End If
 
Me.lblInfo.Caption = strAffiche
 
rst.Close
Set rst = Nothing
End Sub

je croit que la sa devrais aller.
la je croit que ca devrais aller.

[maniolo]

Là mon oeuil tout ce qu'il arrive à voir c'est une ligne contenant la requete toute en rouge

[sovo]

et c'est a quel ligne ?? et quel message ??