Discussion :

[Alain _D]

hello,

je suis à la recherche d'un moyen de faire clignoter une zone date.

L'idée est simple...
j'ai une DB
j'ai une zone date
lorsque la fiche est consultée, comment faire pour faire clignoter le contenu si la date de la zone est antérieure à la date d'ajourd'hui?

Est-il possible de générer une liste, ou autre pour tous les enregistrements pour lesquels la date de cette zone est dépassée?

Pour info, je suis assez novice dans le domaine et je développe une base de données pour le suivi des cours/participants que je suis amené à donner.


Merci par avance à celui ou celle qui prendra la peine de me lire et maybe, me répondre


See you


Alain

[loufab]

Bonjour,

Pour le clignotement je ne vois que la solution du timer.

C'est un peu capilotractée comme méthode. je te conseille plutot une belle couleur rouge ou encore l'affichage d'une image.

Quoiqu'il en soit il te faut utiliser l'événement Sur Activation pour tester ta date.
Ensuite tu affectes une valeur au Timer pour qu'il cycle : un coup tu met la couleur du fond de ton controle un coup tu mets la couleur souhaitée.
Ou sinon l'affichage de l'image directement dans l'événement (sur activation)

Tu peux également te servir de la mise en page conditionnelle, plus simple à mettre en oeuvre. (voir le tuto sur le sujet)

Comme tu le vois beaucoup de solutions différentes pour un même problème.


Cordialement,
ici on aime les belges mais surtout la bière...

[Alain _D]

Hello,

Merci pour l'info
Je vais regarder dans tout ça comment régler mon problème et vous tiendrai au courant.

En ce qui concerne les bières, là je suis plus costaud qu'en Access.....
Il y a chez un bistrot qui a à son catalogue 2005 sortes de bières différentes....
il y a de quoi y passer un bon moment.

J'espère qu'il a tout répertorie dans une DB......et que ça clignote quand son stock arrive à "0".


Bien à vous

Alain

[delcroixf]

Bonjour,
Personnellement j'ai mais ce code sur l'événement minuterie d'un formulaire ou j'ai par exemple une étiquette "bienvenue" afichant le tecte que tu veux dans la légende de cette étiquette..

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Timer()
If Minuterie = False Then
    Me.TexteDate.ForeColor = 0
    Minuterie = True
    Else
    Me.TexteDate.ForeColor = 255
    Minuterie = False
End If
Bienvenue.Caption = Mid(Bienvenue.Caption, 2) & Left(Bienvenue.Caption, 1)
End Sub

La minuterie est réglée sur 500 dans les propriétés de mon formulaire contenant l'étiquette.

J'espère que cela t'avancera un peu.
F

J'essaie d'aider avec mes maigres connaissances afin de me pas être toujours le demandeur...

F