Discussion :

[kevain_09]

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...

[kevain_09]

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 :

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

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

[Invité]

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

[kevain_09]

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

Code :

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

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"

[Kihmé Xs]

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 :

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

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

[kevain_09]

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

[Kihmé Xs]

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

[kevain_09]

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

Code :

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

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 !

[AlainTech]

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