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
J'execute cette fonction pour chaque table
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager