Office: Tabellenverknüpfung aktualisieren

In der Beschreibung steht, dass der Code zuerst im aktuellen Verzeichnis nach der(n) Tabelle(n) sucht und die verknüpft. Falls er dort nicht fündig wird, wird ein Suchfenster geöffnet.

Weiter steht drin.

Hilft das? Ich kenne mich nicht mit VBA aus.

 

Hallo Norbert

vielen Dank für Deinen Beitrag. Es ist jetzt leider zu spät. Ich werde mir den Link am Sonntag ansehen.

 

Was meinst Du genau damit?

Für externe Dokumente kann es sich anbieten, dass man nicht jeweils komplette Pfade im Stück speichert, sondern auf das Dokument bezogen nur den Teilpfad im Ablageordner und den Dateinamen.
Die Ergänzung "nach vorne" (zentraler Ablageordner) würde man zentral und einmalig speichern (und damit auch einfach ändern können) oder aber relativ zum Anwendungsverzeichnis ablegen und dann über dieses berechnet bereitstellen.

 

Hallo Uli,

vergiß bitte den ersten Link! Wie ich beim Testen feststellen musste, muss für die dort empfohlene Funktion beim Aufruf innerhalb eines neuen Pfades auch der alte Pfad noch verfügbar sein; sonst kommt es zu einer Fehlermeldung und der Reconnect findet nicht statt.
Doch manchmal hat man eben keinen Zugriff mehr auf den alten Pfad; also: Unbrauchbar!

Aber ich habe eine schicke und einfache Funktion gefunden: Reconnect von Peter Vukovic

Einfach den Code als Modul speichern und im Startereignis des ersten Formulars
Code:

verwenden.

@Eberhard

Auch dieses Thema habe ich jetzt im Griff: Den statischen Link zur Bilddatei aus dem Bildelement löschen und auf ein unsichtbares Textfeld mit dem Pfad / Bildnamen zugreifen (beim Formatieren eines Berichtes oder beim Öffnen eines Formulars); z.B. so:
Code:

 

Hallo Norbert,

den Code habe ich in ein neues Modul kopiert und unter Reconnect gespeichert. Beim Versuch ihn im Direktbereich mit call reconnect zu starten, kommt die Fehlermeldung:

Wenn ich auf [ > Sub/Userform ausführen] klicke, öffnet sich das Auswahlmenü mit den Funktionen aber die Funktion Reconnect ist nicht aufgelistet.

 

Hallo Uli,

eine Funktion darf nicht den selben Namen haben wie das Modul!

Benenne das Modul beispielsweise in modReconnectTable um, dann sollte es klappen.

 

Servus,
wie wäre es, wenn es möglich wäre, über einen Filedialog das Backend neu einzubinden und sogar eine per Access passwortgeschützte BE dabei zu berücksichtigen?
Leider kann ich meine Beispiele hier nicht hochladen, weil sie ca. 500kbyte gross sind und damit das Limit überschreiten.
Wer will, kann aber auch per PN sich melden und mir eine emailadresse geben.

Der Code im FE-Startformular sieht so aus:
Code:

 

Hallo Ohrkester,

klingt gut, ist aber eher was für versierte Anwender. Ich war auf der Suche nach einem Tool, das diesen Job "dezent" im Hintergrund verrichtet.

Hallo Uli,

nochmals sorry: Ich habe wohl gestern den Wald vor lauter Bäumen nicht gesehen - bzw. nicht richtig getestet...

Obwohl schlank und diskret, erfüllte dieser Code nicht meine Anforderungen:
Die Tabellen der Backends zu reconnecten, auch (oder gerade) wenn das Ursprungsverzeichnis nicht mehr vorhanden, umbenannt oder nicht verfügbar ist, weil man z.B. keinen Zugriff mehr auf einen Server hat.

Jetzt habe ich aber endlich einen Code gefunden, der genau das macht und ihn diesmal auch entsprechend und ausgiebig getestet.

