Comment Positionner le calendrier Calendar à une date

Bonjour,
J'ai un formulaire avec l'objet Calendar (Calendrier)
je cherche comment le positionner à une date precise
à l'ouverture, car Il ne prends pas l'argument Openargs transmis
par un autre formulaire
Voici mon code
' Le Formulaire qui appel le calendrier par double clic
' avec le passage de la date à afficher par Openargs
Private Sub DateDebut_DblClick(Cancel As Integer)
DoCmd.OpenForm "frm Calendrier", , , , , , DateDebut
End Sub

'Le formulaire 'Frm Calendrier' qui contient l'objet Calandar
Private Sub Form_Open(Cancel As Integer)
Calendar0.Value = OpenArgs
End Sub

Si vous avez la raison du non fonctionnement
D'avance merci pour les reponses

René

Bonjour,

Je crois que tu ne peux affecter une valeur au Calendrier que sur
l'évènement Chargement (Load). Donc je mettrai:

Private Sub Form_Load()
If IsDate(Me.OpenArgs) Then
Me.Calendar = CDate(Me.OpenArgs)
End If
End Sub

à la place de Private Sub Form_Open(Cancel As Integer)

et sans rien changer à la procédure Private Sub
DateDebut_DblClick(Cancel As Integer)

Bonjour,
J'ai un formulaire avec l'objet Calendar (Calendrier)
je cherche comment le positionner à une date precise
à l'ouverture, car Il ne prends pas l'argument Openargs transmis
par un autre formulaire
Voici mon code
' Le Formulaire qui appel le calendrier par double clic
' avec le passage de la date à afficher par Openargs
Private Sub DateDebut_DblClick(Cancel As Integer)
DoCmd.OpenForm "frm Calendrier", , , , , , DateDebut
End Sub

'Le formulaire 'Frm Calendrier' qui contient l'objet Calandar
Private Sub Form_Open(Cancel As Integer)
Calendar0.Value = OpenArgs
End Sub

Si vous avez la raison du non fonctionnement
D'avance merci pour les reponses

René

--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr