Office: (Office 2007) Tabellen verknüpfen mit DAO

Hallo,

ich erstelle gerade mein erstes DB-System mit FE & BE. Derzeit hänge ich an einem Problem fest, dass ich den Pfad der verknüpften Tabellen ändern will. Leider klappt das nicht so, wie ich mir das vorstellle.

Hier ist erstmal der Code:
Code:

Wenn ich jetzt die Funktion ausführe, dann macht der erstmal die schleife solange durch, bis er bei den normalen Tabellen angekommen ist. Bei der Zeile mit dem RefreshLink kommt dann folgender Fehler:

Mir ist nochwas aufgefallen, und zwar besitzt das Objekt td die Eigenschaft updateable und diese ist auf dem Wert 'Falsch' gesetzt. Ich weiß nicht, genau wofür dieses updateable steht, aber reine weg von der Logik her würde ich sagen, dass der deshalb den Fehler bringt, weil das verändern gar nicht erlaubt ist.

Ich hoffe ihr seid erfahrener und könnt mir weiterhelfen, wie ich das ganze zum laufen bekomme und wo ich evtl. Fehler reingemacht habe.


mfg reeky

:)

 

Wenn man wüßte, was zur Laufzeit konkret in sNewPath drinsteht ...

 

Hallo
Versuche doch einmal von Hans-Christian
Auto Link
evtl. ist das was für Dich
suche im Forum nach AutoLink
z.B. hier:
http://www.ms-office-forum.net/forum...7&postcount=46

oder evtl. hilft Dir auch
donkarls Access-Seiten

evtl. kannst Du auch Die Frage von Hans-Christian Beantworten
in dem Du vor
For Each tdf In db.TableDefs
einen
Debug.Print sNewPath
machst
dann siehst Du im DirektFenster vom VBA Editor was Drin ist.

 

Hallo.

IMHO berücksichtigt Dein Code nicht, dass es auch Tabellen geben kann, die nicht verknüpft sind. Ich schätze, dass darin die Ursache für den Fehler zu suchen ist.

Du solltest vor der Anpassung der Verknüpfungseigenschaften prüfen, ob es sich überhaupt um eine verknüpfte Tabelle handelt. Das kannst Du mit folgender Zeile erledigen:
Code:

Mit dieser Zeile entfällt dan auch die Prüfung, ob es sich um eine Systemtabelle handelt:
Code:

BTW: Warum verwendest Du eigentlich zwei TableDef-Variablen? Eigentlich sollte eine ausreichend sein.

HTH

 

Hallo,

ok ich hab jetzt die Zeile ausgetauscht und das mit den 2 Tabledef objekten war nur ein kleiner denkfehler von mir.

Aber leider erscheint die Fehlermeldung immer noch.

Der Pfad ist korrekt, er führt genau zu der BE-DB und diesen wähle ich vorher über den DateiÖffnen-Dialog aus.

@Lanz Rudolf:

Das von Don Karl hab ich mir mit angeschaut und auch soweit verstanden.
Das mit dem Autolink ist ganz gut, aber leider ist das wieder ganz anders gemacht. Und ich hab jetzt noch ne ganze menge an Code der mit da dran hängt und ich möchte erhlich gesagt, jetzt nicht den ganzen code von dem Autolink auf meine bedürfnisse anpassen. Nicht zuletzt, weil ich nicht ganz mit dem Code von dem Autolink klar komme, mit welcher methode dort die verknüpfung geändert wird.


An irgendwas muss doch der Fehler liegen.
Kann es irgendwie an der BE-DB liegen, das dort was falsch ist?

Noch ein kleiner Zusatz:
Die Namen der Tabellen im FE & BE sind identisch bei mir.

Habt ihr vielleicht noch eine Idee?


mfg reeky

 

Was kann man sich unter normalen Tabellen vorstellen - und was unter unnormalen Tabellen, mit denen Du ja bestens zurechtkommst?

 

Hallo
reicht den der Pfad ?
Brauchst nich Pfad\BEDatei.Mdx (x für D oder E)
oder ist es so in Deinem sNewPath ?
deshalb zeige es uns so wissen wir das auch *wink.gif*

aber im FE sind sie schon Verknüpft ? oder ?

von Hand (über Extra/Dienstprogramme/tabellenverknüpfungsManager) kannst Du NEU verknüpfen ?


noch was
AutoLink ist das Beste von mir aus gesehen *Smilie
den Aufwand um das einzubauen würde ich auf mich nehmen *wink.gif*

Wie hast Du die Aufteilun von FE/BE gemacht ?

 

Mit normalen meine ich nicht verknüpfte, also lokale Tabellen.


@Lanz Rudolf:

Ja, im FE habe ich die Tabellen vorher alle über den Assistenten verknüpft.

Was meinst du genau mit aufgeteilt? Ich habe im FE alle Formulare, Berichte und den VBA-Code und im BE befinden sich nur die Tabellen mit den Daten. Außerdem habe ich im FE keine lokale Tabellen, außer die Systemtabellen.

 

Die verknüpften Tabellen werden komplett gelöscht und neu mit denen aus dem ausgewählten BackEnd verbunden.

 

Jop, bis dahin hab ich das auch schon verstanden, aber warum funktioniert das bei mir mit dem DAO und refreshlink nicht?

Das muss doch irgendeinen Grund haben oder funktioniert diese Methode generell nicht (aber warum habe ich sie dann in einem buch gefunden) ?


mfg Reeky

 

Ich gestehe, dass ich mich mit der Methode .refreshlink überhaupt nicht beschäftigt habe, sondern bei der Entwicklung meiner AutoLink Prozedur von vorneherein den dort erkennbaren Weg gegangen bin.

 

Hallo
Sorry wollte hier

schreiben
Brauchst DU nicht Pfad\BEDatei.Mdx (x für D oder E)
resp. Brauchst DU nicht Pfad\BEDatei.ACCDx ACCDB/ACCDE


Hast Du einmal in der OH (Online Hilfe) über refreshlink gelesen ?

 

Ja, hab ich, aber ich hab gerade nochmal genau nachgesehen und so ich feststellen musste, ist das refreshlink so gemeint:

1. Aufbauen einer Verbindung
2. Ändern von Daten in der Verbindung
3. refreshLink zum erhalten der Aktuellen daten aus der Verbindung

Also wenn das so hinhaut, dann passt das ja wirklich nicht für die Sache, den ich erreichen möchte.
Ist das refreshlink so gemeint oder hab ich jetzt nochwas durcheinander gehauen?


Ich hab mich jetzt doch dazu entschlossen, das Beispiel der Autolink-DB zu verwenden. Ich hab dazu in meinem aktuellen FE einfach die Tabelle eingefügt und das Modul 'Dienstprogramme'.
Dann hab ich einfach mal die Funktion init schritt für schitt ausgeführt, aber dann ist ein Fehler aufgetreten und zwar bei der Zeile:
Code:

Ich erhalte folgende Fehlermeldung:

Woran kann das liegen?


mfg reeky

 

Hallo
schau einmal Hier gibts noch was von Marsu
http://ms-office-forum.net/forum/sho...d.php?t=250092

doch ich finde Autolink Eifacher/Besser

 

Hallo
erst jetzt gesehen:

hast Du sie evtl. noch geöffnet

Schliesse einmal die accDb
und öffne sie wider und nue versuchen

Die Tabelle Sys ist Local in der FE ACCDB