Discussion :

[adelion7015]

Bonjour,

J'aimerais pourvoir mettre un message d'alerte qui interviendrait un mois avant la date d'échéance et ou colorer le champ [Date d'échéance] en rouge.

Est ce possible via une requête ?

Merci.

Cordialement.

[tee_grandbois]

bonjour,
il y a cette discussion qui aborde la même problématique: https://www.developpez.net/forums/d2...onditionnelle/
trouvé avec le mot-clé "alerte" en 5 minutes: c'est vrai, après, il faut prendre le temps de lire chacun des posts, qui, soit dit en passant, seraient moins nombreux si chacun prenait le temps de les chercher et les lire avant de poser une question ...

[adelion7015]

Bonjour,

Je vous remercie pour le coup de main, cela dit j'ai essayé d'adapter cette solution a mon cas, ca marche effectivement pour la mise en forme conditionnelle mais sans succès pour le message d'alerte, pour l'expression de la mise en forme conditionnelle j'ai mis cette expression sur le champ [Echeanceduree] :

Code :

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

([Echeance]-Date()) Entre 1 Et 30

Et pour obtenir le message d'alerte j'ai mis sur le même champ ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Echeanceduree_GotFocus()
 
 
    Dure = Date
    Echeanceduree = Dure - [Echeance]
    MsgBox " Votre" & " echeance" & "arrive dans " & Echeance & " jours "
End If
 
 
End Sub

Merci pour le coup de main

Cordialement.

[tee_grandbois]

bonjour,

Et pour obtenir le message d'alerte j'ai mis sur le même champ ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Echeanceduree_GotFocus()
 
 
    Dure = Date
    Echeanceduree = Dure - [Echeance]
    MsgBox " Votre" & " echeance" & "arrive dans " & Echeance & " jours "
End If
 
 
End Sub

tu as copié/collé le code sans trop comprendre, non ? tu as certainement eu un message d'erreur de compilation "End If sans Bloc If" à cause de l'instruction End If qui est en trop ...

je ne comprend pas du tout quel est l'intérêt de mettre une alerte message sur entrée du champ, cela risque d'énerver l'utilisateur plutôt que de l'aider et rien ne prouve qu'un message d'alerte (qui disparait dès qu'on clique dessus et qu'on quitte le champ) sera plus efficace qu'une date en jaune sur fond rouge.

Cela étant dit, si tu veux vraiment alerter avec un message, fait-le en une fois à l'ouverture (et éventuellement à la fermeture) du formulaire en mettant dans le message tous les enregistrement concernés
mais pour te donner un code il faudrait que je connaisse les champs utilisés car le tien en l'état est incompréhensible (surtout sans copie d'écran)...
à confirmer ou compléter:
[Date d'échéance] : date d'échéance
[Echeance] : nombre de jours avant échéance ?
[Echeanceduree] : ?

[adelion7015]

Bonjour,

tu as copié/collé le code sans trop comprendre, non ? tu as certainement eu un message d'erreur de compilation "End If sans Bloc If" à cause de l'instruction End If qui est en trop ...

je n'ai pas copié/collé, comme vous l'affirmez et je n'ai pas aussi de message d'erreur, je ne suis juste pas pas versé dans ce domaine, j'ai essayé d'adapter le code a mes besoins et ca n'a pas marché et ce, malgré tous mes efforts, cela dit, vous avez sans doute raison pour ce qui est des messages d'erreur, je vais m'en tenir a la mise en forme conditionnelle.

Encore merci.

Salutations.

[tee_grandbois]

bonjour,

je n'ai pas copié/collé, comme vous l'affirmez et je n'ai pas aussi de message d'erreur

désolé mais le code qui a été posté prouve le contraire ou alors il ne reflète pas le code de l'évènement dans le formulaire...

[adelion7015]

Bonjour,

Je le suis aussi.