Discussion :

[lolo_bob2]

Bonjour à tous

J'aimerais créer un contrôle texte ainsi qu'un bouton.
Lorsque l'on clic sur le bouton un calendrier apparait et lorsque l'on selectionne une date celle ci est inscrite dans le contrôle texte et le calendrier disparait.

j'ai regardé les exemple d'Arkham46 et dans le forum mais ce que je fais ne fonctionne pas !

J'ai bien trouvé le calendrier dans les contrôles active X...mais je n'arrive pas à réaliser l'action apparait et disparait apres selection de la date

Pouvez vous m'aidez ?

A+

[Jeffboj]

hello,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Private Sub btnDateCommande_Click() '<--- nom du bouton1
Me.CtlActiveXCalendrier.top = Me.btnDateCommande.top
Me.CtlActiveXCalendrier.Left = Me.btnDateCommande.Left
Me.CtlActiveXCalendrier.Today
Me.CtlActiveXCalendrier.Visible = True
a = 1
End Sub
Private Sub btnDateLivraison_Click()'<--- nom du bouton2
 
Me.CtlActiveXCalendrier.top = Me.TypeFourrure.top
Me.CtlActiveXCalendrier.Left = Me.TypeFourrure.Left
Me.CtlActiveXCalendrier.Today
Me.CtlActiveXCalendrier.Visible = True
a = 2
End Sub
Private Sub CtlActiveXCalendrier_Click()
  Select Case a
    Case 1
    Me.DateCommande = Me.CtlActiveXCalendrier.Value
    Me.DateCommande.SetFocus
    Me.CtlActiveXCalendrier.Visible = False
    Case 2
    Me.Delai = Me.CtlActiveXCalendrier.Value
    Me.Delai.SetFocus
    Me.CtlActiveXCalendrier.Visible = False
  End Select
End Sub

j'ai mis un exemple avec deux champs et 2 boutons pour un calendrier

tu mets ton controle calendrier sur ton formulaire et tu mets sa propriété visible à non

lorsque tu cilck sur le bouton il apparaît et lorsque tu click sur le calendrier sur une date il l'a mets dans le champ "DateCommande" ou "Délai" qui sont le nom des champs ici

Bonne chance!

Jeff

[T'chab]

salut

le mieux c'est de creer 2 boutons sur ton calendrier
- le premier "ok" pour valider et fermer le calendrier
- le second "annuler" pour fermer le calendrier sans saisir de date.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Option Compare Database
Option Explicit
 
Private Sub FB_ANNULER_Click()
'fermeture du calendrier
    DoCmd.Close  
End Sub
 
Private Sub FB_OK_Click()
Dim Z_date As Date
    Z_date = FC_Date
    DoCmd.Close
    Screen.ActiveForm.ActiveControl = Z_date
End Sub

avec ces 2 boutons plus de soucis pour l'ouverture ou la fermeture
ensuite, dans ta zone de texte , grâce à l'evenement de ton choix, tu appelle ta fonction et le tour est joué

[lolo_bob2]

Salut à vous et merci pour vos réponses,

J'ai trouvé une autre solution avec un contrôle active X DataPicker mais je voudrais que lorsque je choisi une date du calendrier celle si soit enregistrer dans un champ date à part car je dois récupérer les dates par la suite pour faire une requête

Pouvez vous me dire comment faire car j'ai essayé une solution mais j'ai toujours une erreur...

Merci beaucoup

A+

[lolo_bob2]

Ok

J'ai trouvé ce que je voulais faire

Merci beaucoup

A+