Afficher les propriétés d'une base de donnée dans formulaire

Version imprimable

29/11/2004, 15h25
youplahop

Afficher les propriétés d'une base de donnée dans formulaire

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

Bonjour,

En utilisant une instance de FileSystemObject

Code:

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

29/11/2004, 15h34
Tofalu
Citation:

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

Citation:

Envoyé par L'aide

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:

1 2 3 4 Dim fso As New FileSystemObject Dim fichier As File Set fichier = fso.GetFile(Application.CurrentDb.name) MsgBox fichier.DateLastModified
29/11/2004, 15h42
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
29/11/2004, 16h51
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 @ +