Office: (Office 2016) In eine andere Datenbank zugreifen

Hallo,
ich wollte in einer Verknüpften Tabelle aus einer anderen Datenbank einige Spalten löschen, jedoch habe ich kein Zugriff auf die Entwurfsansicht einer verknüpften Tabelle.
Deshalb wollte ich das mit VBA lösen in dem ich in die Datenbank zugreife und dort das einige Spalten an der Tabelle lösche. Dazu habe ich folgendes hier gefunden :

Dim AccessApp As Access.Application

Set AccessApp = CreateObject("Access.Application")
With AccessApp
.OpenCurrentDatabase ("./andereDatenbank.accdb")
.CloseCurrentDatabase
.Quit
End With
Set AccessApp = Nothing

wenn ich das im debugger laufen lasse kommt an der stelle

.OpenCurrentDatabase ("./andereDatenbank.accdb")

eine Fehlermeldung, das die Datei nicht existiert. Dazu noch zu wissen die andere Datenbank befindet sich im selben Ordner.


Ach ich hab es auch mit Folgendem Code versucht,

Dim db As Database

Set db = OpenDatabase("./andereDatenbank.accdb.accdb")
da kommt dann auch ähnliche meldung, das die angegebene datei nicht gefunden wurde.

:)

 

Warum öffnest du die Datei dann nicht einfach direkt?
Dann hast du ja Zugriff auf den Entwufsmodus.

 

Ich wollte per Button klick einige spalten löschen, und dieser Button ist in einer anderen Datenbank von der ich auf mehrere Datenbank Tabellen zugreifen möchte. Man soll nicht immer extra die andere Datenbanken öffnen müssen um die spalten zu löschen.

 

also wenn ich eine andere datenbank teste kommt keine fehlermeldung.
Der code ist genau das selbe.

Dim AccessApp As Access.Application

Set AccessApp = CreateObject("Access.Application")
With AccessApp
.OpenCurrentDatabase ("./Test.accdb")
.CloseCurrentDatabase
.Quit
End With
Set AccessApp = Nothing

 

Die Datenbank in dem ich den VBA Code ausführe war vorher in einem anderen Ordner, ich hatte ihn danach verschoben. Kann es sein das er noch sein alte order als relativen pfad kennt ??? weil das Text.accdb in dem anderen order war.

 

Hallo,

warum man jetzt so einen Umweg macht und überhaupt in einer Tabelle Felder zur Laufzeit löschen möchte, erschließt sich mir nicht. Ich würde mal sagen, da stimmt etwas Grundsätzliches nicht.

Die Fehlermeldung ist jedoch eindeutig und die Datei existiert nicht an der angegebenen Stelle, also bezogen auf das aktuelle Verzeichnis. Das muß übrigens nicht immer das Verzeichnis sein, in dem sich die aktuelle DB selber befindet. Auch wird das aktuelle Verzeichnis mit ".\Dateiname" adressiert. Vielleicht probierst du mal eine absolute Pfadangabe.

Ulrich

 

Hallo Ulrich,
naja ich bin gerade dabei VBA zu erlernen. Ich wollte nun so eine kleine Bequemlichkeit einbauen, sodass man nicht immer andere datenbanken aufmachen muss und einfach von einer datenbank die andern verwalten kann.

nun ich hab den pfad namen so eingegeben wie du, nur hier konnte ich es nicht eingeben, denn das zeichen war immer weg bei COPY und Paste. aber ich hab es genau so eingegeben wie du.

Das komische ist, das die Test datenbank funktioniert obwohl sie nicht im aktuellen ordner von meiner zentralen datenbank ist, sondern in dem ursprünglichen ordner wo die zentrale datenbank war.

 

Hallo,

das man das machen kann, ist klar.Die Frage war aber, warum sollte man so etwas machen wollen?
Hier mal ein Stück Code, wie du an die Felder eine anderen DB kommst:
Code:

Wenn du dann noch eine Zeile wie
"msgbox curdir"
einfügst, kannst du dir noch ausgeben lassen, was gerade das aktuelle Verzeichnis ist.

Gruß Ulrich

PS: Die Forensoftware verschluckt die Backslashes. Ich ersetzte diese immer durch die Zeichfolge
\
Dann klappt das auch unabhängig von der Vorschau.

 

Hallo, also ich hab das jetzt hingekriegt mit dem richtigen ordner.

Nun mein hauptproblem, wie kann ich an der datenbank was ich geöffnet habe agieren sprich an einer tabelle eine spalte löschen ????

 

Danke dir Ulrich,
ich versuch das mal jetzt mit deinem Code.

 

Hallo,

so ein Fields Objekt hat bestimmte Methoden *wink.gif*
https://docs.microsoft.com/de-de/off...collection-dao

Ulrich

 

Danke für den Link, wollte dich gerade nach einer übersicht fragen was man nun damit machen kann, aber ich finde die beispiele da nicht sehr hilfreich.
kann ich nun an der geöffneten datenbank nicht einfache SQL befehle abgeben und damit spalten löschen oder einfügen. denn mit den methoden habe ich es nicht hingekriegt.

 

okay habs gefunden, das ist ja einfach execute.
aber ich gucke mir mal die methoden von fields an. vielleicht gibts da elegantere lösungen.

was genau ist sind denn TableDefs von einer datenbank.
ich habe es auf der microsoft seite nicht verstanden.

 

SQL DROP COLUMN Keyword

Das ist aber etwas gänzlich anderes wie oben der Wunsch, einen externen Button ferngesteuert zu klicken.

 

Danke Eberhard, aber ich wollte da nur wissen wie ich diese sql befehle an der neu eröffneten datenbank abfeuere. aber dann hab ich es gefunden, einfach mit dbs.execute "sql befehl".