OVH Cloud OVH Cloud

Comment passer une date au Controle Calendrier ?

2 réponses
Avatar
bricol
Bonjour,

Sous Access XP, j'ai un form de recherche FrmRech avec une zone de liste
ListRech dont la source est une requete.
Sur double clic d'un enregistrement de cette liste, je veux ouvrir un
formulaire FrmRappels qui contient le contrôle calendrier "Calendreir" de
telle sorte que la date affichée soit celle du champ correspondant à la
colonne 1 de la liste du form de recherche.

voila mon code

Private Sub ListRech_DblClick(Cancel As Integer)
Dim shortDate As String
shortDate = ListRech.Column(1)
' formatage du champ date-heure en ne conservant que jj/mm/yyyy
shortDate = Format(shortDate, "dd/mm/yyyy")
DoCmd.OpenForm "FrmRappels",
End Sub

Comment passer la valeur shortdate au contrôle calendrier vraissemblablement
par Calendrier.value sur la commande DoCmd OpenForm ?

Merci de votre aide.

Vincent

2 réponses

Avatar
Laurent
Hello,

Tu dois utiliser l'open arg qui te permet de passer une variable à un
formulaire lors de l'ouverture.

Tu remplaces donc :

DoCmd.OpenForm "FrmRappels"

Par :

docmd.OpenForm "FrmRappels",,,,,, ShortDate

Et dans le code de ta form "FrmRappels", au niveau du form load ou open :

Me.Calendrier.Value = Me.OpenArg

Dans l'exemple ci-dessus, le me.openarg contiendra la valeur de "ShortDate".
A bientôt.

Laurent.



Bonjour,

Sous Access XP, j'ai un form de recherche FrmRech avec une zone de liste
ListRech dont la source est une requete.
Sur double clic d'un enregistrement de cette liste, je veux ouvrir un
formulaire FrmRappels qui contient le contrôle calendrier "Calendreir" de
telle sorte que la date affichée soit celle du champ correspondant à la
colonne 1 de la liste du form de recherche.

voila mon code

Private Sub ListRech_DblClick(Cancel As Integer)
Dim shortDate As String
shortDate = ListRech.Column(1)
' formatage du champ date-heure en ne conservant que jj/mm/yyyy
shortDate = Format(shortDate, "dd/mm/yyyy")
DoCmd.OpenForm "FrmRappels",
End Sub

Comment passer la valeur shortdate au contrôle calendrier vraissemblablement
par Calendrier.value sur la commande DoCmd OpenForm ?

Merci de votre aide.

Vincent








Avatar
mouly
"bricol" wrote in
news:421c697a$0$11684$:

Bonjour,

Sous Access XP, j'ai un form de recherche FrmRech avec une zone de
liste ListRech dont la source est une requete.
Sur double clic d'un enregistrement de cette liste, je veux ouvrir un
formulaire FrmRappels qui contient le contrôle calendrier "Calendreir"
de telle sorte que la date affichée soit celle du champ correspondant
à la colonne 1 de la liste du form de recherche.

voila mon code

Private Sub ListRech_DblClick(Cancel As Integer)
Dim shortDate As String
shortDate = ListRech.Column(1)
' formatage du champ date-heure en ne conservant que jj/mm/yyyy
shortDate = Format(shortDate, "dd/mm/yyyy")
DoCmd.OpenForm "FrmRappels",
End Sub

Comment passer la valeur shortdate au contrôle calendrier


tout simplement par un
Monformulaire.MonCalendar.value = shortDate
tu avais deja fait tout le boulot :)
je ne suis même pas sûr qu'il faille lui donner une date au format court,
il faudrait essayer


--
mouly
mouly2 at yahoo dot com