Comment Positionner le calendrier Calendar à une date

Le
-- RG --
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é
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Eric
Le #6594651
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

-- RG --
Le #6595381
Merci Eric

C'est ok

A+ sur les news

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




Publicité
Poster une réponse
Anonyme