Discussion :

[Gabe74]

Bonjour,

J'ai créé une base de données avec une page d'acceuil. Dans cette page d'acceuil j'aimerai insérer un champ indiquant les détails (heure, date, utilisateur) de la dernière sauvegarde faite dans n'importe quel formulaire de la base de données.
Quelqu'un aurait-il une solution à me proposer.
Merci mille fois de votre aide.

Gabriel

[pc75]

Bonjour,

Peut-être en récupérant la date de ta base ?

[Gabe74]

Bonjour,

Peut-être en récupérant la date de ta base ?

Merci de ta réponse rapide.
Mais n'étant pas un expert de la programation pourrais-tu stp me donner plus de détails comment le faire?

Encore merci

Gabriel

[pc75]

Re,

Tu utilises FileSystemObject. Tu as une fonction GetFile() et la propriété DateLastModified.

Code :

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

1
2
3
4
5
6
 
Set fso = CreateObject("Scripting.FileSystemObject")
On Error resume next
Set f = fso.GetFile("C:\NomFic.mdb")
DateFichier = Left(f.DateLastModified, 10)
Set fso = Nothing%>

[Gabe74]

Re,

Tu utilises FileSystemObject. Tu as une fonction GetFile() et la propriété DateLastModified.

Code :

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

1
2
3
4
5
6
 
Set fso = CreateObject("Scripting.FileSystemObject")
On Error resume next
Set f = fso.GetFile("C:\NomFic.mdb")
DateFichier = Left(f.DateLastModified, 10)
Set fso = Nothing%>

est-ce que je dois insérer ce code dans un évènement quelconque de mon formulaire d'accueil?

encore merci mille fois!

[pc75]

Re,

Aucune idée. Je ne connais pas les formulaires sous Access.
Mais il y aura surement quelqu'un(e) qui saura t'aider.

Désolé !

[Gabe74]

Re,

Aucune idée. Je ne connais pas les formulaires sous Access.
Mais il y aura surement quelqu'un(e) qui saura t'aider.

Désolé !

pas de problème je tacherai de trouver!
en tout cas merci bcp de ton aide!
à+

[Dolphy35]

Salut,

Pour completer le code de pc75 tu peux le mettre dans l'évenement Form_Open, à chaque ouverture de ton form le champs sera mis à jour.

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Open(Cancel As Integer)
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set f = fso.GetFile("C:\MaBase.mdb")
Me.MonChamp = Left(f.DateLastModified, 10)
Set fso = Nothing
End Sub

ps efface les caractères après nothing.

Dolphy

[dok flint]

Bonjour
Si turegarde sur le forum le message "Date derniere mise à jour", je crois que ça peut t'aider car c'est dans le meme esprit et facile à faire par l'insertion d'un champs seulement.
Salut