Discussion :

[dalmasma]

Bonjour,

j'ai trouver le code qui donne la date de modif d'une table (via une fonction) dans la FAQ:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public function DateMaj(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)
DateMaj=T.LastUpdated
Goto fin:
err:
Msgbox "Impossible d'accéder à la table"
fin:
Set DB=nothing
Set T=nothing
End Function

mais je ne comprends pas :

- où je dois rentrer le nom de ma table.

et

- comment afficher le résultat dans un label (peut-être MonLabel.Caption = . mais égale quoi ?)

Merci

[bruno28]

C'est une function.
Donc, tu lance l'execution de la function depuis la sub (à l'endroit ou tu veut récuperer la date de modif) comme suit : DateMaj (nomTable)
je pense que Label.Caption = DateMaj (nomTable), ça doit marcher, mais je n'ai pas testé

[Invité]

Bonjour

Le nom de la table est à passé en paramétre (Ptable).

Pour le label essaye, imaginons que ta table s'appelle tbl_LaTable et le label s'appelle : lblDateTable, tu auras

Code :

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

Me.lblDateTable.Caption = DateMaj("tbl_Latable")

Starec

[dalmasma]

Merci à tous les 2 ça marche!

Mais je viens de me rendre compte que pour afficher la date de la DERNIERE modif il faut que je passe en revue toutes les tables de ma BD et que je garde la plus récente.

Il faudrait faire une boucle sur les tables dans laquelle j'exécute la fonction et je stock ça quelque part puis je parcours ce "quelque part" et j'en prend la date la plus récente (en comparant les dates entre elles)

désolé ça m'a l'air bien plus compliqué que ce que le titre de ma discussion laissait paraître

Merci