Hier der Link zum Code: dbwiki.net - VBA Tipp: Neuverknüpfen des Backends
Den Code habe ich als neues Modul mit dem Namen basReconnectTables in meine Anwendung aufgenommen.
Den Präfix bas verwende ich für Module, die grundlegende Funktionen ausführen.
Nachdem das Modul nun in meiner Datenbank vorhanden war, versuchte ich es zunächst mit dem Aufruf
Code:

als Ereignis beim Öffnen von meinem Startformular was aber leider nicht funktionierte, da strPath nicht aufgelöst werden könnte.

Also legte ich ein Makro mit dem Namen autoexec an, dessen einzige Zeile so aussieht:
Aktion: AusführenCode
Kommentar: Stellt die Verbindung zu den Backends her
und unten im Feld
Funktionsname: Code:

So funktioniert das Ganze jetzt bei mir zuverlässig.

Vielleicht hilft's Dir ja auch...

 

Hallo NorbertK,
Deine Version macht das Gleiche wie meine Version, hat aber 2 Nachteile.
1.

Das neue Verzeichnis musst Du manuell finden und eingeben.
Bei mir hilft ein komfortabler Filedialog.

2. Deine Version versagt, wenn jemand dem BE ein Access Passwort mitgegeben hat.

Ich habs mal auf meinen Server zum download bereitgestellt.
Die DB startet mit dem Makro 'autoexec', in welchem das Formular 'Start_mit_Link_FE_BE' unsichtbar geladen wird.
In diesem Formular ist der ganze Verlinkungscode und dort gibt es 2 Zeilen, in welchen das gewünschte erste sichtbare
Formular aufgerufen wird. Dort muss man sein gewünschtes Formular statt des Formulars 'frmAdressen' eintragen.
Fertig ist die Laube. Probiers mal aus.
PW des BE = "ohrkester"
http://www.arbtersound.de/sonderseit...ne_6_FE_BE.rar

 

Hallo Ohrkester,

schaue ich mir gerne an, obwohl ich (zumindest derzeit) keine passwortgeschützten Datenbanken habe.

Dein erster Kontrapunkt ist obsolet, denn mein Aufruf im Autoexec-Makro gibt ja den Pfad automatisch vor...

 

Hallo NorbertK,
lösche doch einfach mal ein BE, auf welches Dein FE verbunden ist.
Starte das FE dann neu.
Welche Möglichkeiten gibts dann bei Dir, das BE zu finden, ohne in den VBA-Code gehen zu müssen, oder einen Pfad manuell eingeben zu müssen?
Ich mags auch am liebsten einfach, aber mit Deiner Version sehe ich es eher komplizierter.

 

Hallo,
ich grabe das Thema nochmals aus..

Bei dem Code
über einen Filedialog das Backend neu einzubinden von Ohrkester vom 5.9.15

Bekomme ich folgende Fehlermeldung:

Fehler beim Kompilieren
Unzulässige Verwendung des Schlüsselwortes New

Markiert ist die Zeile
Dim FD As New Filedialog

Der Verweis auf Microsoft Office 11.0 Object Library ist gesetzt


Vielen Dank für Hilfe und Tipps

Gruß

 

Hallo,

hat sich erledigt ich habe es gefunden *Smilie

Für alle die das selbe Problem haben
Die Funktion benötigt nicht nur den Verweis auf die Microsoft Office xx Object Library , sondern auch ein Modul namens FileDialog von (www.Kpries.de)


Gruß

 

Echt? Das wäre dann doppelt gemoppelt.

 

Hallo Eberhard,

der Code lief erst ohne obige Fehlermeldung nachdem das Modul integriert war.
Als VBA Anfänger lerne ich natürlich gerne dazu, wenn du oder ein anderer einen Tip / Info hat wie es ohne geht, teste ich das gerne *Smilie