Discussion :

[ptitga]

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.

[Jean-Philippe André]

Salut,

plus efficace

Code :

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

currentdb.QueryDefs(1).LastUpdated

Adapté à ton code :

Code :

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

1
2
3
4
5
Public Function GetDateUpdatedReq(strQueryName As String) As Date
Dim oDb As DAO.Database
Set oDb = CurrentDb
GetDateUpdatedReq = oDb.QueryDefs(strQueryName).LastUpdated
End Function

[ptitga]

J'ai reçu votre mail m'indiquant mon erreur dans la rédaction de mon message; j'en prends bonne note.
Votre correction m'a permis de m'instruire un peu plus.
La fonction est dès lors opérationnelle.
Un Grand Merci.