Discussion :

[SpyesX]

Bonsoir tout le monde

J'aimerais faire un calendrier style MSCAL.Calendar.7 qui ouvre un formulaire et donne les enregistrements à la date choisie.

Exemple: Deux Formulaires:

- Menu : Avec le calendirer style MSCAL.Calendar.7
- DetailsCalendrier: Avec une zone de liste, une requête vba (Nom, Prénom, DateDépart, DateArrivée, DatePrévue...)

Je vroudrais que lorsque je clique sur le 01/03/2006 de mon Menu, il ouvre mon DetailsCalendrier avec pour WHERE la date (01/03/2006)

Pour le moment j'ai essayé avec un petit code _Click() mais je me suis apperçu que le MSCAL.Calendar.7 n'a pas cette "option". De plus je ne sais pas comment récuprer des données de mon calendrier pour les envoyer sur l'autre formulaire de détails

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private Sub Calendrier_Click()
 DoCmd.OpenForm DetailsCalendrier, , , "Date_Arrivée=" & MenuCalendrier Or "Date_Départ_Prévue=" & MenuCalendrier Or "Date_Départ_Effective=" & MenuCalendrier
 
End Sub

QQ'un aurait il une piste, ou un tuto pour me guider svp?

Je vous remerci d'avance pour votre aide

[SpyesX]

Existe t-il un moyen de crée un calendrier pour récupérer la date clickée?

[Arkham46]

slt,

avec un petit code _Click() mais je me suis apperçu que le MSCAL.Calendar.7 n'a pas cette "option"

Bouton droit sur le contrôle --> Créer code événement
et au dessus de la page de code tu as tous les événements dans les combobox

De plus je ne sais pas comment récuprer des données de mon calendrier

il faut formater la date au format US (plein de FAQ et de messages à ce sujet)
et il faut bien séparer les chaînes de caractères du reste, tu as des "Or" qui se baladent...