Salut,
Suite à cette discussion sur la date de modification d'un état, une solution a été proposée par Sierra.77 pour Access 2003.
Sachant qu'il y a encore des utilisateurs d'Access 97 (dont je fais partie), je propose une solution :
Tout d'abord, créer une requête basée sur la table MSysObjects (table système (cachée) d'Access qui recense tous les objets de la base de données).
Les états sont "reconnus" par le numéro de type -32764.
Code SQL : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 SELECT MSysObjects.Type, MSysObjects.Name, MSysObjects.DateUpdate FROM MSysObjects WHERE (((MSysObjects.Type)=-32764));
Il suffit ensuite de parcourir cette requête pour récupérer la date de modification.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Sub DateModifEtat() Dim oRstDateUpdateReport As DAO.Recordset Set oRstDateUpdateReport = Application.CurrentDb.OpenRecordset("DateModifEtat") oRstDateUpdateReport.MoveFirst While Not oRstDateUpdateReport.EOF Debug.Print "Nom état : " & oRstDateUpdateReport![Name] & " - Date de modification : " & oRstDateUpdateReport![DateUpdate] oRstDateUpdateReport.MoveNext Wend End Sub
Partager