Faire clignoter une écriture ds zone de texte
Fermé
loeh
-
6 juin 2011 à 10:57
mprog67 Messages postés 28 Date d'inscription mercredi 24 mars 2010 Statut Membre Dernière intervention 14 mai 2012 - 8 juin 2011 à 13:59
mprog67 Messages postés 28 Date d'inscription mercredi 24 mars 2010 Statut Membre Dernière intervention 14 mai 2012 - 8 juin 2011 à 13:59
A voir également:
- Faire clignoter une écriture ds zone de texte
- Zone telechargement - Accueil - Outils
- Écriture facebook - Guide
- Excel cellule couleur si condition texte - Guide
- Ecriture en gras - Guide
- Transcription audio en texte word gratuit - Guide
1 réponse
mprog67
Messages postés
28
Date d'inscription
mercredi 24 mars 2010
Statut
Membre
Dernière intervention
14 mai 2012
2
8 juin 2011 à 13:59
8 juin 2011 à 13:59
Voilà un exemple de code j'espère qu'il vous sera utile
Sub ControleAss()
Dim ValAss As Integer
Dim ValCT As Integer
Dim color As Long
sc = sc + 1
sc = sc Mod 2
color = RGB(255 - 5 * sc, 255 - 200 * sc, 255 - 200 * sc)
If Not IsNull(Me!DateExpir) Then
ValAss = DateDiff("d", Date, Me!DateExpir)
If ValAss <= 10 Then
DateExpir.BackColor = color
DateExpir.ControlTipText = "Vous avez" & Space(1) & ValAss & Space(1) & "jours pour l'expiration" & _
Chr(13) & "de l'assurance de ce camion."
Else
DateExpir.BackColor = RGB(255, 255, 255)
DateExpir.ControlTipText = ""
End If
End If
If Not IsNull(Me!Expir_CT) Then
ValCT = DateDiff("d", Date, Expir_CT)
If ValCT <= 10 Then
Expir_CT.BackColor = color
Expir_CT.ControlTipText = "Vous avez" & Space(1) & ValCT & Space(1) & "jours pour l'expiration" & _
Chr(13) & "du controle technique de ce camion."
Else
Expir_CT.BackColor = RGB(255, 255, 255)
Expir_CT.ControlTipText = ""
End If
End If
End Sub
Sub ControleAss()
Dim ValAss As Integer
Dim ValCT As Integer
Dim color As Long
sc = sc + 1
sc = sc Mod 2
color = RGB(255 - 5 * sc, 255 - 200 * sc, 255 - 200 * sc)
If Not IsNull(Me!DateExpir) Then
ValAss = DateDiff("d", Date, Me!DateExpir)
If ValAss <= 10 Then
DateExpir.BackColor = color
DateExpir.ControlTipText = "Vous avez" & Space(1) & ValAss & Space(1) & "jours pour l'expiration" & _
Chr(13) & "de l'assurance de ce camion."
Else
DateExpir.BackColor = RGB(255, 255, 255)
DateExpir.ControlTipText = ""
End If
End If
If Not IsNull(Me!Expir_CT) Then
ValCT = DateDiff("d", Date, Expir_CT)
If ValCT <= 10 Then
Expir_CT.BackColor = color
Expir_CT.ControlTipText = "Vous avez" & Space(1) & ValCT & Space(1) & "jours pour l'expiration" & _
Chr(13) & "du controle technique de ce camion."
Else
Expir_CT.BackColor = RGB(255, 255, 255)
Expir_CT.ControlTipText = ""
End If
End If
End Sub