Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Suppression Table VBA

Suppression Table VBA

11 réponses
Avatar
Emilie
Bonjour =E0 tous

Je travaille sur une base de donn=E9es C:\Emilie.mdb

J'aimerais en cliquant sur un bouton d'un formulaire de=20
cette base supprimer une table nomm=E9e Articles de la base=20
C:\Test.mdb

Quelqu'un connait-il une solution simple en VBA?

Merci =E0 tous ceux qui pourront m'aider.

Cordialement.

Emilie
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Eric
Bonjour Emilie,

Le plus simple :
Private Sub Commande1_Click()
Currentdb.Tabledefs.Delete "Articles"
End Sub

A+
Eric

"Emilie" écrivait news:1fad201c4583e
$4dcd66e0$:

Bonjour à tous

Je travaille sur une base de données C:Emilie.mdb

J'aimerais en cliquant sur un bouton d'un formulaire de
cette base supprimer une table nommée Articles de la base
C:Test.mdb

Quelqu'un connait-il une solution simple en VBA?

Merci à tous ceux qui pourront m'aider.

Cordialement.

Emilie





Avatar
Raymond [mvp]
Bonjour.

pas la plus simple, mais j'aime bien automation.
Dim acApp As New Access.Application
acApp.OpenCurrentDatabase ("C:Test.mdb")
acApp.DoCmd.DeleteObject acTable, "Articles"
acApp.CloseCurrentDatabase
Set acApp = Nothing


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Emilie" a écrit dans le message de
news:1fad201c4583e$4dcd66e0$
Bonjour à tous

Je travaille sur une base de données C:Emilie.mdb

J'aimerais en cliquant sur un bouton d'un formulaire de
cette base supprimer une table nommée Articles de la base
C:Test.mdb

Quelqu'un connait-il une solution simple en VBA?

Merci à tous ceux qui pourront m'aider.

Cordialement.

Emilie
Avatar
Jessy Sempere [MVP]
Bonjour

Euh !!!!!!
Je dirais plutôt :

Private Sub Commande1_Click()
dim db as database
set db = opendatabase("c:test.mbd")
db.Tabledefs.Delete "Articles"
db.close: set db = nothing
End Sub

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Eric" a écrit dans le message news:

Bonjour Emilie,

Le plus simple :
Private Sub Commande1_Click()
Currentdb.Tabledefs.Delete "Articles"
End Sub

A+
Eric

"Emilie" écrivait news:1fad201c4583e
$4dcd66e0$:

Bonjour à tous

Je travaille sur une base de données C:Emilie.mdb

J'aimerais en cliquant sur un bouton d'un formulaire de
cette base supprimer une table nommée Articles de la base
C:Test.mdb

Quelqu'un connait-il une solution simple en VBA?

Merci à tous ceux qui pourront m'aider.

Cordialement.

Emilie








Avatar
Raymond [mvp]
Bonjour Eric.

en effet c'est la plus simple, mais sûrement pas celle qui marche. faut
arrêter le p'tit blanc du matin, ça te perturbe jusqu'à midi.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Eric" a écrit dans le message de
news:
Bonjour Emilie,

Le plus simple :
Private Sub Commande1_Click()
Currentdb.Tabledefs.Delete "Articles"
End Sub

A+
Eric


Avatar
Eric
Bonjour Jessy,

Autant pour moi. Me suis arrété à : ....une table nommée Articles de la
base
J'avais pas vu la ligne du dessous

A+
Eric


"Jessy Sempere [MVP]" écrivait
news:cb905l$oea$:

Bonjour

Euh !!!!!!
Je dirais plutôt :

Private Sub Commande1_Click()
dim db as database
set db = opendatabase("c:test.mbd")
db.Tabledefs.Delete "Articles"
db.close: set db = nothing
End Sub

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Eric" a écrit dans le message news:

Bonjour Emilie,

