Recuperer la date de modification d'une table

slt tt l'monde !
je cherche un moyen de récupérer la date de modification d'une table, afin de la faire apparaitre dans un formulaire...
Est-ce possible?

Je sais ou se trouve l'info :

(clik droit sur la table, puis "propriétés", ainsi s'affiche la date et l'heure a laquel la table a été modifié)

Reste à la récupéré dans une variable...

j'ai trouvé la solution dans le FAQ :

http://access.developpez.com/faq/?pa...ateModiTablDAO

j'ai donc créer un module...

Ensuite, dans mon formulaire je fais apel a ce module...

Code:

---

1 2 3

Private Sub Form_Load() DateMaj(Tarif_GENE) End Sub

---

Mais j'ai une erreur : "erreur de compilation, variable ou procedure attendu, et non un module"

faut-il déclarer le module appelé...:s je suis un peu perdu

Bonjour

C'est une fonction, donc elle doit te retourner une valeur (une date).

Il faut donc que tu déclares une variables de type Date pour lui affecter la fonction. De plus en entrée tu dois placerune string, car Tarif_GENE tel quel est pris pour une variable.


Starec

si j'ai bien compris ça devrait donner ça...

Code:

---

1 2 3 4

Private Sub Form_Load() Dmodif as Date Dmodif = DateMaj("Tarif_GENE") End Sub

---

mais ça ne marche tjs pas...j'ai une erreur sur "Dmodif as Date" : "Instruction incorrect à l'exterieur d'un bloc de type"

Moi j'ai utilisé un truc tout simple, j'ai cré dans ma table un champs date "date mise à jour", lors de chaque modification de ce tuple je récupère la date du jour dans mon code puis la renvoi dans ma table.

exemple lors d'une modification :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

Private Sub b_modif_artiste_Click() Dim rs As DAO.Recordset Dim code As Integer Set rs = Application.CurrentDb.OpenRecordset("PERSONNEL", dbOpenDynaset)   reponse = MsgBox("Voulez vous modifier cet enregistrement?", vbExclamation + vbYesNo, "Modification") If reponse = vbYes Then code = code_pers rs.FindFirst "[code_pers] = " & code rs.Edit rs.Fields("nom_scene_pers").Value = noma_pers rs.Fields("nom_pers").Value = nom_pers rs.Fields("prenom_pers").Value = prenom_pers rs.Fields("adr_pers").Value = adr_pers rs.Fields("cp_pers").Value = cp_pers rs.Fields("ville_pers").Value = ville_pers rs.Fields("tel_pers").Value = tel_pers rs.Fields("fax_pers").Value = fax_pers rs.Fields("mobil_pers").Value = portable_pers rs.Fields("mail_pers").Value = mail_pers rs.Fields("site_pers").Value = web_pers rs.Fields("secu_pers").Value = secu_pers rs.Fields("guso_pers").Value = guso_pers rs.Fields("cs_pers").Value = cs_pers rs.Fields("prix_pers").Value = prix_pers rs.Fields("net_pers").Value = net_pers rs.Fields("tva_pers").Value = tva_pers rs.Fields("nb_element_pers").Value = nb_el_pers rs.Fields("actif_pers").Value = actif_pers date_jour = Format(Now, "dd/mm/yyyy") rs.Fields("date_maj_pers").Value = date_jour rs.Update MsgBox ("Enregistrement modifier") date_maj_pers = rs.Fields("date_maj_pers").Value End If rs.Close End Sub

---

Merci Kihmé Xs, mais j'aimerais rester sur ma fonction de départ a reussir a appeller ce satané module ! grrr

je comprend, si jamais vous n'y arrivez pas vous aurez une solution de secours. Bon courage.

voila g trouvé ! :king:
comme quoi , il faut tjs persévéré

Code:

---

1 2 3

Private Sub Form_Load() MsgBox "" & DateMaj.DateMaj("Tarif_GENE") End Sub

---

par contre si jessai d'affecter le résultat de la fonction à une variable, ça ne marche tjs pas (voir message d'erreur ci-dessus)

voila merci pour votre aide !

N'aurais-tu pas un module nommé DateMaj?
Si oui, renomme-le avec un nom qui n'est pas utilisé ailleurs dans ton code.