Discussion :

[niavlys77]

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...

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

Merci de l'aide que vous pourriez apporter.

[LedZeppII]

Bonjour,

Je ne sais pas pourquoi, mais avec un objet Database ça fonctionne.

Code vb :

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
Dim repSource As String
Dim rep As String
Dim defs As TableDef, db As DAO.Database
Dim i As Integer
 
    rep = CurDir & "\data.mdb"
    Set db = CurrentDb
    For i = 0 To db.TableDefs.Count - 1
        Set defs = db.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

A+

Ajout:
J'ai trouvé dans l'aide. CurrentDb est une fonction qui retourne une référence à un nouvel objet Database. Ce n'est pas un objet.
Tentative d'explication :
Si on ne sauve cet objet à l'assignant à une variable objet il est détruit après utilisation (c.a.d à la ligne suivante).
Donc l'élément de la collection TableDefs auquel fait référence defs n'existe plus, puisque l'objet contenant la collection n'existe plus.

[marot_r]

Probablement tu as une incertitude sur l'objet Tabledef entre la librairie ADO et DAO.

CurrentDb est un objet Database DAO et la propriété SourceTableName ne doit être définie que pour les objets DAO.Tabledef pas ADO.TableDef.

A+

[niavlys77]

Effectivement, l'erreur venait bien du fait que j'utilisais currentdb au lieu de l'affecter à une variable database. Merci beaucoup de votre aide.