Discussion :

[curt]

Bonsoir à tous,

jusqu'à présent, j'ai utilisé deux calendriers pour sélectionner deux dates pour encadrer un intervalle (un calendrier pour la date de début et un calendrier pour le date de fin).

Est-il possible sur le MEME CALENDRIER de sélectionner les deux dates ?
ça ferait plus joli mais aussi plus "pro" que les deux calendriers.

Merci pour l'aide.
Bonne soirée.
Curt

[Invité]

Bonjour

Je n'ai jamais testé, mais la piste serait :

Récupération de la première date et stockage dans une variable.
Lorsque tu veux récupérer une autre date, tu contrôles la valeur de la variable, s'il y a quelque chose dedans, tu stockes dans une autre.

Cela implique que ton calendrier (je suppose que tu utilises la nouvelle fonctionnalité d'Access 2007) ne soit pas lié à une source.

Ce n'est qu'une idée non testée.

Philippe

[LE VIEUX]

salut,
testé avec deux zone de texte 1 et 3 et un seul calendar0 :

ça donne :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Calendar0_Click()
If IsNull(Me.Texte1) Then
Me.Texte1 = Me.Calendar0
Else
DoCmd.GoToControl ("Texte3")
Me.Texte3 = Me.Calendar0
Exit Sub
End If
 
End Sub

[curt]

Bonjour à vous,

ça fonctionne.
Voici le code complet. J'ai ajouté une gestion Date début < Date Fin pour éviter les erreurs dans le traitement.

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 Compare Database
Option Explicit
Dim MyCalendar As control
' Sélection de la plage de date
' -----------------------------
Private Sub Calendar_Click()
On Error GoTo Err_Calendar
 
    If IsNull(Me.DateDebut) Then
        Me.DateDebut = Me.Calendar()
        Else
        Me.DateFin = Me.Calendar()
            If (DateDebut > DateFin) Then
                Me.DateFin = Null
            End If
        Exit Sub
    End If
Exit_Calendar:
    Exit Sub
Err_Calendar:
    'MsgBox Err.Description
    Resume Exit_Calendar
End Sub

Merci à vous deux.
Bonne journée.
Curt