Discussion :

[antoine1504]

Bonjour,

Comment peut-on obtenir dans une zone de liste déroulante la date du jour, la date du jour -1, la date du jour -2??

En fait, je veux que lors de la saisie dans un formulaire, l'utilisateur puisse sélectionner entre 3 dates, ayant pour valeur la date du jour, la date du jour -1 et la date du jour-2.

J'arrive à obtenir la date du jour, en mettant "valeur par défaut: = Date()" mais je n'arrive pas à obtenir dans la zone de liste déroulante les 3 dates.

Merci d'avance pour votre aide.

[LE VIEUX]

bonjour,
tu peux essayer :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Current()
Dim Date2 As Date
Date2 = Date + 1
 
For i = 1 To 3
Me.MaModifiable.AddItem Date2 - (i)
 
Next i
 
End Sub

[antoine1504]

Bonjour,

J'ai essayé le code que tu m'as donné. Mais j'ai le message d'erreur suivant:
"Erreur de compilation: Membre de méthode ou de données introuvable".

As tu une idée d'où vient cette erreur?
Merci.

[LE VIEUX]

salut,
quelle est ta version d'Access ?, si elle est antérieure à 2002 c'est AddItem qui pose problème.

[Dolphy35]

Bonjour,

Bonjour,

J'ai essayé le code que tu m'as donné. Mais j'ai le message d'erreur suivant:
"Erreur de compilation: Membre de méthode ou de données introuvable".

As tu une idée d'où vient cette erreur?
Merci.

Comment s'appel ta liste ????

dans le code la liste s'appelle MaModifiable pour l'exemple... Il faut que tu saisisse le nom de ta liste


Dolphy

[antoine1504]

Merci de vos réponses.
J'ai bien modifié le code en fonction de mon application.
Je travaille sous access 2000, le problème vient donc de là!
Qu'est ce qui remplace AddItem sous access 2000?

Merci.

[antoine1504]

J'ai essayé le code suivant:

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
 
Private Sub Date_reception_Click()
Dim Date1 As Date
Dim date2 As Date
Dim date3 As Date
Dim date4 As Date
 
Date1 = date
date2 = date + 1
date3 = date + 2
date4 = date + 3
 
Me!Date_reception.RowSource "Date1;Date2;Date3;Date4"
 
End Sub

Date_reception étant le nom de ma zone de liste. Mais cela ne fonctionne pas, ma zone de liste reste vide.

[LE VIEUX]

c'est bien ce que je craignais,
je n'ai pas acces à la version 2000, je pense qu'il faut effectivement que tu travailles avec rowsource.
il y a des abonnés qui sont sur 2000 - je te conseille de re poster en précisant "ACCESS 2000 Listes déroulantes avec variables" où quelque chose dans ce genre, si tu n'arrives pas à trouver sur le forum, de mon côté dès que je peux je cherche.
à +

[Gabout]

Bonjour,

Essaie de placer ce code à l'ouverture

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Open(Cancel As Integer)
   Dim date1 As Date, date2 As Date, date3 As Date
   date1 = Date
   date2 = Date - 1
   date3 = Date - 2
   Me.cboDate.RowSource = date1 & ";" & date2 & ";" & date3
End Sub

N'oublies pas dans la propriété Origine source de mettre Liste de valeurs

Testes

[LE VIEUX]

ok, bien vu Gabout, merci pour la syntaxe, on arrête les recherches d'autant qu'elles ne sont pas évidente.....notre ami antoine a sa solution.

[antoine1504]

Bonjour,

Désolé pour cette réponse tardive, mais j'ai eu des soucis sur une autre base.
Merci pour vos réponses. Effectivement je pense avoir ma solution.
Me reste juste un pb au niveau du code:

Code :

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

Me.cboDate

n'est pas reconnu par mon access. J'ai le message d'erreur suivant: Membre de méthode ou de données introuvable.

S'agit il d'une référence qu'il me manque?
Merci d'avance pour vos réponses.

[antoine1504]

Désolé! J'ai trouvé mon erreur!!
Il suffisait que je mette le nom de ma zone de liste à la place de cbo!
Merci beaucoup pour votre aide!