[AC-2003] Récupérer les données du calendrier

[comme de bien entendu]

Bonjour,

J'utilise le calendrier Microsoft dans une appli Access mais je ne parviens pas à récupérer la date sélectionnée, j'ai toujours la même date du 11/05/2011.
C'est l'objet intitulé "SelectionDate" qui est mon MSCAL. Cf. code ci-dessous

Code :

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
 
 
Private Sub ValideDate_Click()
Dim MonFormDate As Object
Dim CtrlDate As Control
Dim btn_date As Control
 
'Recuperation de la date
Set MonFormDate = Forms("Resultats_Analyse")
Set CtrlDate = MonFormDate.Controls("SelectionDate")
Set btn_date = MonFormDate.Controls("ValideDate")
   Debug.Print CtrlDate.Year
    Debug.Print CtrlDate.Month
    Annee_chargee = CtrlDate.Year
    Mois_Charge = CtrlDate.Month
 
    CtrlDate.Visible = False
     btn_date.Visible = False
    Set CtrlDate = Nothing
    Set btn_date = Nothing
    MsgBox "Chargement de la période " & Mois_Charge & " " & Annee_chargee & " effectué."
  Set MonFormDate = Nothing
 
 
End Sub

Merci d'avance de vos idées.

[User]

Salut,

S'il s'agit d'1 objet OCX ne faisant pas partie intégrante des outils et composants Access tu dois le définir à l'aide d'une variable.

Par exemple, pour un MsCal, tu peux essayer avec la variable et non pas avec le contrôle lui-même :

Code :

1
2
3
4
5
6
7
8
Dim ObjCal As Object
 
Set ObjCal = Me.SelectionDate.Object
 
Annee_chargee = ObjCal.Year
Mois_Charge = ObjCal.Month
 
Set ObjCal = Nothing

A+

[comme de bien entendu]

Merci je test aujopurd'hui.
(Je galère car j'ai pas le net au bureau donc se débrouiller avec l'IPhone c'est pas top.)
J'essayerais de cliquer sur résolu ce soir si c'est ok.

[comme de bien entendu]

Bonjour,

En fait je voulais me servir seulement du mois et de l'année du calendrier.
Mais on dirait qu'il faut absolument cliquer sur un jour pour mettre à jour le controle.
A moins de générer un click.
A voir.