Discussion :

[moilou2]

Bonjour, j'ai deux txtBox, une avec une date de début, une seconde avec une date de fin.

Sur évenement clic de ces txtBox, j'affiche un calendrier afin de choisir une date. Quand je choisi une date sur le calendrier, cette dernière vient s'inscrire dans la txtBox.

Je voudrais faire un test dans la txtBox "Date de fin", si la date de début est supérieure à la date de fin, alors MSGBOX....

Mais je n'y arrive pas. J'ai essayé sur évenement Change et After Update de la txtBox Date de fin le code suivant, mais il ne se passe rien:

Code :

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

1
2
3
If Me.txtDateDebut.value > Me.txtDateFin Then
MsgBox ("Veuillez choisir une date de fin supérieure à la date de début")
End If

Merci

[Domi2]

Bonjour,

Si tu passes par VBA pour attribuer tes dates, cela ne déclenche pas d'événement sur le contrôle.

Il te faut donc intégrer ton code dans la procédure sur clic du calendrier...

Domi2

[moilou2]

Ah oui d'accord, mais moi c'est un peut spécial en fait parce que j'ai utilisé un calendrier en version amélioré par rapport au calendrier de base d'ACCESS.

Sur mon évenement clic, j'utilise le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub txtDateFin_Click()
 
Dim lDate As String
    lDate = DisplayCalendar(Me.txtDateFin, "Choisir une date" & vbCrLf, _
                                     IIf(IsDate(Me.txtDateFin), Me.txtDateFin, Now), _
                                     "Comic sans MS", 8, True, vbBlack, _
                                     vbYellow, "arial", 10)
    If Not lDate = "" Then Me.txtDateFin.value = lDate
    RefreshQuery
 
End Sub

Mais j'ai tout un code qui est placé dans un module, pour mettre en forme le calendrier...

Donc je doit intégrer sa où en fait si je veux que le message d'erreur s'affiche directement sur le calendrier lors du choix de la date sur ce dernier?

Merci

[Domi2]

Re,

Tu pourrais éventuellement faire quelques essais...

De toute façon, tu ne peux faire ton test qu'une fois qu'une date est assignée à ton contrôle.

Essaie de donc de le faire après :

Code :

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

RefreshQuery

Domi2