Témoin d'Alerte rouge

**JeanPaulR** · 28/05/2012, 19h26

Bonjour,

Je cherche à créer un témoin d'alerte quand une date est dépassée :
- apparition du témoin
- changement de couleur (vert - rouge)
- nbr de jours de depassement;
Merci pour votre aide.
Bonne soirée.

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 Alerte_GotFocus()
Dim dd1 As Date ' Ma date  de saisie
Dim dd2 As String ' Mon calcul de date
Dim dd3 As String
     On Error Resume Next
dd1 = Me.[DIP_Signe]
If dd1 = 0 Then
        MsgBox "Pas de date saisie"
        On Error GoTo 0
       Exit Sub
End If
dd2 = Date - dd1
If dd2 >= 20 Then
Forms![Candidatures en cours].[Alerte].BackColor = RGB(34, 177, 76)
dd3 = MsgBox(dd2 - 20 & " jours", vbOKOnly + vbExclamation, " Délai dépassé ....")
Forms![Candidatures en cours].[Alerte].BackColor = RGB(255, 0, 0)
Forms![Candidatures en cours].[Alerte] = dd2 - 20 & " j"
'ma condition : apparition textbox avec nbr jour dépassé, changement de couleur en rouge
End If
dd4.Requery
'mise à jour Textbox Alerte
If dd2 < 20 Then
End If
End sub