Discussion :

[charlingals1]

Bonjour

Il existe déjà une discussion sur ce sujet, mais je n'ai pas réussis à la mettre en oeuvre sur mon problème. Voici la discussion en question

Je dispose d'un formulaire continu qui affiche une liste d'enregistrement avec plusieurs champs (date, titre, description,...).

je voudrais afficher un message d'alerte si la date est supérieur à 10 jours ( aujourd'hui - date > 10 jours

Voici le code

Code :

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

1
2
3
4
5
6
7
nbrjour = Now - Me.Date_Post.Value
 
    If (nbrjour >= 10) Then
        MessageAvertissement.Value = "Attention demande créer depuis " & nbrjour & " Jour(s)."
    Else
        MessageAvertissement.Value = ""
    End If

Je code fonctionne, mais il effectue le test que sur le premier enregistrement (j'ai essayé la solution sur l'autre discussion j'ai le même problème)

Merci de votre aide

[argyronet]

Bonjour,

Il faut déclencher ton test sur l'événement Current() du formulaire.

Argy

P.S. créer s'écrit dans ton cas créée

[charlingals1]

Bonjour

Merci pour ta réponse rapide, mais cela ne fait pas ce que je souhaite. Le code s'éxécute convenable et fait bien ce que je veux. Mais le résultat est identique à chaque ligne.

Ce que je voudrais c'est qu'il récupére la date de la ligne 1, vérifie le test affiche le message si la condition est vérifié, et ainsi de suite.

La il m'affiche le même résultat pour toutes les lignes.

As tu une idée.

Merci

[argyronet]

Est-ce que Me.Date_Post.Value est bindé sur un champ de la table source ?
Si non, eh bien il faut le créer.

Argy

[charlingals1]

Est-ce que Me.Date_Post.Value est bindé sur un champ de la table source ?
Si non, eh bien il faut le créer.

Argy

Le champs "Me.Date_Post.Value " est bien créer dans ma table source
Cordialement

[argyronet]

Ok et il figure dans le formulaire continu ou bien dans le formulaire parent ?

Argy

[charlingals1]

Ok et il figure dans le formulaire continu ou bien dans le formulaire parent ?

Argy

Il figure sur le formulaire (Visible et activé)

[argyronet]

Humm, ok...
Donc en fait, ce que tu constates, c'est que
MessageAvertissement.Value
contient le même message pour toutes les lignes.
Si c'est la cas c'est parce qu'il est indépenpant et pas attaché à un champ de table. Donc il faut que tu le créés dans la table et qu'ensuite tu modifies sa propriété ControlSource en conséquence.

Argy

[charlingals1]

Bonjour

Merci de ton aide, après de multiple recherche sur le web, j'ai trouvé beaucoup de réponse sur mon problème. Mais la plupart sont des bidouillages.

Pour mon problème de message j'ai trouvé une solution, j'ai effectué le calcule des jours dans la requête sources est je l'affiche (il s'affiche tout le temps, c'est mieux que rien)

Cependant j'ai un second problème, je voudrais toujours dans le même formulaire, modifier la couleur de fond d'une zone de texte.

Si (Corrigée = vrai) alors
zonedetexte.backcolor = blue
sinon
zonedetexte.backcolor = blanc


Corrigée est la zone de text sont des champs de ma base

Si quelqu'un à une solution je suis preneur

Merci

[argyronet]

La mise en forme conditionnelle me semble être la plus appropriée.

Argy

[charlingals1]

Bonjour

Je n'avais pas penser à cette solution, je viens de la tester, mais le problème est identique, il effectu le test sur la première ligne. Si la première ligne vérifis le test toutes les lignes sont modifier

J'ai mis ça comme expression dans la mise en forme conditionnel "[CurrentRecord].[Corrigee].Texte=-1"

Cordialement

[argyronet]

C'est donc ce que je pense, MessageAvertissement n'est pas un champ de table et il faudrait qu'il le soit, ou alors, ta mise en forme conditionnelle n'est pas établie comme il se doit...

Argy

[charlingals1]

Bonjour

Le problème est résolu, je vous remercie de votre aide. Est pour ceux que ça peut intérressé voici le code

Dans mon champs ou s'affichera le message j'y affecte cette source

Code :

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

=VraiFaux((Maintenant()-[Date_Post])>10;"Attention demande créée depuis " & Round([nbrJour]) & " Jour(s).")

Bon courage à vous tous

Cordialement