Discussion :

[Capileba]

Bonjour,

J'ai un problème que je n'arrive pas à expliquer :
Une table que je n'arrive pas à supprimer via le code VBA mais que je peux supprimer à la main
De même, impossible d'exécuter une requête créant cette table via VBA, bien que je puisse l'exécuter manuellement...

Dans les relations d'objet j'ai trouvé :
- 2 requêtes basées sur cette table --> avant de tenter la suppression/exécution de requête création je ferme donc ces 2 requêtes
- Un formulaire basé sur une de ces deux requêtes, et je le ferme également.

Malgré ça, impossible de faire une de ces deux actions en VBA.
Je rate peut-être quelque chose de très simple?
Il est peut-être possible de savoir par quel autre processus la table est utilisée?

Merci pour votre aide!

[Jean-Philippe André]

SAlut,

quel code utilises-tu pour supprimer la table ?

TableDef.Delete ?
DROP TABLE ?

autre ?

[pmouchot]

Bonjour,

Je rencontre le même problème. Dans une procédure VBA (access 2007), j'importe un fichier xml que je travaille ensuite pour mettre les données dans différentes tables. Une fois cela fait, je souhaiterai supprimer la table crée par l'importation.
J'ai essayé avec DROP TABLE rien n'y fait.
Quelqu'un a t'il la solution ?

Merci d'avance

[Jean-Philippe André]

Bonjour,

y a-t-il un message d'erreur quelconque qui nous permettrait d'analyser le soucis ?

[User]

Bonjour,

Le volet de navigation est-il actualisé ?

Peut-être a-t-elle été supprimée, mais il faut fermer et réouvrir la base pour le constater

Cdlt,

[pmouchot]

Bonjour,

y a-t-il un message d'erreur quelconque qui nous permettrait d'analyser le soucis ?

Non pas de message. Cela ne se fait pas c'est tout.

Voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Drop()
 
    Dim dbs As Database
 
       Set dbs = OpenDatabase("stock.accdb")
 
        dbs.Execute "DROP TABLE supplier;"
 
    dbs.Close
 
End Sub

Merci d'avance

[Zekraoui_Jakani]

'Vous pouvez essayer ceci:

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
Sub test03()
 
Dim dbs As Database
Set dbs = OpenDatabase("stock.accdb")
 
DoCmd.SetWarnings False
    For Each tbl In dbs.TableDefs
        If tbl.Name Like "supplier" Then
           DoCmd.DeleteObject acTable, "supplier"
          MsgBox "La table " & tbl.Name & " a été supprimée avec succès !"
        End If
    Next tbl
DoCmd.SetWarnings True
dbs.Close
Set dbs = Nothing
 
End Sub

[pmouchot]

'Vous pouvez essayer ceci:

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
Sub test03()
 
Dim dbs As Database
Set dbs = OpenDatabase("stock.accdb")
 
DoCmd.SetWarnings False
    For Each tbl In dbs.TableDefs
        If tbl.Name Like "supplier" Then
           DoCmd.DeleteObject acTable, "supplier"
          MsgBox "La table " & tbl.Name & " a été supprimée avec succès !"
        End If
    Next tbl
DoCmd.SetWarnings True
dbs.Close
Set dbs = Nothing
 
End Sub

Bonjour,

Merci beaucoup pour cette solution. Cela fonctionne.

Bonne journée