Bonjour à Tous,

Tout est dans le titre.
Pour les tables, j'ai cette fonction qui marche très bien :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Public Function GetDateUpdatedTable(strFormName As String) As Date
Dim oDb As DAO.Database
Set oDb = CurrentDb
GetDateUpdatedTable = oDb.Containers("Tables").Documents(strFormName).LastUpdated
End Function
Par contre, pour les requêtes, j'ai essayé ceci, mais sans succès.
Erreur 3265: élément non trouvé dans cette collection
sur la ligne en gras.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Public Function GetDateUpdatedReq(strFormName As String) As Date
Dim oDb As DAO.Database
Set oDb = CurrentDb
GetDateUpdatedReq = oDb.Containers("Query").Documents(strFormName).LastUpdated
End Function
Merci à tous pour votre aide précieuse.