Comment Positionner le calendrier Calendar à une date
2 réponses
-- 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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Eric
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
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
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 --
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
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
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