importer des tables avec les relations
Bonjour a tous
Je souhaite importer des tables par le code mon problème est que je n'arrive pas à importer les relation avec.
Mon code est le suivant
Code:
1
2
3
4
5
6
7
8
9
10
11
|
Sub DoTheLink(strNomBase As String, strNomTable As String, Optional strNomSource)
Dim db As Database
Set db = CurrentDb
On Error Resume Next
db.TableDefs.Delete strNomTable
On Error GoTo 0
If IsMissing(strNomSource) Then strNomSource = strNomTable
DoCmd.TransferDatabase acImport, "Microsoft Access", strNomBase, acTable, strNomSource, strNomTable, False
End Sub |
J'execute cette fonction pour chaque table
