Afficher un calendrier de saisie sous une zone de texte [Sources]

**cisko31** · 20/03/2012, 19h57

Bonjour et un grand merci pour vos codes et vos astuces qui nous permettent de gouter un peu access. Je trouve ce calendrier extra mais est il possible de baser les dates d'une table et de les entourer dans le calendrier. J'ai une table inventaire et je voudrais que tous les enregistrements de ma table inventaire soient entourés ou en gras dans le calendrier pour reconnaitre de suite s'il y a un inventaire ce jour là.
Merci pour votre aide.

**Arkham46** · 20/03/2012, 20h17

Bonjour,

Envoyé par cisko31

Bonjour et un grand merci pour vos codes et vos astuces qui nous permettent de gouter un peu access. Je trouve ce calendrier extra mais est il possible de baser les dates d'une table et de les entourer dans le calendrier. J'ai une table inventaire et je voudrais que tous les enregistrements de ma table inventaire soient entourés ou en gras dans le calendrier pour reconnaitre de suite s'il y a un inventaire ce jour là.
Merci pour votre aide.

Seule la mise en gras est possible : ce n'est pas visuellement très tranché mais je n'ai pas mieux.

Paramètre pBoldDays :

Envoyé par Arkham46

- pBoldDays : tableau de jours à mettre en gras : soit une date, soit la position du jour dans la semaine
--> Array(6,7) pour mettre en gras les samedi et dimanche
--> Array(6,7,#08/15/2007#) pour mettre en gras les WE et le 15 août

On peut remplir ce paramètre avec un Recordset, par exemple :

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
 
Private Sub CmbDetail_Click()
    Dim lDate As String
    Dim lBoldDays() As Date
    Dim ldb As DAO.Database
    Dim lrs As DAO.Recordset
    Dim lCpt As Long
    Set ldb = CurrentDb
    Set lrs = ldb.OpenRecordset("select * from tCalendar")
    If Not lrs.EOF Then
        lrs.MoveFirst
        While Not lrs.EOF
            lCpt = lCpt + 1
            ReDim Preserve lBoldDays(1 To lCpt)
            lBoldDays(lCpt) = lrs!DateEvent
            lrs.MoveNext
        Wend
    End If
    lrs.Close
    Set lrs = Nothing
    Set ldb = Nothing
    lDate = DisplayCalendar(Me.TxtDetail, "Choisir une date" & vbCrLf & "Test 2ème ligne", IIf(IsDate(Me.TxtDetail), Me.TxtDetail, Now), "Comic sans MS", 8, True, vbBlack, vbYellow, "arial", 10, lBoldDays)
    If Not lDate = "" Then Me.TxtDetail.Value = lDate
End Sub

Pour plus d'info sur DAO :
Définition et manipulation de données avec DAO

Si vous avez des difficultés pour la mise en oeuvre (pour la génération du tableau de date à partir des données d'une table), n'hésitez pas à créer votre propre discussion dans le forum Access VBA.

**manbar** · 04/04/2012, 10h21

Bonjour,
merci pour ce calendrier qui répond à mes besoins.
cependant j'aimerai utiliser ce calendrier sur un écran tactile et il est un peu petit.
y'a t'il un moyen pour l'agrandir ?
j'ai essayé de jouer avec la taille de la font dans l'appel de la procédure en la passant de 12 à 20 mais ça ne change rien...
j'ai aussi essayer de modifier la valeur de gDTPLength en la passant de 200 à 400, mais rien non plus
'up------------------------------------------------------
enfin si ca modifie la taille mais aussi le nombre de calendrier visible....
en fait il faudrait que je fasse un zoom sur le calendrier
---------------------------------------------------------
si quelqu'un à une idée
merci d'avance

**sara5454** · 27/01/2013, 23h27

est ce que je ne peux pas ajouter cette fonction sous visual basic express 2008 ?????
si oui comment ?
merci

**Jean-Philippe André** · 19/04/2013, 10h56

Salut,

première utilisation dans le cadre pro de cette fonction, une merveille !

Merci beaucoup

**User** · 03/05/2014, 16h48

Bonjour,

Suite à une demande d'autorisation pour retoucher le module afin qu'il soit fonctionnel sur toute version d'Access (32 et 64 bits entre autre), Thierry m'a aimablement autorisé à reprendre son module. Malheureusement ne disposant pas de version 64 bits pour tester j'ai dû demander à LedZeppII (Christophe LeFustec) de le faire à ma place, ce qu'il a gracieusement accepté.

Voici donc le résultat de son travail en pièce jointe.

Il vous suffit d'importer ces modules dans votre base et de mettre le code qui va bien

Cdt,

**fred24330** · 16/10/2015, 16h04

merci pour ce coup de main

j'ai fait 1 modif de plus sur un module ColorPicker (PtrSafe a rajouter).

miracle ca marche.

merci encore

fred

**User** · 18/10/2015, 18h36

Bonjour,

Tan mieux et merci de clore la discussion qui vous a amené ici

Cdlt,

**illight** · 27/02/2018, 15h11

Bonjour,

Merci pour ce calendrier, que je remonte des bas fond des contributions.
Néanmoins, j'ai une petite question : pensez-vous qu'il soit possible d'intégrer, dans ce calendrier, la possibilité de saisir l'heure ?

Dans mon cas précis, j'ai besoin de saisir des dates, avec l'heure. Pour le moment, dans mon champ texte, j'ai mis un masque de ce type : "00/00/0000 00:00", et le client peut alors saisir aisément sa date.
Mais je pense qu'il serait plus simple pour l'utilisateur si un ptit bouton apparaissait à côté de la zone de texte pour pouvoir saisir ET la date (un peu dans le même sens que ton calendrier) mais aussi l'heure.

**Arkham46** · 03/03/2018, 18h37

Envoyé par illight

Mais je pense qu'il serait plus simple pour l'utilisateur si un ptit bouton apparaissait à côté de la zone de texte pour pouvoir saisir ET la date (un peu dans le même sens que ton calendrier) mais aussi l'heure.

Bonjour,

Ça peut faire l'affaire :
http://arkham46.developpez.com/artic...utboxplus/doc/

**micniv** · 04/03/2018, 12h17

Bonjour, Arkham
Toujours en très grande forme, bravo !

BIEN CDLT

**illight** · 07/03/2018, 13h10

Envoyé par Arkham46

Bonjour,

Ça peut faire l'affaire :
http://arkham46.developpez.com/artic...utboxplus/doc/

Merci, je l'avais pas vu, mais je ne comprend pas comment fonctionne le formulaire pour la saisie date + heure : en effet, pour la date, il faut cliquer sur le calendrier, mais pour l'heure : il faut cliquer sur le champ souhaiter et changer l'heure c'est ça ?

J'ai regardé, par curiosité, le formulaire d'heure, et effectivement, on clique sur le champ souhaité, et après, il y a les ptites flèches qui permettent d'augmenter ou diminuer l'heure.

Ce qui aurait été top pour le calendrier date + heure est d'avoir les 2 formulaires l'un dans l'autre (le calendrier, et le formulaire d'heure en dessous), mais je pense pas que ça soit faisable en utilisant la fonction étendue des inputbox ?

**illight** · 27/03/2018, 15h14

Bonjour,

Finalement, j'ai réussi à l'utiliser comme je le souhaitais, donc c'est parfait

J'ai juste une question : j'utilise la fonction InputBoxDateTime, qui permet d'avoir la date ET l'heure.
Quand je clique sur le bouton, le formulaire s'affiche, et quand je fais ok, la date s'inclut dans une textbox de cette façon :

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Function PickerDateTime() As Date
Dim lDate As String
lDate = InputBoxDateTime("Saisie Date et Heure", "Saisie Date et Heure", Now(), , , , , vbRed, RGB(200, 255, 255), "Arial", 15, "Comic sans MS", 15, True, "Arial", 15, "dddd dd MMM yyyy', 'HH':'mm'")
If lDate <> "" Then PickerDateTime = lDate
End Function
 
Private Sub Commande0_Click()
    On Error Resume Next
    Me.TxtDate = Format(PickerDateTime, "dd/mm/yyyy HH:mm")
End Sub

Comment faire pour gérer le bouton "annuler" de l'inputbox ? En effet, à l'heure actuelle quand je fais "annuler", j'ai la textbox qui ne me laisse pas le champ vide, mais met la valeur, je pense, à 0 (la date qui apparait est le 30/12/1899 00:00).

Ce qui étonnant c'est que quand on regarde l'aide de l'inputbox, il dit que normalement, ça renvoie la valeur null, alors que là, j'ai pas l'impression que ça soit le cas...

Merci pour vos retours

**tee_grandbois** · 27/03/2018, 16h19

Ce qui étonnant c'est que quand on regarde l'aide de l'inputbox, il dit que normalement, ça renvoie la valeur null, alors que là, j'ai pas l'impression que ça soit le cas...

Cela concerne uniquement l'InputBox d'Access, InputBoxDateTime est un fonction "maison" (fourni par Arkham46) qui utilise une variable de type Date et qui ne renvoie pas de valeur nulle.
Essaie ce code, à tout hasard :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Commande0_Click()
    On Error Resume Next
	If PickerDateTime <> 0 Then
            Me.TxtDate = Format(PickerDateTime, "dd/mm/yyyy HH:mm")
	else
            Me.TxtDate = null
	endif
End Sub

**illight** · 27/03/2018, 16h39

Merci beaucoup pour ta réponse, ça fonctionne...A moitié

En effet, quand j'annule ça ferme bien la fenêtre, et ça ne me met riend ans ma textbox.
Par contre, si je valide (en appuyanbt sur OK), le formulaire reste, et je suis obligé de refaire OK pour le revalider.

En gros, faut que je clique 2 fois sur OK pour que la date soit prise en compte. Mais c'est peut-être parce qu'on appelle le DatePickerTime 2 fois (une fois dans le if, et une fois pour remplir la textbox)...Je vais essayer un truc...

Ah ben j'ai trouvé. En écrivant ça :

Code :

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

1
2
3
4
5
6
ValeurDate = PickerDateTime
If ValeurDate <> 0 Then
    Me.TxtDateDetection = Format(ValeurDate, "dd/mm/yyyy HH:mm")
Else
    Me.TxtDateDetection = Null
End If