Discussion :

[Gabe74]

Bonjour,

J'ai inséré le code suivant dans le formulaire d'accueil de ma base de
données.

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
Private Sub Form_Load()
 
Dim fso As FileSystemObject, f As File
 
Set fso = New FileSystemObject
 
On Error GoTo fin
Set f = fso.GetFile("H:\Fonds hedge - projet\Base de données fonds hedge
04-09-06.mdb")
lbl_date_dernier_acces.Caption = "Dernier accès : " & f.DateLastAccessed
Set f = Nothing
 
'pour afficher la dernière modification de la table liste de fonds'
lbl_modif_table_listeFonds.Caption = "Dernière modification : " &
Date_de_MaJ("Liste des fonds")
 
 
fin:
Set fso = Nothing
 
 
End Sub

Le module suivant module a été créé afin que le code ci-dessus puisse être
utilisé dans les différentes tables.

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
Public Function Date_de_MaJ(PTable As String) As Date
On Error GoTo err
Dim DB As DAO.Database
Dim T As DAO.TableDef
 
Set DB = CurrentDb
Set T = DB.TableDefs(PTable)
 
Date_de_MaJ = T.LastUpdated
 
GoTo fin:
err:
MsgBox "Impossible d'accéder à la table"
fin:
Set DB = Nothing
Set T = Nothing
 
End Function

Malheureusement ça ne fonctionne que lorsque je fais une modification dans
la table même et que je clique sur le bouton "enregistrer".
Je désire que lorsque je fais une modification/ajout dans mon formulaire et
que je le ferme sans cliquer sur le bouton 'enregistrer" (les données sont
de toute façon enregistrées) le code me renseigne l'heure et la date de la
mise à jour.

Si quelqu'un a une idée de comment améliorer le code ou connaît un autre moyen d'y arriver...

Merci beaucoup et bonne journée,

Gab

[cafeine]

Hello,

la propriété LastUpdated renvoie la derniere date de modification de structure et pas de données.

regarde de ce côté :
http://www.developpez.net/forums/sho...d.php?t=165486

et aussi dans une moindre mesure de mon tuto sur l'historisation de données :
http://cafeine.developpez.com/access/tutoriel/update/

De plus, merci d'utiliser la balise CODE et non pas l'italique.