IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Access Discussion :

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


Sujet :

Access

  1. #1
    Candidat au Club
    Inscrit en
    novembre 2004
    Messages
    3
    Détails du profil
    Informations forums :
    Inscription : novembre 2004
    Messages : 3
    Points : 2
    Points
    2
    Par défaut 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

  2. #2
    Expert confirmé
    Avatar de pc75
    Profil pro
    Inscrit en
    septembre 2004
    Messages
    3 662
    Détails du profil
    Informations personnelles :
    Âge : 66
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : septembre 2004
    Messages : 3 662
    Points : 4 047
    Points
    4 047
    Par défaut
    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&#40;filespec&#41; & "<BR>"
      s = s & "Created&#58; " & f.DateCreated & "<BR>"
      s = s & "Last Accessed&#58; " & f.DateLastAccessed & "<BR>"
      s = s & "Last Modified&#58; " & f.DateLastModified
      ShowFileAccessInfo = s
    End Function

  3. #3
    Expert éminent sénior

    Avatar de Tofalu
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    octobre 2004
    Messages
    9 501
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Associations - ONG

    Informations forums :
    Inscription : octobre 2004
    Messages : 9 501
    Points : 32 270
    Points
    32 270
    Par défaut
    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 : 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&#40;Application.CurrentDb.name&#41;
    MsgBox fichier.DateLastModified

  4. #4
    Candidat au Club
    Inscrit en
    novembre 2004
    Messages
    3
    Détails du profil
    Informations forums :
    Inscription : novembre 2004
    Messages : 3
    Points : 2
    Points
    2
    Par défaut
    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

  5. #5
    Candidat au Club
    Inscrit en
    novembre 2004
    Messages
    3
    Détails du profil
    Informations forums :
    Inscription : novembre 2004
    Messages : 3
    Points : 2
    Points
    2
    Par défaut
    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 @ +

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. afficher les privilèges d'une base de données mysql
    Par lamou23 dans le forum Administration
    Réponses: 3
    Dernier message: 20/07/2010, 05h14
  2. Comment faire pour afficher les informations d'une base de donnée
    Par bonnet85 dans le forum VB 6 et antérieur
    Réponses: 8
    Dernier message: 28/03/2008, 10h24
  3. [VB.NET]afficher les tables d'une base de donnée
    Par amine_sh dans le forum Windows Forms
    Réponses: 6
    Dernier message: 06/11/2006, 12h00
  4. [MySQL] Afficher les tables d'une base de données ?
    Par jack_1981 dans le forum PHP & Base de données
    Réponses: 3
    Dernier message: 31/08/2006, 22h25
  5. Tutoriel Afficher les infos d'une base de données
    Par dolf13 dans le forum Langage
    Réponses: 2
    Dernier message: 14/06/2006, 11h56

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo