Discussion :

[captainamerica75]

hello !

J'ai la fonction suivante. elle me permet d'obtenir les dates comprises entre une date de début et une date de fin. Je souhaiterais que les dates que j'obtiens alimentent une zone de liste. Quelqu'un pourrait il me mettre sur la voie svp???? merci pour votre aide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Function getDatesBetween(dStart As Date, dEnd As Date) As Date()
     Dim i As Integer
     Dim d As Date
     If dStart > dEnd Then Exit Function
     ReDim Dates(Int(dEnd - dStart)) As Date
     For d = dStart To dEnd
         Dates(i) = d
         i = i + 1
         Next
     getDatesBetween = Dates
 End Function

[fscli]

salut
pourquoi ne pas passer directement par une requete que tu mettrai directement dans le rowsource de ta liste?

[pgz]

Bonjour,

Je te donne une idée :
Tu crées ta liste avec la propriété RowSourceType = "Liste de valeurs".
Ensuite tu modifies ta procédure pour obtenir la liste de tes dates non plus dans un tableau mais dans une chaîne de caractères, comme ceci

Code :

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

strDates = "31/05/06";"01/06/06"; ... ; "06/06/06"

Et tu fais

Code :

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

MaListe.RowSource = strDates

En espérant que cela t'aide,

pgz

[captainamerica75]

Salut tout le monde,

fscli dit :

salut
pourquoi ne pas passer directement par une requete que tu mettrai directement dans le rowsource de ta liste?

je ne peux pas utiliser une requête car je ne fais pas de recherche sur dans une table. Les dates que je recherchent "n'existent pas".

pgz dit :

Bonjour,

Je te donne une idée :
Tu crées ta liste avec la propriété RowSourceType = "Liste de valeurs".
Ensuite tu modifies ta procédure pour obtenir la liste de tes dates non plus dans un tableau mais dans une chaîne de caractères, comme ceci
Code :
strDates = "31/05/06";"01/06/06"; ... ; "06/06/06"Et tu fais
Code :
MaListe.RowSource = strDates
En espérant que cela t'aide,

Ta solution me donne exactement ce que je veux. Maintenant je dois juste l'adapter car il faut que je rajoute des conditions supplementaires...

Merci a vous deux pour votre aide,

@+

Voici le code final pour ceux que ca peut interesser :

Dans mon formulaire :

Code :

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

1
2
3
4
5
Private Sub cmdcheckdate_Click()
 
Me.LstDate.RowSource = ListerDates(Me.datestart, Me.dateend)
 
End Sub

Dans un module :

Code :

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

1
2
3
4
5
6
7
8
Function ListerDates(DateMin As Date, DateMax As Date) As String
    Dim i As Long
    Dim s As String
    For i = DateMin To DateMax
        s = s & ";" & Format(i, "dd/mm/yyyy")
    Next
    ListerDates = Mid(s, 2)
End Function

Merci à M.HUBICHE au passage !!!!!