Discussion :

[s.gallauziaux]

Bonjour à toutes et à tous,

Dans le cadre d'une demande de notre service qualité, je dois mettre en place une petite boite de dialogue ouverte en permanence sur les postes des secrétaires qui leur permette de rapidement savoir si un prélèvement sanguin réalisé par des infirmières libérales répond à certains prérequis de délai de transmission au laboratoire pour exécution des analyses.
En fonction de l'heure actuelle du PC, cette boite de dialogue doit calculer 3 heures différentes automatiquement et en permanence. Un genre de chronomètre qui se calcule et s'actualise tout seul pour respecter 3 tranches :
- un premier champ : heure actuelle moins 8h
- un second champ : heure actuelle moins 6h
- un troisième champ : heure actuelle moins 4h
Ces 3 délais pouvant se trouver dans une table car ils risquent de bouger voir même que d'autres viennent se greffer.
J'arrive à récupérer l'heure actuelle qui s'actualise seconde par seconde dans un champ sur un formulaire mais je n'arrive pas à faire le calcul et à l'afficher sur un formulaire ce même formulaire.

Comment puis-je faire?

Merci pour votre aide,
Cordialement,

[marot_r]

Bonjour.

Pour la partie caclul, tu devrais trouver ton bonheur ici :

Les Fonctions Date/Heure
http://mhubiche.developpez.com/vba/f...ions/datetime/

Pour la partie conception, je ferai une table du genre :

tblDelais
Clef (numéro auto)
Desc (Texte, 255 caractères, qui explique le délais)
Duree (Réel double, exprimer en heure et 1/100 ième d'heure donc 12h30 devient 12.50)

Après tu fais la requête suivante :

Code sql :

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

1
2
3
select [tblDelais].* , Now() as DateHeureCourante, DateAdd("h", [tblDelais].[Duree], [DateHeureCourante]) as Delais
from [tblDelais]
order by [tblDelais].[Duree]

et tu fais un formulaire basé sur cette requête et tu utilises la propiété minuterie pour faire me.requery et forcer les reclaculs.

Je ne l'ai pas testé mais cela devrait fonctionner.

A+

[s.gallauziaux]

Bonjour Marot R,

Tout d'abord, merci pour ton message rapide et ton aide. Je bidouille un peu en Access et ne connais pas très bien toutes ces programmations.
Par contre, peut-être me suis je mal exprimé dans mon post mais le calcul qui doit être fait est : heure actuelle - délai saisi dans la tables or le résultat de ta requête sql me donne heure actuelle + délai

Je pense que c'est la fonction DateAdd qui permet cette addition; mais je ne trouve pas la fonction équivalente pour une soustraction. Saurais-tu me renseigner? J'ai consulté ton lien mais sauf à l'avoir mal lu, je n'ai rien trouvé pour faire ce calcul dans ce sens...

Merci,

[marot_r]

Bonjour.

dateAdd est trompeur car il peut aussi faire une soustraction :

Code :

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

DateAdd("h", -1, Now())

Heure courante -1h.

A+

[s.gallauziaux]

Bonjour.

dateAdd est trompeur car il peut aussi faire une soustraction :

Code :

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

DateAdd("h", -1, Now())

Heure courante -1h.

A+

Effectivement, très trompeur ce DateAdd...
Merci pour ce retour Marot R, une aide rapide et efficace. Tout fonctionne bien.
Ne me reste plus qu'une belle mise en forme et le déploiement.

[s.gallauziaux]

Marot R

Un dernier petit détail... je viens de tout mettre en place et je butte sur quelque chose que j'avais déjà rencontré mais dont je ne trouve plus la solution.
Le formulaire qui récapitule les résultats de ma requête doit apparaitre sous forme d'une petite boite de dialogue que je peux placer dans un coin du bureau sur le PC pour l'avoir sous les yeux sans pour autant prendre tout l'écran.
J'ai créé une macro Autoexec qui ouvre le formulaire en boite de dialogue, j'ai packagé l'ensemble pour un déploiement sous Runtime mais lorsque je lance, j'ai le formulaire en boite de dialogue avec en plein écran le fond d'access...
Je ne trouve plus comment ne faire apparaitre que la boite de dialogue.

Merci pour ton aide,

[s.gallauziaux]

J'ai enfin retrouvé ce qui me manquait :
Sur propriété "sur ouverture" du formulaire:

Code :

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

1
2
3
4
Private Sub Form_Open(Cancel As Integer)
DoCmd.RunCommand acCmdAppMinimize
 
End Sub

ça marche

Merci pour l'aide.