Utilisation d'un calendrier (Contrôle ActiveX) [À faire]

**MultiClic** · 05/05/2004, 20h20

Bonjour,

Par contre, que tu nous poses une question à propos du nom de ton contrôle, faut pas charrier : tu réfléchis... et tu mets ce qu'il faut

Désolé ! Je tentais seulement de savoir quelle était la raison pour laquelle cela ne fonctionnait pas. Comme code, tout devait être ok mais j'ai un message d'erreur qui me ramène toujours à cette partie du code, alors !!!
Quand tu n'y connais pas grand chose, toutes les questions sont pertinentes n'est-ce pas ???

Merci encore !

xp · 05/05/2004, 20h41

Bonsoir

Envoyé par multiclic

Je suis donc revenue aux codes d'xp reçus auparavant:
...
Mais là, je n'ai pas le "Name" après le . de Me.ActiveControl ???

Et dans mon Private Sub, il n'est pas inscrit "txt" devant DateDébut...??

pour le Name, comme dit Papy Turbo, tu le tapes...
pour le txt:
Quand tu crées un contrôle dans ton formulaire, automatiquement Access lui donne un nom (propriété Name, tiens, tiens). Moi, j'aime bien donner mes propres noms aux contrôles (c'est plus simple pour s'y retrouver) et en plus, en "vieux" développeur C++, j'ai pris l'habitude de faire précéder mes noms de contrôles par leur type (nostalgie, quand tu nous tiens

). Tout ça pour dire que txtDateDébut est le nom de mon contrôle(zone de texte).
De plus, quand tu associes un évènement à un contrôle, là pour le coup, t'as pas le choix, c'est Access qui nomme la procédure sur la forme : nomDuContrôle_Evènement (Paramètres).
D'où le txtDateDébut_DblClik...
Maintenant, ce qui serait bien c'est que tu nous dises si ca marche ou pas et si oui, tu peux tagguer résolu, sinon, tu nous montres ton dernier code.
Pour ton problème Outlook, tu devrais plutôt, après les recherches dans le forum, bien sûr, lancer un nouveau sujet.
Bonne chance.

**MultiClic** · 05/05/2004, 22h41

Re Bonjour,

Merci ! j'ai bien compris pour les noms de contrôles et tout...

D'après moi, pour ce qui est du calendrier, tout m'a l'air de bien fonctionner maintenant.

En y passant plusieurs heures, j'ai finalement réalisé qu'il s'agissait du nom de mon contrôle activeX : ctlActiveX0 au lieu de axCalendrier et j'ai également réaliser l'importance de faire ce dont vous parler, i.e.

Moi, j'aime bien donner mes propres noms aux contrôles (c'est plus simple pour s'y retrouver)

Merci encore et je suivrai votre conseil pour mon histoire de périodicité, j'ai réussi à m'y comprendre mieux donc j'y reviendrai plus tard dans un nouveau sujet.

Merci beaucoup à vous deux, votre aide me fût d'un grand secours !

Lucie

**Papy Turbo** · 06/05/2004, 08h48

D'abord, pardon, Multiclic, d'avoir été trop vite. Je pensais que tu savais nommer un contrôle, utiliser le nom... et merci, XP d'avoir rattrapé le coup.

Envoyé par xp

le calendrier déroule, ou apparaît comme un formulaire. Tu parles des APIs, y-en-a-t-il (ça en fait des - ) de vraiment nécessaires?

Le calendrier déroule : voir image.
Les APIs que j'aimerais bien supprimer

