[Fait][Acc97] Date de modification d'état [FAQ]

[Lou Pitchoun]

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).

Code SQL :

1
2
3
SELECT MSysObjects.Type, MSysObjects.Name, MSysObjects.DateUpdate
FROM MSysObjects
WHERE (((MSysObjects.Type)=-32764));

Les états sont "reconnus" par le numéro de type -32764.
Il suffit ensuite de parcourir cette requête pour récupérer la date de modification.

Code :

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

[Arkham46]

sur Access 97, le code :

Code :

CurrentDb.Containers("Reports").Documents("MonEtat").LastUpdated

fonctionne très bien

[Lou Pitchoun]

Dis que j'ai perdu mon temps aussi

Je le connais pas ce Container