[Access] Lier et délier des tables Access Résolu

Question

Bonjour,

Dans mon travail, je dois réaliser une petite application Access. Pour cela, il me faut lier et delier des tables venant d'un autre fichier Access. Avec l'interface graphique il n'y a pas beaucoup plus simple mais ce que je cherche c'est du code qui pourait automatiser la chose.
Je crois pas qu'il soit possible de délier des table mais si je trouve du code pour changer le chemin de liaison, ca me convient aussi.

Je vous remercie d'avance.

_goni · Accepted Answer

Salut à tous,

En fait, je donne la solution au cas où quelqu'un aurait le même problème. J'explique rapidement le fonctionnement. JE supprime toutes les tables liées pour recreer le lien.
Niveau code ça donne :
'supprimer les tables liées
Dim BD As DAO.Database
Set BD = CurrentDb
Dim tb As DAO.TableDef
For Each tb In BD.TableDefs
    If Left(tb.Name, 4) <> "MSys" Then
        If Len(tb.Connect) > 0 Then
            DoCmd.RunSQL "DROP TABLE [" & tb.Name & "] ;"
            Debug.Print "effacement de " & tb.Name & " -=#=> " & tb.Connect
        End If
    End If
Next tb

Dim strMotPasse As String
Dim strConnect As String
Dim strNomsTables() As String
Dim strTemp As String
Dim i As Integer
Dim oDb As DAO.Database
Dim oDbSource As DAO.Database
Dim oTbl As DAO.TableDef
Dim oTblSource As DAO.TableDef
strMotPasse = "pass"

'dans strFichierTables on trouve le chemin de ma source style "C:	est.mdb"
strConnect = "MS Access;pwd=" & strMotPasse & ";DATABASE=" & strFichierTables
Set oDb = CurrentDb
Set oDbSource = DBEngine.OpenDatabase(strFichierTables, True, True, strConnect)

For Each oTblSource In oDbSource.TableDefs
    If (oTblSource.Attributes And dbSystemObject) = 0 Then
        strTemp = strTemp & oTblSource.Name & "|"
    End If
Next
oDbSource.Close: Set oDbSource = Nothing
strNomsTables = Split(Left(strTemp, Len(strTemp) - 1), "|")
For i = 0 To UBound(strNomsTables)
    Set oTbl = oDb.CreateTableDef(strNomsTables(i))
    oTbl.Connect = strConnect
    oTbl.SourceTableName = strNomsTables(i)
oDb.TableDefs.Append oTbl
Next i

oDb.TableDefs.Refresh


Voila. Encore une fois, merci pour ton aide Blux.

blux · Answer

Salut,

on peut obtenir le chemin de connexion et le changer le cas échéant :

Set Db = CurrentDb
' Test des attachements
' On exclut les tables système
' ainsi que les tables non attachées
For Each Tb In Db.TableDefs
    'MsgBox Tb.Name
    If Left(Tb.Name, 4) <> "MSys" Then
        If Tb.Connect <> "" Then
           MsgBox Tb.Properties("Connect")
           ' Tb.Connect = ";Database=c:\toto\mabase.mdb"
        End If
    End If
Next

Pour délier des tables , il suffit de mettre le même nom que la base en cours, soit, dans mon exemple Db.Name, voire mettre à blanc la zone connect... (jamais testé par mes soins !)

_goni · Answer

Bon ben, il faut déjà que je progresse en programation avant de pouvoir mettre en oeuvre un truc comme ça. Je continue à essayer.

_goni · Answer

Au fait, je n'ai même pas dis merci donc merci beaucoup blux

_goni · Answer

J'ai mis en place le code que tu m'as donné. Ca donne :

Set dbData = esp.OpenDatabase(strFichierTables)

' Test des attachements
' On exclut les tables système
' ainsi que les tables non attachées
For Each TableData In dbData.TableDefs
    'MsgBox Tb.Name
    If Left(TableData.Name, 4) <> "MSys" Then
        If TableData.Connect <> "" Then
           'MsgBox TableData.Properties("Connect")
           TableData.Connect = ";DATABASE=" & strFichierTables
        End If
    End If
