Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Löschen von Datenbankobjekten einer anderen Datenbank

217 views
Skip to first unread message

Ralf Meis

unread,
Dec 23, 2000, 11:46:12 AM12/23/00
to
Hi Freunde der VBA-Welten...

mit
docmd.deleteobject blahblahblah
kann man ja Objekte aus der aktuellen Datenbank löschen.

Wie aber lösche ich mit VBA Objekte aus einer anderen Datenbank?

Danke für jeden Tip

Schöne Feiertage wünscht Ralf aus Wuppertal

Elmar Boye

unread,
Dec 23, 2000, 2:01:18 PM12/23/00
to
Hallo Ralf,

"Ralf Meis" <ra.m...@wtal.de> schrieb ...


> Hi Freunde der VBA-Welten...
>
> mit
> docmd.deleteobject blahblahblah
> kann man ja Objekte aus der aktuellen Datenbank löschen.
>
> Wie aber lösche ich mit VBA Objekte aus einer anderen Datenbank?
>

hängt davon ab, was Du löschen willst.
Für Tabellen und Abfragen also Jet-Objekte kann man die gewöhnlichen
DAO-Methoden verwenden:
Set dbs = DBEngine(0).OpenDatabase("C:\Deine.MDB")
dbs.Tabledefs.Delete "DieTabelle"
' bzw. für Abfragen
dbs.QueryDefs.Delete "DieTabelle"

Bei anderen Access-Objekten wäre ein Zugriff über Automation
erforderlich:
Dim AccessApp As Access.Application

Set AccessApp = CreateObject("Access.Application")
With AccessApp
.OpenCurrentDatabase ("C:\Deine.MDB")
' Hier wie gewohnt "blahblahblah"
.DoCmd.DeleteObject acForm, "Formular1"
.CloseCurrentDatabase
.Quit
End With
Set AccessApp = Nothing

Gruss
Elmar


Ralf Meis

unread,
Dec 23, 2000, 3:05:43 PM12/23/00
to
Hi Elmar,

danke für Deinen Tip mit der Automation.
Das war genau das, was ich suchte.
Gruss Ralf


Elmar Boye <eb...@my-deja.com> schrieb in im Newsbeitrag:
922ths$5sgep$3...@ID-28695.news.dfncis.de...

0 new messages