Bonjour,
J'ai encore un problème... Je veux rafraichir les liens de mes tables attachées. J'ai récupéré ce code d'une autre appli mais j'obtiens un message d'erreur "l'objet est incorrect ou plus définié à l'instruction "If defs.SourceTableName ". J'ai beau retourner le problème dans tous les sens, je ne vois pas où cela peut bien buter. Pourtant ce code marche parfaitement sur l'autre application...
Merci de l'aide que vous pourriez apporter.
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 Dim repSource As String Dim rep As String Dim defs As TableDef Dim i As Integer rep= CurDir & "\data.mdb" For i = 0 To CurrentDb.TableDefs.Count - 1 Set defs = CurrentDb.TableDefs(i) If defs.SourceTableName <> "" Then If Not (defs.Connect Like "*" & rep) Then defs.Connect = ";DATABASE=" & rep defs.RefreshLink End If End If Next i
Partager