Next

Malheureusement pas de changement en vu pour le chemin de mes tables. Je pense que ca vient du reste de mon code.

En tout cas merci de m'avoir consacré un peu de temps

_goni · Answer

je le fait juste en dessous de mon bout de code. En fait, quand j'execute cette partie du programme il ne rentre jamais dans la condition If TableData.Connect <> "" Then Si je l'enlève, j'ai une erreur. As tu une idée ?

_goni · Answer

En fait j'appel pas mon module (message 7). C'est une erreur de ma part.  Sinon, quand j'enlève la condition, l'erreur est :

Erreur n°3219:
Opération non valide

Voila

blux · Answer

Tu peux mettre le code que tu emploies après avoir ôté le test de non vide ?

Et si tu affiches tabledata.connect pour chaque table, tu as quoi ?

_goni · Answer

voila mon code :

Set esp = DBEngine.Workspaces(0)
Set dbData = esp.OpenDatabase(strFichierTables)

' Test des attachements
' On exclut les tables système
' ainsi que les tables non attachées
For Each TableData In dbData.TableDefs
    'MsgBox Tb.Name
    If Left(TableData.Name, 4) <> "MSys" Then
        'If TableData.Connect <> "" Then
           'MsgBox TableData.Properties("Connect")
           TableData.Connect = ";DATABASE=" & strFichierTables
           CurrentDb.TableDefs.Refresh
        'End If
    End If
Next

si je fais l'affichage, de TableData.Properties("Connect") alors j'ai une msgBox avec le chemin que je veux. Enfin si j'ai bien fais ce que tu attendais de moi...

blux · Answer

Je t'ai suggéré un tabledata.refreshlink, pas un currentdb.tables.refresh (qui n'est pas forcément obligatoire)...

De plus, je pense qu'il peut y avoir confusion entre ta base notée dbdata et currentdb...

Supprime l'affectation de dbdata et remplace par set dbdata=currentdb

_goni · Answer

Alors je me trouve face à une nouvelle erreur.

Erreur n°3011 :
Le moteur de base de données Microsoft Jet n’a pas pu trouver l’objet ’31-12-2005-a120#txt’. Assurez vous que l’objet existe et que vous avez correctement saisi son chemin d’accès.

Je suis sure de mon chemin d’accès vu que je le fais à l’aide d’un système comme « parcourir ». Ce n’est donc pas moi qui entre le chemin manuellement.
Par contre mon chemin contient des espaces : 
 F:\Projet\31-12-2005 complémentaire

_goni · Answer

petite précision, je n'ai pas le droit de supprimer ce petit espace qui doit etre la raison de cet erreur.

_goni · Answer

Je viens de me rendre compte aussi que le chemin change cette fois-ci. Donc plus qu'a savoir d'où vient cet erreur

blux · Answer

Ton erreur est en quelle ligne ?

As-tu fait les modifs suggérées en 18 ?

_goni · Answer

J'ai fait les modifs, c'est ce qui ma fait avoir cet erreur mais je crois vraiment que ca doit venir de mes espaces dans le nom du chemin. Je dois mal prendre ca en compte. Pour ce qui est de la ligne je vais regarder

_goni · Answer

alors c'est au niveau du premier passage sur la ligne TableData.RefreshLink

blux · Answer

J'ai fait un test chez moi :

- avec un nom comprenant des espaces, il me met argument non valide sur la ligne refreshlink
- directement sous C:\, il me met pilote isam introuvable sur la ligne refreshlink (c'est une erreur de m*$*$ qui n'a rien à voir avec ce qu'on fait, elle est connue comme le houblon, il va falloir que je réinstalle ACCESS...)

... mais je ferai ça en 2007, je pars en congés ce soir, à l'année prochaine !

[Access] Lier et délier des tables Access

17 réponses

Discussions similaires

Newsletters