Discussion :

[campana]

Bonjour

L'objectif serait de soustraire 2 dates en permettant de connaitre le temps écoulé à tous les instants
depuis un départ d'équipement en réparation dont on attend le retour.
Le champs DateDepartNoria restant figé à la date souhaitée aprés saisie et ensuite le champs DateCeJour
serait synchronisé sur l'horloge de L'ordinateur servant de compteur déclenché par la mise à jour
du champs DateDepartNoria et bien sûr pouvant s'appliquer sur l'ensemble des enregistrements précédents
représentant l'ensemble des équipements dont on attend le retour;

En résumé pouvoir consulter à chaque intant les différents délais écoulés pour chacun des équipements
dont on attend le retour

Dans mon exemple cela ne fonctionne que sur l'enregistrement en cours à un instant donné,le temps écoulé
restant figé dés lors que l'on sort de l'enregistrement

Un érudit dans la matiére peut il me trouver une solution.
Merci.

Procédures événementielles actuelles appliquées sur MAJ dans le formulaire:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub DateDepartNoria_AfterUpdate()
If IsDate(Me.DateCeJour) And IsDate(Me.DateDepartNoria) Then
mn = DateDiff("n", Me!DateDepartNoria, Me!DateCeJour)
 jours = Fix(mn / 1440)
 reste = mn - (jours * 1440)
 heures = Fix(reste / 60)
 minutes = reste - (heures * 60)
 Me!DureeAttenteCeJour = jours & " jours " & heures & " heures " & minutes & " minutes "
  End If
End Sub
 
Private Sub DateCeJour_AfterUpdate()
If IsDate(Me.DateCeJour) And IsDate(Me.DateDepartNoria) Then
mn = DateDiff("n", Me!DateDepartNoria, Me!DateCeJour)
 jours = Fix(mn / 1440)
 reste = mn - (jours * 1440)
 heures = Fix(reste / 60)
 minutes = reste - (heures * 60)
 Me!DureeAttenteCeJour = jours & " jours " & heures & " heures " & minutes & " minutes "
 End If
 End Sub

CONSTITUTION DE LA TABLE

N°Equipements TEXTE
DateDepartNoria DATE/HEURE (dans FM procedure événementielle aprés MAJ)
DateCeJour DATE/HEURE avec valeur par defaut : Maintenant() (dans FM procedure événementielle aprés MAJ)
DureeAttenteCeJour TEXTE

[helas]

au lieu de mettre la date du jour, indiquer la durée avec un champ Texte
la table serait mise à jour par le Timer du formulaire , toutes les 10 mn par exemple (timerinterval = 600000), une requete serait lancer toutes les 10mn qui mettrait le champ durée ou délai à jour

Code :

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

1
2
3
4
5
 
Private Sub Form_Timer()
 DoCmd.OpenQuery ("reqCalculDelais")    'mise à jour délais
 Me.Requery                                      'mise à jour des données du formulaire
End Sub

la requete ressemblerait à cela

Code :

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

1
2
UPDATE NomTable SET NomTable.delai = Fix(DateDiff("n",[jour],Now())/1440) & "j " & Format$((DateDiff("n",[jour],Now())-(Fix(DateDiff("n",[jour],Now())/1440)*1440))/1440,"hh:nn:ss");

les éléments en rouge sont à adapter

[campana]

Bonjour helas

Je te remercie de ton aide et je suis encore un néophite et reclame ton aide.
Impossible de valider la RQ SQL, le message est le suivant : imposible d’introduire après
FROM suivi d’un ; des données !!!

Code :

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

1
2
3
SELECT Table1.lDateDepartNoria, Table1.DureeAttenteCeJour
FROM Table1;
UPDATE Table1 SET Table1.DureeAttenteCeJour = Fix(DateDiff("n",[DateDepartNoria],Now())/1440) & "j " & Format$((DateDiff("n",[DateDepartNoria],Now())-(Fix(DateDiff("n",[DateDepartNoria],Now())/1440)*1440))/1440,"hh:nn:ss");

Je dois positionner le CODE suivant sur le champs DureeAttenteCeJour en procédure évenementielle sur MAJ je présume !!

Code :

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

1
2
3
4
Private Sub Form_Timer()
 DoCmd.OpenQuery ("req requete1")    'mise à jour délais
 Me.Requery                                      'mise à jour des données du formulaire
End Sub

A+

[mout1234]

Bonsoir,

...

Code :

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

1
2
3
SELECT Table1.lDateDepartNoria, Table1.DureeAttenteCeJour
FROM Table1;
UPDATE Table1 SET Table1.DureeAttenteCeJour = Fix(DateDiff("n",[DateDepartNoria],Now())/1440) & "j " & Format$((DateDiff("n",[DateDepartNoria],Now())-(Fix(DateDiff("n",[DateDepartNoria],Now())/1440)*1440))/1440,"hh:nn:ss");

...

Je n'ai regardé en détail cette discussion mais ... d'où sors-tu cette partie SELECT FROM... avant ton update??? helas n'a mentionné qu'un UPDATE....
Le message est logique... ton code SQL correspond à deux requêtes un SELECT; puis un UPDATE mises bout à bout.

Commences par enlever la partie avant le UPDATE...

[campana]

Bonjour helas et mout 1234

Je vous remercie c'est génial ca marche;
Pour finaliser il resterait un détail à modifier
Le champs actuelle DureeAttenteCeJour du formulaire intègre à la fois les jours restants et l'horloge
J'aimerais 2 champs distincts

un champs :

DureeAttenteCeJour : jours heures minutes (restants) ( donc heures minutes en + )

un autre champs par exemple :

Horloge : horloge de l'ordinateur


Y-a-t-'il une solution simple en modifiant la requête SQL
ou autre solution.

Code :

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

UPDATE Table1 SET Table1.DureeAttenteCeJour = Fix(DateDiff("n",[DateDepartNoria],Now())/1440) & "j " & Format$((DateDiff("n",[DateDepartNoria],Now())-(Fix(DateDiff("n",[DateDepartNoria],Now())/1440)*1440))/1440,"hh:nn:ss");

Je vous remercie