Discussion :

[Jsiorat]

Bonjour à toutes et tous

Cette fonction est destinée à supprimer les tables liées d'une frontale pour ensuite refaire la liaison avec la dorsale
Le souci est que pour la suppression, une erreur est générée :

Erreur "3265" "Elément non trouvé dans cette collection"

alors que dans la partie "Dresser la liste", les tables sont bien reconnues et listées

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
16
17
18
19
20
21
22
23
24
25
26
Public Function DeleteTables()
 
' *** Supprimer toutes les tables attachées si la fonction VerifAttach a renvoyé False
    On Error Resume Next
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim arrTableName() As String, i As Long
    ReDim arrTableName(0)
    Set db = CurrentDb
    ' *** Dresser la liste des tables à supprimer
    For Each tdf In db.TableDefs
        If tdf.Connect <> "" Then
            ReDim Preserve arrTableName(UBound(arrTableName) + 1)
            arrTableName(UBound(arrTableName)) = tdf.Name
        Debug.Print tdf.Name
        End If
    Next
 
    ' *** SUPPRESSION DES TABLES
    For i = LBound(arrTableName) To UBound(arrTableName)
        db.TableDefs.Delete arrTableName(i)
    Next i
 
    Set db = Nothing
 
End Function

Comment résoudre ce problème ?
Merci pour vos réponses

[Jsiorat]

J'ai trouvé la solution ici sur ce forum !

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
16
17
18
 
    Dim db As DAO.Database
    Dim i As Integer
 
    Set db = CurrentDb
    'For Each tbdTables In db.TableDefs
    For i = db.TableDefs.Count To 1 Step -1
        With db.TableDefs(i - 1)
            If .Attributes = dbAttachedTable Then
 
                db.TableDefs.Delete .Name
 
            End If
        End With
 
    Next i
    db.TableDefs.Refresh
    Set db = Nothing

Il s'agit d'une question posée par BapTou88 à laquelle Marot_r a répondu !
Merci pour cette solution.