Discussion :

[pifou25]

Bonjour,

Je voudrais bien savoir pourquoi cette procédure ne marche pas, je tente de créer des tables liées mais ça ne me crée rien du tout dans la fenêtre base de donnée. Meme en actualisant (F5). Par contre y'a aucun message d'erreur nulle pas!

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
17
18
19
Dim db As DAO.Database  'Database to import
Dim tdf As DAO.TableDef
Dim arrTablename As Variant, arrSourceName As Variant, strSourceConnect As String, i As Long
arrTablename = Array("Activite", "RaisonSociale", "Region", "Site")
arrSourceName = Array("Activités", "Raison_sociale", "Region", "Site")
 
Dim strCheminBd As String, strNomTable As String, strMotPasse As String
strCheminBd = "P:\Repertoire\base1.mdb"
strMotPasse = "pass"
strSourceConnect = "MS Access;PWD=" & strMotPasse & ";DATABASE=" & strCheminBd
 
Set db = CurrentDb
' créer les tables
For i = LBound(arrTablename) To UBound(arrTablename)
    Set tdf = db.CreateTableDef(arrTablename(i), dbAttachSavePWD + dbAttachedTable, arrSourceName(i), strSourceConnect)
    tdf.RefreshLink
    db.TableDefs.Append tdf
    Set tdf = Nothing
Next i

[marot_r]

Essaye d'ajouter un CurrentDb.TableDefs.Refresh après ta boucle.

A+

[pifou25]

non, pas mieux.

J'ai aussi essayé d'utilier currentDB au lieu de la variable db (à priori c'est pareil il me semble) mais pas mieux. Toujours pas de msg d'erreur mais je ne sais pas si je dois m'en réjouir...

(edit) c'est bon j'ai trouvé c'est le CreateTableDef qui ne marche pas... il faut faire les étapes 1 par 1:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
For i = LBound(arrTablename) To UBound(arrTablename)
    Set tdf = New TableDef
    tdf.Name = arrTablename(i)
    tdf.SourceTableName = arrSourceName(i)
    tdf.Connect = strSourceConnect
    tdf.Attributes = dbAttachedTable + dbAttachSavePWD
    CurrentDb.TableDefs.Append tdf
Next i