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

VBA Access Discussion :

Informations sur les tables liées


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Inscrit en
    Décembre 2006
    Messages
    55
    Détails du profil
    Informations forums :
    Inscription : Décembre 2006
    Messages : 55
    Par défaut Informations sur les tables liées
    Supposons que j'ai une table Table1 liée.
    Table1 provient donc d'un autre fichier access, j'aimerais récupérer l'emplacement de ce fichier access (l'information est contenu dans ma table liée, mais je ne sais pas comment en extraire l'information).

    Merci d'avance.

  2. #2
    Expert confirmé
    Avatar de Domi2
    Homme Profil pro
    Gestionnaire
    Inscrit en
    Juin 2006
    Messages
    7 194
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 65
    Localisation : Suisse

    Informations professionnelles :
    Activité : Gestionnaire
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Juin 2006
    Messages : 7 194
    Par défaut
    Bonjour,

    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
    'Recherche le nom du répertoire dans lequel est installée la base de données dorsale, ainsi que le nom du fichier
        strCheminDorsale = CurrentDb.TableDefs("TaTableLiée").Connect
        strCheminDorsale = Right(strCheminDorsale, Len(strCheminDorsale) - InStr(1, strCheminDorsale, "DATABASE=") - 8)
     
        'Recherche le nom du répertoire et des sous-répertoires
        If Right(strCheminDorsale, 1) = "\" Then
     
            strRepertoireDorsale = strCheminDorsale
     
        Else
     
            strRepertoireDorsale = Left(strCheminDorsale, InStrRev(strCheminDorsale, "\"))
     
        End If
     
        strRepertoireDorsale = strRepertoireDorsale
    Domi2

  3. #3
    Membre averti
    Inscrit en
    Décembre 2006
    Messages
    55
    Détails du profil
    Informations forums :
    Inscription : Décembre 2006
    Messages : 55
    Par défaut
    merci

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

Discussions similaires

  1. [MySQL-5.6] Requête pour récuperer toutes les infos sur les tables liées
    Par aobmilan dans le forum Requêtes
    Réponses: 1
    Dernier message: 07/06/2013, 23h22
  2. Information sur les tables de fond
    Par Dale_L dans le forum Entreprise Manager
    Réponses: 1
    Dernier message: 10/10/2008, 22h04
  3. Réponses: 2
    Dernier message: 03/03/2007, 19h03
  4. Réponses: 5
    Dernier message: 30/10/2006, 16h23
  5. [access] question sur les tables liées
    Par maxdwarf dans le forum Access
    Réponses: 4
    Dernier message: 29/06/2006, 09h30

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