[VBA] afficher la date de dernière modif d'une table dans un label

Bonjour,

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

Code:

---

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

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é

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:

---

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

---

Starec

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 :oops:

Merci