Discussion :

[marcmarc150]

bonjour,

je fais apparaitre un calendrier sur entrée pour aider a mettre la date dans le champ date, mais je ne sais pas lui envoyé la date choisie sur le calendrier et l'imposer dans le champs voulu

Comment faire ?

Voila le code que j'avais mis

Code :

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

1
2
3
4
5
6
7
 
Private Sub Calendar4_Exit(Cancel As Integer)
Dim a As String
a = Forms!FML_Secteur![TBL_Demande_Travail sous-formulaire]![Calendar4].Value
Forms!FML_Secteur![TBL_Demande_Travail sous-formulaire]![DateFin].Value = a 'Forms!FML_Secteur![TBL_Demande_Travail sous-formulaire]![Calendar4].Value
Forms!FML_Secteur![TBL_Demande_Travail sous-formulaire]![Calendar4].Visible = False
End Sub

Une petite photo en explication

merci

Marcmarc

[emulamateur]

Bonjour,

Sauf erreur (je suis sous 2007) si ton champs de table est une date, le simple fait de le sélectionner permet l'apparition d'un "petit" calendrier sur lequel on clique, il s'agrandit et l'on choisit la date.

[marcmarc150]

bonjour emuleamateur,

je dois travailler avec acces 2003 et le calendrier n'est pas inclus, il faut magouiller dans tout les sens , c'est vrai qu'avec access 2007, c'est plus simple....mais je ne peux pas l'utiliser au travail ( budget... )

Merci a toi

Marcmarc

[miamou]

Bonjour,
je viens de faire un petit test avec le controle activeX Calendrier sur l'évènement chargement du formulaire et j'obtient la date du jour courant (c'est celle selectionné dans le calendrier) avec:

Code :

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

1
2
3
Me.txtNom.Value = Me.CalendarTest.Object
'txtNom le nom d'une zone de texte où je veux afficher la date selectionnée 
'CalendatTest le nom du calendrier

j'espère avoir aidé

[marcmarc150]

merci,
je vais essayé cela

Marcmarc

[marcmarc150]

bonjour,
j'ai essayé , cela fonctionne en gardant la date du jour,

mais ce que je voudrais, c'est en sélectionnant la date dans le calendrier, qu'il envoi la valeur dans le champ, car la date choisie, n'est pas forcément la date du jour.

merci


Marcmarc

[LE VIEUX]

Bonjour,
Malgré qu’il n’apparaisse pas dans la liste de la feuille de propriété, l’évènement click du contrôle calendar existe. Clic droit sur la souris, créer code évènement, générateur de code, il va t’ouvrir le code sur l’évènement updated, aller dans le champ en haut à droite en face de CalendarX , il doit y avoir Updatet, changer pour l’évènement click.
Et mettre le code :

Code :

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

Me.TonChampAffichage = CalendarX.Value

[marcmarc150]

merci a vous tous,

c'est ok,
je mets la solution qui fonctionne pour moi et si cela peux aider quelqu'un la voici

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
 
' affiche le calendrier
Private Sub Texte73_Enter()
Forms!FML_Secteur![SF_demande_Travail]![Calendar4].Visible = True
End Sub
 
'prend la date choisie dans le calendrier
Private Sub Calendar4_AfterUpdate()
Forms!FML_Secteur![SF_demande_Travail]![Texte73] = Me.Calendar4.Value
End Sub
 
'il garde la date sur la sortie calendrier
Private Sub Calendar4_Exit(Cancel As Integer)
Forms!FML_Secteur![SF_demande_Travail]![Texte73] = Me.Calendar4.Value
 
End Sub
 
'place la date choisie dans le champ et referme le calendrier
Private Sub Texte73_Exit(Cancel As Integer)
Forms!FML_Secteur![SF_demande_Travail]![Texte73] = Me.Calendar4.Value
Forms!FML_Secteur![SF_demande_Travail]![Calendar4].Visible = False
End Sub

Marcmarc