Comment effacer la table source d'une table liée ?
2 réponses
Yann
Bonjour tout le monde,
J'ai fait un tour sur la page :
http://access.vba.free.fr/sup_table_attachee.htm
pour pouvoir supprimer une table liée.
En fait, j'aimerais supprimer la table "source", pas la table liée.
J'utilise des requêtes création de table dans une base frontale pour créer
des tables dans une base dorsale mais j'ai le message d'erreur "Table déjà
existantes".
Quelqu'un connait un moyen de permettre la suppression de la table source ?
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
Jessy Sempere [MVP]
Bonjour
Tu peux utiliser le code qui suit :
Public Function DeleteObjectExterne(strDb$, intType%, strObject$) '** intType : 0 pour table, 1 pour requête, 2 pour formulaire '** 3 pour état, 4 pour macro et 5 pour module
Dim acApp As Object Set acApp = CreateObject("Access.Application")
With acApp .OpenCurrentDatabase strDb .DoCmd.DeleteObject intType, strObject .CloseCurrentDatabase End With acApp.Quit: Set acApp = Nothing End Function
-- @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Yann" <mail> a écrit dans le message news: 419a098f$0$14005$
Bonjour tout le monde,
J'ai fait un tour sur la page : http://access.vba.free.fr/sup_table_attachee.htm
pour pouvoir supprimer une table liée.
En fait, j'aimerais supprimer la table "source", pas la table liée.
J'utilise des requêtes création de table dans une base frontale pour créer des tables dans une base dorsale mais j'ai le message d'erreur "Table déjà existantes".
Quelqu'un connait un moyen de permettre la suppression de la table source ?
Merci d'avance.
Yann
Bonjour
Tu peux utiliser le code qui suit :
Public Function DeleteObjectExterne(strDb$, intType%, strObject$)
'** intType : 0 pour table, 1 pour requête, 2 pour formulaire
'** 3 pour état, 4 pour macro et 5 pour module
Dim acApp As Object
Set acApp = CreateObject("Access.Application")
With acApp
.OpenCurrentDatabase strDb
.DoCmd.DeleteObject intType, strObject
.CloseCurrentDatabase
End With
acApp.Quit: Set acApp = Nothing
End Function
--
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Yann" <mail> a écrit dans le message news:
419a098f$0$14005$8fcfb975@news.wanadoo.fr...
Bonjour tout le monde,
J'ai fait un tour sur la page :
http://access.vba.free.fr/sup_table_attachee.htm
pour pouvoir supprimer une table liée.
En fait, j'aimerais supprimer la table "source", pas la table liée.
J'utilise des requêtes création de table dans une base frontale pour créer
des tables dans une base dorsale mais j'ai le message d'erreur "Table déjà
existantes".
Quelqu'un connait un moyen de permettre la suppression de la table source
?
Public Function DeleteObjectExterne(strDb$, intType%, strObject$) '** intType : 0 pour table, 1 pour requête, 2 pour formulaire '** 3 pour état, 4 pour macro et 5 pour module
Dim acApp As Object Set acApp = CreateObject("Access.Application")
With acApp .OpenCurrentDatabase strDb .DoCmd.DeleteObject intType, strObject .CloseCurrentDatabase End With acApp.Quit: Set acApp = Nothing End Function
-- @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Yann" <mail> a écrit dans le message news: 419a098f$0$14005$
Bonjour tout le monde,
J'ai fait un tour sur la page : http://access.vba.free.fr/sup_table_attachee.htm
pour pouvoir supprimer une table liée.
En fait, j'aimerais supprimer la table "source", pas la table liée.
J'utilise des requêtes création de table dans une base frontale pour créer des tables dans une base dorsale mais j'ai le message d'erreur "Table déjà existantes".
Quelqu'un connait un moyen de permettre la suppression de la table source ?
Merci d'avance.
Yann
Raymond [mvp]
Bonjour.
tu ne peux pas supprimer une table qui n'est pas dans ta base, par la voie normale. Il faut que tu passes par automation access/access: Dim acApp As Access.Application Set acApp = New Access.Application With acApp .Visible = True ' Code pour automatiser Access ici. .Quit End With Set acApp = Nothing
bien entendu, il faut supprimer d'abord ta table attachée car elle va se trouver orpheline et access n'aime pas ça du toutt.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Yann" <mail> a écrit dans le message de news: 419a098f$0$14005$
Bonjour tout le monde,
J'ai fait un tour sur la page : http://access.vba.free.fr/sup_table_attachee.htm
pour pouvoir supprimer une table liée.
En fait, j'aimerais supprimer la table "source", pas la table liée.
J'utilise des requêtes création de table dans une base frontale pour créer des tables dans une base dorsale mais j'ai le message d'erreur "Table déjà existantes".
Quelqu'un connait un moyen de permettre la suppression de la table source ?
Merci d'avance.
Yann
Bonjour.
tu ne peux pas supprimer une table qui n'est pas dans ta base, par la voie
normale. Il faut que tu passes par automation access/access:
Dim acApp As Access.Application
Set acApp = New Access.Application
With acApp
.Visible = True
' Code pour automatiser Access ici.
.Quit
End With
Set acApp = Nothing
bien entendu, il faut supprimer d'abord ta table attachée car elle va se
trouver orpheline et access n'aime pas ça du toutt.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Yann" <mail> a écrit dans le message de news:
419a098f$0$14005$8fcfb975@news.wanadoo.fr...
Bonjour tout le monde,
J'ai fait un tour sur la page :
http://access.vba.free.fr/sup_table_attachee.htm
pour pouvoir supprimer une table liée.
En fait, j'aimerais supprimer la table "source", pas la table liée.
J'utilise des requêtes création de table dans une base frontale pour créer
des tables dans une base dorsale mais j'ai le message d'erreur "Table déjà
existantes".
Quelqu'un connait un moyen de permettre la suppression de la table source
?
tu ne peux pas supprimer une table qui n'est pas dans ta base, par la voie normale. Il faut que tu passes par automation access/access: Dim acApp As Access.Application Set acApp = New Access.Application With acApp .Visible = True ' Code pour automatiser Access ici. .Quit End With Set acApp = Nothing
bien entendu, il faut supprimer d'abord ta table attachée car elle va se trouver orpheline et access n'aime pas ça du toutt.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Yann" <mail> a écrit dans le message de news: 419a098f$0$14005$
Bonjour tout le monde,
J'ai fait un tour sur la page : http://access.vba.free.fr/sup_table_attachee.htm
pour pouvoir supprimer une table liée.
En fait, j'aimerais supprimer la table "source", pas la table liée.
J'utilise des requêtes création de table dans une base frontale pour créer des tables dans une base dorsale mais j'ai le message d'erreur "Table déjà existantes".
Quelqu'un connait un moyen de permettre la suppression de la table source ?
