Discussion :

[celjul]

Bonjour,

J'espère être sous la bonne rubrique, je travaille sous access 2000 et voici mon problème.

J'ai une Table "T_DATA" du type :

PROFIL HEURE

MARTIN 10:44:06
MARTIN 10:44:26
MARTIN 10:44:56
PAUL 10:44:16
PAUL 10:45:02

Je souhaiterai avoir le résultat suivant dans un nouvelle colonne et dans la table T_DATA_MAJ :
PROFIL HEURE DELTA

MARTIN 10:44:06 0
MARTIN 10:44:26 20
MARTIN 10:44:56 30
PAUL 10:44:16 0
PAUL 10:45:02 46

Donc obtenir la différence du temps par rapport à la ligne précédente et mettre 0 quand on change de profil.

Merci pour votr aide.

Julien.

[helas]

Avec un peu de code

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
22
23
24
25
26
27
28
29
 
Sub Maj_T_Data_MAJ()
 Dim t As DAO.Recordset, t2 As DAO.Recordset, profil As String, n As Long, heure As Date
 
 DoCmd.RunSQL "DELETE FROM T_DATA_MAJ;"
 Set t = CurrentDb.OpenRecordset("reqT_DATA")
 Set t2 = CurrentDb.OpenRecordset("T_DATA_MAJ")
 profil = ""
 
 Do Until t.EOF
 
  If profil <> t!profil Then
   profil = t!profil
   heure = t!heure
  End If
  n = DateDiff("s", heure, t!heure)
  heure = t!heure
 
  t2.AddNew
  t2!profil = profil
  t2!heure = t!heure
  t2!delta = n
  t2.Update
 
  t.MoveNext
 Loop
 t.Close: t2.Close
 
End Sub

la requete reqT_DATA trie sur le profil puis sur l'heure
comme cela

Code :

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

1
2
 
SELECT T_DATA.profil, T_DATA.heure FROM T_DATA ORDER BY T_DATA.profil, T_DATA.heure;

[celjul]

Bonjour,

Merci pour votre réponse, mais j'ai besoin d'un peu d'aide encore.

Je travaille bien sous access 2000, mais mes connaissances sur la partie module et macro sont un peu limitées. Toutefois, voici ce que j'ai fait :

J'ai copie donc le contenu de la fenêtre SQL dans un module, faut-il un nom particulier ?
J'ai créer la requête qui fonctionne.
Mais quand je lance le module, voici ce qu'il m'indique dans le débogueur :

---------------------------
Microsoft Visual Basic
---------------------------
Erreur de compilation:

Type défini par l'utilisateur non défini
---------------------------
OK Aide
---------------------------

Merci pour votre aide.

Julien.