Discussion :

[jean-paul lepetit]

Salut à tous,
Pour supprimer des tables attachées, j'utilise ce code

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
    With MyBase
        For Each Tbl In .TableDefs
        Debug.Print Tbl.Name
 
            If Tbl.Name = "Tbl_Procuration" Then
                .TableDefs.Delete "Tbl_Procuration"
            ElseIf Tbl.Name = "Tbl_BurInstance" Then
                .TableDefs.Delete "Tbl_BurInstance"
            ElseIf Tbl.Name = "Tbl_Mandataire" Then
                .TableDefs.Delete "Tbl_Mandataire"
            ElseIf Tbl.Name = "Tbl_ProcuImporte" Then
                .TableDefs.Delete "Tbl_ProcuImporte"
            End If
        Next Tbl
    End With

(le debug.print a été rajouté pour voir la liste des tables)
et il y a plusieurs tables existantes que je ne trouve pas avec le debug.print, et donc que je ne peux pas deleter....

Quelqu'un a déjà eu ce problème?

Merci de vos réponses

[Kloun]

Je mettrais bien un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MyBAse.TableDefs.Refresh

Au début et à la fin.

[jean-paul lepetit]

ça ne change rien....
sur 8 tables existantes, il ne m'en liste que 5 (hormis les tables systèmes)

[Kloun]

Le code un peu plus complet, ça donne :

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
    set MyBse = CurrentDB
    With MyBase
        .TableDefs.refresh
        For Each Tbl In .TableDefs
        Debug.Print Tbl.Name
 
            If Tbl.Name = "Tbl_Procuration" Then
                .TableDefs.Delete "Tbl_Procuration"
            ElseIf Tbl.Name = "Tbl_BurInstance" Then
                .TableDefs.Delete "Tbl_BurInstance"
            ElseIf Tbl.Name = "Tbl_Mandataire" Then
                .TableDefs.Delete "Tbl_Mandataire"
            ElseIf Tbl.Name = "Tbl_ProcuImporte" Then
                .TableDefs.Delete "Tbl_ProcuImporte"
            End If
        Next Tbl
        .TableDefs.refresh
    End With

?
J'utilise une sub similaire :

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
Public Sub SupprimeTable(pStr_NomTable As String)
Dim iObj_TableDef As TableDef
 
    On Error GoTo Erreur
    InitDatabase
    gObj_Database.TableDefs.Refresh
    For Each iObj_TableDef In gObj_Database.TableDefs
        If iObj_TableDef.Name = pStr_NomTable Then
            gObj_Database.TableDefs.Delete pStr_NomTable
        End If
    Next
    gObj_Database.TableDefs.Refresh
    DoEvents
Erreur:
End Sub

et j'ai jamais eu ce genre de problème.

[jean-paul lepetit]

c'est une procédure que j'utilise aussi dans d'autres bases et je n'ai jamais eu ce problème non plus....

Mais là, il y a trois tables qu'il ne trouve pas.
Je viens d'essayer de tout importer dans une nouvelle base et ça fait la même chose....

[Jean-Philippe André]

salut,
fais un check du nom de tes tables des fois que le nom ne soit pas le même :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim tmpTab As tableDef
For Each tmpTab In CurrentDb.TableDefs
Debug.Print tmpTab.name
Next

compacte ta base, ca supprimera les tables temporaires

[jean-paul lepetit]

Je viens de remplacer dans mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

        For Each Tbl In .TableDefs

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

        For Each Tbl In CurrentDb.TableDefs

et cela a l'air de marcher...
je ne comprends pas pourquoi....

Pourtant, je définissais bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MyBase=CurrentDB

Encore un des mystères d'Access....

Merci à Kloun et jpcheck

[olosta]

Merci jean-paul lepetit, je viens de galérer comme un fou.
Ca marche maintenant. Je pense que c'est un bug d'access.
Mille merci Je l'envoie ou la bouteille de champagne ? XD