Discussion :

[youplahop]

Bonjour,

Je suis en train de créer une base de donnée sous Access 2000.

Je voudrai tout simplement afficher un texte dans un formulaire disant : "dernière modification de la base de donnée le xx.xx.xxx"

Ce texte reprendrait le contenu de "fichier/propriétés de la base/modifié le:"

Quelqu'un peux me donner le code VBA à placer derrière l'étiquette ? Impossible de trouver la moindre info dans l'aide ou sur le net...

Merci d'avance, je desespère...

@+

Youplahop

[pc75]

Bonjour,

En utilisant une instance de FileSystemObject

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Function ShowFileAccessInfo(filespec)
  Dim fso, f, s
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFile(filespec)
  s = UCase(filespec) & "<BR>"
  s = s & "Created: " & f.DateCreated & "<BR>"
  s = s & "Last Accessed: " & f.DateLastAccessed & "<BR>"
  s = s & "Last Modified: " & f.DateLastModified
  ShowFileAccessInfo = s
End Function

[Tofalu]

Je voudrai tout simplement afficher un texte dans un formulaire disant : "dernière modification de la base de donnée le xx.xx.xxx"

Et ben ça ça m'étonnerais

Description

Renvoie la date et l'heure de dernière modification du fichier ou du dossier spécifié. Lecture seule.

Syntaxe

object.DateLastModified

L'argument object représente toujours un objet File ou Folder.

Remarques

Le code suivant illustre l'emploi de la propriété DateLastModified avec un fichier :

Sub AfficheInfoAccesFichier(specfichier)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(specfichier)
s = UCase(specfichier) & vbCrLf
s = s & "Créé le : " & f.DateCreated & vbCrLf
s = s & "Dernier accès le : " & f.DateLastAccessed & vbCrLf
s = s & "Dernière modification le : " & f.DateLastModified
MsgBox s, 0, "Infos d'accès au fichier"
End Sub

Tu dois ajouter une référence microsoft scripting runtime à ton projet (VBA-->outils-->reference)

Un exemple :

Code :

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

1
2
3
4
Dim fso As New FileSystemObject
Dim fichier As File
Set fichier = fso.GetFile(Application.CurrentDb.name)
MsgBox fichier.DateLastModified

[youplahop]

Merci pour les réponses
...
Je suis débutant, et normalement, je tatonne des heures pour adapter ce genre de code à mes besoins. Mais là, je suis complètement perdu...

pouvez-vous me donner un code complet qui irait entre :

"Private Sub Form_Current()" (sur activation de mon formulaire)
et
"End Sub"

La zone texte où afficher "dernière date de modification" s'appelle "datemodif".
La base de donnée liée est d:\BDD\BDD_princip.mdb

Merci de votre compréhension.

Youplahop

[youplahop]

Ok, j'ai trouvé...
Procédure évenementielle sur activation du formulaire.

Private Sub Form_Current()

ShowFileAccessInfo "d:\BDD\BDD_princip.mdb"

End Sub

Sub ShowFileAccessInfo(filespec)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filespec)
s = s & "Dernière mise à jour le " & f.DateLastAccessed & vbCrLf
Datemodif = s

End Sub

Je ne sais pas s'il y a des choses en trop, mais en tout cas, ça marche, sans que j'y comprenne grand chose...

Merci et @ +