me donnent la position absolue du formulaire, par rapport à laquelle je vais positionner le calendrier déroulant sous le contrôle. Je suis encore en recherche sur cette partie : certains éléments (hauteur barre de titre, largeur bordure, TwipsPerPixels (Access travaille en Twips, les APIs en pixels !!) sont encore des constantes, qui risquent d'être variables en fonction de la définition d'écran...

donc, j'explore d'autres APIs pour lequels je n'ai pas d'exemple VB, juste la syntaxe API !

**Elena** · 07/05/2004, 10h17

Bonjour!

Ce sujet m'a beaucoup intéressée, j'ai pu utiliser le calendrier dans mon projet, j'ai également utilisé la solution de Papy Turbo pour mettre à jour la date du calendrier.

Code :

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

Me.axCalendrier.Value = Now()

Mais la date reste toujours la même! Celle de la date de création de mon contrôle!

Même en modifiant pour donner par défaut une valeur différente... Cela ne change rien du tout!

Par contre, dans les propriétés du calendrier, j'ai défini une date dans value, la date se met bien à jour mais si je déclare value dans le code, cela ne modifie rien!

L'aide de Microsoft est tellement claire que je ne retrouve pas ces informations!

Merci d'avance!

Elena

**Papy Turbo** · 07/05/2004, 16h31

J'essaye de comprendre :
- tu as, comme Multiclic, 2 formulaires :
1- qui contient une (ou plusieurs) TextBox pour saisie de la date, on va dire Formulaire "SaisieDates", par ex.
2- un formulaire contenant uniquement un calendrier, par ex. Formulaire "Calendrier"

Envoyé par elena

j'ai également utilisé la solution de Papy Turbo pour mettre à jour la date du calendrier.

Code :

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

Me.axCalendrier.Value = Now()

dans l'évènement Form_Load() du formulaire "Calendrier" ? Ca, c'est juste pour l'initialiser à la date du jour.
Remarque :

Code :

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

Me.axCalendrier.Value = Date()

serait plus juste, vu que l'heure ne nous intéresse pas ! Mais, c'est un détail.

Envoyé par elena

Mais la date reste toujours la même! Celle de la date de création de mon contrôle! Même en modifiant pour donner par défaut une valeur différente... Cela ne change rien du tout!

Là, je ne comprends pas ?
Une fois le "Calendrier" ouvert, tu cliques dedans pour changer la date ?

Envoyé par elena

Par contre, dans les propriétés du calendrier, j'ai défini une date dans value, la date se met bien à jour mais si je déclare value dans le code, cela ne modifie rien!

Là non plus, je ne comprends pas.
Tâche de donner + d'explications :
- code d'ouverture du calendrier,
- code de retour de la date depuis le calendrier vers la textbox.

Combien de dates y a t'il sur ton formulaire "SaisieDates" ? Une seule, ou plusieurs ?

**Elena** · 07/05/2004, 16h51

Merci!

Je viens juste de comprendre mon erreur!
Je résume mon problème : je cherchais juste à mettre à jour la date affichée à l'ouverture du calendrier : y mettre la date du jour pour que l'utilisateur puisse ensuite sélectionner plus facilement dans le calendrier.

Cela avait marché correctement le jour où j'ai créé mon calendrier, puis, le lendemain, la date, le calendrier était donc à la date de la veille.

Je viens juste de voir (grâce au message de Papy turbo) qu'en réalité, j'avais mis le code dans le form_open() et non dans le form_load(). Une erreur de débutant entre ouverture et chargement. Le récupération de la date marche correctement grâce aux indications données dans le sujet.

Merci beaucoup et désolée d'avoir envoyé un message pour une co....rie de ma part!

**Papy Turbo** · 07/05/2004, 17h57

Juste un petit conseil :
- au départ ta TextBox de saisie de date (appelons la "txtDate") est vide.
- il est donc normal que tu affiches le calendrier avec la date du jour.
- plus tard, il va y avoir une valeur de date pour chaque enregistrement, affichée dans "txtDate",
- si l'utilisateur veut changer cette date, c'est cette date que tu devrais mettre dans axCalendrier.

Si tu as fait comme le propose XP :

Code :

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

1
2
3
Private Sub txtDateDébut_DblClick(Cancel As Integer) 
    DoCmd.OpenForm "frmcalendrier", , , , , , Me.Name & "," & Me.ActiveControl.Name 
End Sub

pour passer le nom du formulaire ("SaisieDates" par ex.) et le nom du contrôle (Me.ActiveControl.Name = "txtDate" par ex.), puis, dans le formulaire "frmCalendrier" :

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
Option Explicit
'2 variables au niveau du Module :
Dim m_frmName As String, m_ctrlName As String 
 
Private Sub Form_Load
    'récupère le nom du formulaire + nom de la textbox :
    m_frmName = Split(Me.OpenArgs, ",")(0) 
    m_ctrlName = Split(Me.OpenArgs, ",")(1) 
    'mettre la valeur de la textbox dans le calendrier :
    If IsNull(Forms(m_frmName).Controls(m_ctrlName)) Then
        'pas de date : propose aujourd'hui
        axCalendrier.Value = Date()
    Else
        'il y en a une : l'afficher aussi ici
        axCalendrier.Value = Forms(m_frmName).Controls(m_ctrlName)
    End If
End Sub
 
Private Sub btnValider_Click() 
    'ici, je met à jour : retour de la date choisie dans le calendrier -> textbox
    Forms(frmName).Controls(ctrlName) = axCalendrier.Value 
    DoCmd.Close 
End Sub

J'ai légèrement modifié le code d'XP pour que, à l'ouverture, tu affiches la date qui existait dans ta textbox, au retour tu récupères celle qui a été cliquée dans le calendrier.

**Elena** · 10/05/2004, 14h12

Merci!

Cela marche super bien et facilite l'utilisation

!

Elena

**poxvx** · 29/01/2005, 23h16

salut a tous,

moi j'ai utilisé le choix de la fleche. j'ai seulement un petit probleme de la mise à jour de mon champ txtdate voici le code ke j'ai utilisé:

Code :

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

1
2
3
4
 
Private Sub Calendar4_Updated(Code As Integer)
 Me.txtDate = Me.Calendar4.Value 
End Sub

.

Mais voila lorsque je que choisi une date dans le controle il n'y a aucune reaction meme kan je mais ce code pour tester:

Code :

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

1
2
3
4
 
Private Sub Calendar4_Updated(Code As Integer)
 msgbox "oki"
End Sub

.
please help me.

**Tofalu** · 30/01/2005, 10h18

Bonjour, c'est que l'evenement n'est pas bon. As tu essayé sur l'evenement clic ou bien change ?

**poxvx** · 30/01/2005, 14h03

il n'y a que 4 evenement dans le controle activeX les voici :

- Sur Maj (ou j'ai mit mon evenement)
- sur entrée
- sur sortie
- sur reception focus
- sur perte focus

**Papy Turbo** · 30/01/2005, 20h56

Salut,

Ça, ce sont seulement les évènements qu'Access a prévu, pour n'importe quel ActiveX.
Si tu vas dans le module du formulaire qui contient l'activeX en question,
- tu cliques, dans la liste en haut à gauche du module (celle qui contient Général et Form et tous les contrôles...), tu sélectionne le nom de ton contrôle (Calendar4 ?) -> Access va créer un évènement par défaut (que tu garderas ou supprimeras), mais surtout
- tu disposes alors d'une liste complète de tous ses évènements, en haut, à droite.

**poxvx** · 30/01/2005, 21h47

je n'avais pas penser.

OK, ca marche maintenant

. Merci encore à toi Papy Turbo

**SAMI B** · 29/07/2005, 11h35

j'ai essayé le code proposé , sauf que j'utilise un sous formulaire en mode feuille de données . J'obtient ce message d'erreur a l'execution :
(sousFormMissions etant le nom du sous formulaire )
pourtant ça marche lorsque j'ouvre le sous formulaire sans passer par le formulaire principal

qu'est ce qui cloche ?

**milia** · 11/07/2006, 11h53

Bonjour,
j'ai fait exactement tout ce que vous avez dit plus haut, ça fonctionne parfaitement, néanmoins j'aimerais l'utiliser dans plusieurs cas et pour cela à chaque fois il faut créer un nouveau formulaire calendrier comment faire pour en avoir un seul?
Etant donné que je m'y connais pas trop en programmation vba, j'aimerais de l'aide.

Merci d'avance

Ana

**milia** · 11/07/2006, 14h29

En faite je ne comprends pas très bien ça voir pas dutout!!
Il me met une erreure comme quoi c'est à null mais vu que je comprends pas ce que ça fait, je n'arrive pas à résoudre le problème.

frmName = Split(Me.OpenArgs, ",")(0)
ctrlName = Split(Me.OpenArgs, ",")(1)

Est-ce-que quelqu'un peut m'aider?

Merci d'avance

**Arkham46** · 11/07/2006, 14h45

slt,

tu as déterré un vieux message qui a abouti sur un tuto :
http://sinarf.developpez.com/access/outils/datechooser/

ou sinon une autre solution pour afficher un calendrier (je me fais de la pub au passage) :
http://arkham46.developpez.com/artic...utboxplus/doc/