Discussion :

[manusp]

Bonjour,

J'aimerais savoir si il y a une solution pour avoir les années civiles (depuis 1975 à peu près) dans une zone de liste déroulante ?

Merci d'avance

[FreeAccess]

Bonjour,

Pourrais-tu nous détailler un peu plus ta demande

Quel problème as-tu pour avoir ces données dans une Zone de liste déroulante

Elles peuvent provenir d'une table, voire éventuellement être "générer" de façon dynamique.....

[manusp]

en fait c'est juste pour savoir si il existe une solution pour avoir les années dans une ZDl déroulante sans avoir à les taper dans un table, que se soit automatique ( je pense à un code vba ).

[Invité]

Bonjour

Tu peux t'inspirer de cela : http://www.developpez.net/forums/d41...ulante-annees/

Philippe

[FreeAccess]

OK.....

Mais as-tu vraiment besoin de l'ensemble de TOUTES ces dates dans ta ZdL

...car sinon, tu remplace par un champ de type Date.....et tu active sa propriété "Afficher le sélecteur de date = À certaines dates"

...sinon, il me semble, qu'à partir de EXCEL tu peux générer de façon simple toute les dates pour une année donnée...à voir

Sinon la solution de Philippe JOCHMANS répond parfaitement à ma proposition de "générer" ces dates de façon dynamique...

[manusp]

Le code ne fonctionne pas pour Access 2007 !!!
La zone de liste déroulante reste vide

[Invité]

Re

Je viens de tester cela sous Access 2007 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub cboAnnee_GotFocus()
    Dim i As Integer
    With Me.cboAnnee
        .RowSource = ""
        .RowSourceType = "Value List"
    End With
    For i = 1 To 5
        Me.cboAnnee.AddItem Year(DateAdd("yyyy", i - 2, Date))
    Next i
 
End Sub

Philippe

[manusp]

il faut bien rentrer ce code en code évènement de la Zdl déroulante ???

[Invité]

Re

Oui sur l'évènement GotFocus (Sur réception Focus).

Philippe

[manusp]

il y a d'autres paramètres à prendre en compte ??
Pour le moment ma Zdl est tjs vide

[Invité]

cela fonctionne parfaitement chez moi.

Peux-tu mettre le code que tu as mis sur le forum ? et où tu l'as mis.

Philippe

[manusp]

voici le code de ma ZDL

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
Option Compare Database
 
Private Sub cboAnnee_GotFocus()
    Dim i As Integer
    With Me.cboAnnee
        .RowSource = ""
        .RowSourceType = "Value List"
    End With
    For i = 1 To 5
        Me.cboAnnee.AddItem Year(DateAdd("yyyy", i - 2, Date))
    Next i
End Sub
 
Private Sub Année_GotFocus()
 
End Sub

ce code est sur réception focus : procédure évenementielle

Le type de données dans ma table est bien : date/heure

[FreeAccess]

Bonjour,

Je pense qu'un petit éclaircissement s'impose...

@ manusp
- ta Zdl doit être nommée cboAnnee
- sur l'événement "Sur réception focus" tu entre le code proposé....
-.....et puis c'est tout......dès que tu cliquera sur ta Zdl, le code VBA va générer automatiquement et remplir de façon dynamique (AddItem) les éléments de ta liste.
La liste proposée sera toujours composée uniquement de l'année en cours - 1, suivie des quatre suivantes (2010, 2011, 2012, 2013, 2014)

...Le type de données dans ma table est bien : date/heure

que vient faire ici cette notion de table

Pour ma part, je pense, que pour résoudre rapidement ton problème.........il faudrait nous redire exactement ce que tu souhaite et pourquoi....

..avoir les années civiles (depuis 1975 à peu près) dans une zone de liste déroulante

Pour moi, une année civile, correspond à une période de date entre le 1er janvier et le 31 décembre d'une année (pour faire simple 365 jours.....)

...et tu désire avoir dans cette ZdL, toutes les dates depuis l'année 1975 jusqu'à aujourd'hui.....soit à la louche 35 ans x 365 jours = 12775 dates + 21 jours de 2011 = 12796 dates différentes.....

Pas trop conviviale ta ZdL...

Maintenant, si ton but est juste de "contrôler" la saisie d'une date "bornée" entre deux périodes......l'utilisation d'un contrôle Texte ayant les propriétés suivantes est largement suffisante:
- Format = date abrégé
- Afficher le sélecteur de dates = à certaines dates

....en fin de saisie, tu contrôle que cette date appartient bien à la période souhaitée...

Tu peux également utiliser un contrôle Calendrier.....
Calendrier de saisie sous une zone de texte

[manusp]

Je n'avais pas ajouté "cboannee" comme nom de ma Zdl.

donc maintenant ça fonctionne beaucoup mieux
merci à vous 2