Le plus simple :
Private Sub Commande1_Click()
Currentdb.Tabledefs.Delete "Articles"
End Sub

A+
Eric

"Emilie" écrivait
news:1fad201c4583e $4dcd66e0$:

Bonjour à tous

Je travaille sur une base de données C:Emilie.mdb

J'aimerais en cliquant sur un bouton d'un formulaire de
cette base supprimer une table nommée Articles de la base
C:Test.mdb

Quelqu'un connait-il une solution simple en VBA?

Merci à tous ceux qui pourront m'aider.

Cordialement.

Emilie













Avatar
Pierre CFI [mvp]
bonjour
hum, si elle est attachée ?? comme en général çà s'attachent ces petites bétes là

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Raymond [mvp]" a écrit dans le message de news:
Bonjour.

pas la plus simple, mais j'aime bien automation.
Dim acApp As New Access.Application
acApp.OpenCurrentDatabase ("C:Test.mdb")
acApp.DoCmd.DeleteObject acTable, "Articles"
acApp.CloseCurrentDatabase
Set acApp = Nothing


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Emilie" a écrit dans le message de
news:1fad201c4583e$4dcd66e0$
Bonjour à tous

Je travaille sur une base de données C:Emilie.mdb

J'aimerais en cliquant sur un bouton d'un formulaire de
cette base supprimer une table nommée Articles de la base
C:Test.mdb

Quelqu'un connait-il une solution simple en VBA?

Merci à tous ceux qui pourront m'aider.

Cordialement.

Emilie





Avatar
Jessy Sempere [MVP]
Oh là...
Effectivement pas plus simple... ;-))))
Bon t'as raison, vu le temps... la petite sieste s'impose... :o)))))))))

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Raymond [mvp]" a écrit dans le message news:

Bonjour.

pas la plus simple, mais j'aime bien automation.
Dim acApp As New Access.Application
acApp.OpenCurrentDatabase ("C:Test.mdb")
acApp.DoCmd.DeleteObject acTable, "Articles"
acApp.CloseCurrentDatabase
Set acApp = Nothing


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


Avatar
Pierre CFI [mvp]
jessy, tu parles d'une sieste pendant ton sommeil du jour ??

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Jessy Sempere [MVP]" a écrit dans le message de news:cb90qo$ooh$
Oh là...
Effectivement pas plus simple... ;-))))
Bon t'as raison, vu le temps... la petite sieste s'impose... :o)))))))))

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Raymond [mvp]" a écrit dans le message news:

Bonjour.

pas la plus simple, mais j'aime bien automation.
Dim acApp As New Access.Application
acApp.OpenCurrentDatabase ("C:Test.mdb")
acApp.DoCmd.DeleteObject acTable, "Articles"
acApp.CloseCurrentDatabase
Set acApp = Nothing


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum







Avatar
Jessy Sempere [MVP]
Mais non, je parle de la sieste dont parlais Raymond un peu plus bas... ;-)

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Pierre CFI [mvp]" a écrit dans le message news:

jessy, tu parles d'une sieste pendant ton sommeil du jour ??

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Jessy Sempere [MVP]" a écrit dans le message
de news:cb90qo$ooh$

Oh là...
Effectivement pas plus simple... ;-))))
Bon t'as raison, vu le temps... la petite sieste s'impose... :o)))))))))

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Raymond [mvp]" a écrit dans le message
news:



Bonjour.

pas la plus simple, mais j'aime bien automation.
Dim acApp As New Access.Application
acApp.OpenCurrentDatabase ("C:Test.mdb")
acApp.DoCmd.DeleteObject acTable, "Articles"
acApp.CloseCurrentDatabase
Set acApp = Nothing


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum











Avatar
Raymond [mvp]
Attachée ou pas la table est supprimée.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Pierre CFI [mvp]" a écrit dans le message de
news:
bonjour
hum, si elle est attachée ?? comme en général çà s'attachent ces petites
bétes là


--
Pierre CFI


1 2