Dans Access 2007, lier des tables de SQL Server en VBA
Bonjour,
Au démarrage d'une base Access 2007, je lie les tables d'une base oDbLiee par le code suivant, qui marche bien :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
| For Each oTbl In oDbLiee.TableDefs
Set oTbl = oDb.CreateTableDef(oTbl.Name)
If Not oTbl.Name Like "MSys*" And oTbl.Name <> "TMGV" Then
With oTbl
.Connect = strConnect
.SourceTableName = oTbl.Name
'Debug.Print oTbl.Name
End With
'Ajoute la table à la base de données
oDb.TableDefs.Append oTbl
oDb.TableDefs.Refresh
End If
Next oTbl |
Ayant migré de la base oDbLiee vers une base MS SQL Server 2008, je n'arrive pas à trouver par quel code je peux désormais lier les tables de cette nouvelle base.
Une idée, svp ?
