[AC-2007] Attachement de Tables

[PINSVERT]

Bonjour,

Je réalise actuellement une BBD Access 2007 s'appuyant sur des tables attachées. Les tables d'origines sont issues d'un logiciel de gestion commerciale. Suivant les configurations des clients les bases de l'application de gestion ne sont pas toujours localisées au même emplacement.

Je sollicite donc votre aide afin de savoir comment créer un formulaire qui permettrait à l'utilisateur d'aller pointer sur la localisation de sa base de données pour réattacher les tables.

Cette base devra fonctionner avec un runtime.

Merci d'avance pour votre aide

[JeanYves70]

Bonjour,

Tu veux attacher quoi comme tables ?
Depuis une base ACCESS, ORACLE ... ?

[PINSVERT]

Bonjour,

Attachement de table provenant de la base Access de l'applicatif de Gestion

Cordialement

[JeanYves70]

Ok moi je fais ceci :

J'ai une table paramètres T_INITIALISATION
Un formulaire avec des listes dans lesquelles je fais choisir le chemin et le nom de la base avec un bouton de connection et un de déconnection

Code :

1
2
3
4
5
 
Global MaBase As Database
Global As Recordset
Global Tb001, tb002, tb003 As TableDef
'Etc ...

Pour connecter, une fonction par base à ouvrir

Code :

call  Fnc_ConnectDb01

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Public Function Fnc_ConnectDb01()
 
    'Pointe vers la DB en cours
    Set MaBase = CurrentDb
    'Ouverture de la table T_INITIALISATION
    Set TbInit = MaBase.OpenRecordset("T_INITIALISATION")
 
    'Création des nouvelle tables 1 à 50
    Set Tb001 = MaBase.CreateTableDef("LeNomSouhaiteDeMaTable1")
    Set tb002 = MaBase.CreateTableDef("LeNomSouhaiteDeMaTable2")
    Set tb003 = MaBase.CreateTableDef("LeNomSouhaiteDeMaTable3")
'Etc...
 
     'Défini la base source et son chemin
     Tb001.CONNECT = ";DATABASE=" & TbInit![path01] & TbInit![db01]
     Tb001.SourceTableName = "NomTableSource1"   
     MaBase.TableDefs.Append Tb001 'Permet échanges Entrée/Sortie entre 2tb
 
      tb002.CONNECT = ";DATABASE=" & TbInit![path01] & TbInit![db01]
      tb002.SourceTableName = "NomTableSource2"
      MaBase.TableDefs.Append tb002 
 
      tb003.CONNECT = ";DATABASE=" & TbInit![path01] & TbInit![db01]
      tb003.SourceTableName = "NomTableSource3"
      MaBase.TableDefs.Append tb003
'Etc ...
 
    'Ferme l'objet
    TbInit.Close
    MaBase.Close
    'Libere la memoire
    Set TbInit = Nothing
    Set MaBase = Nothing

Pour déconnecter, une fonction par base à déconnecter

Code :

call  Fnc_DisConnectDb01

Code :

1
2
3
4
5
 
    DoCmd.DeleteObject acTable, "LeNomSouhaiteDeMaTable1" 'tb001
    DoCmd.DeleteObject acTable, "LeNomSouhaiteDeMaTable2" 'tb002
    DoCmd.DeleteObject acTable, "LeNomSouhaiteDeMaTable3" 'tb003
'Etc...

Je fonctionne ainsi en runtime depuis ACCESS97 je suis en cela fonctionne toujours. A adapter bien sur.

Bon courage

[pier.antoine]

Bonjour

Il serait peut-être intéressant de lire le tutoriel Liaisons dynamiques pour bases fractionnées

Je pense que vous y trouverez de quoi satisfaire votre besoin.

Bonne journée

Pierre

[PINSVERT]

Bonjour,

Quelqu'un aurait il un petite base de donnée intégrant ces fonctions à me fournir ?

Cordialement

[GAYOT]

Bonjour
As tu lu le tuto recommandé par pier.antoine?
Il y a même la base exemple...

[PINSVERT]

Merci

Je n'avais vu le lien de téléchargement

Je teste et vous tiens informé.

Cordialement