<\/p>\n
Wenn Sie Dateien im .csv-Format in Ihre Datenbank eingebunden haben, kommt es gelegentlich vor, dass diese verschoben, umbenannt oder gelöscht werden. Dieser Beitrag zeigt nicht nur, wie Sie .csv-Dateien per VBA einbinden können, sondern auch, wie Sie erkennen, ob die Dateien noch an Ort und Stelle sind und diese gegebenenfalls mithilfe des Benutzers wieder einbinden.<\/b><\/p>\n
Als Beispiel-Datei zum Verknüpfen verwenden wir einfach eine im .csv<\/b>-Format exportierte Tabelle der Südsturm-Datenbank, in diesem Fall tblArtikel<\/b>. Dazu nutzen wir den Export-Assistenten, den Sie über den Ribbon-Eintrag Externe Daten|Exportieren|Textdatei <\/b>aufrufen. Hier stellen Sie beispielsweise ein, dass die Datei mit Spaltenüberschriften gespeichert werden soll. Außerdem öffnen Sie mit einem Klick auf die Schaltfläche Erweitert… <\/b>den Dialog mit den Exportspezifikationen.<\/p>\n
Speichern Sie diese per Mausklick auf die Schaltfläche Speichern unter… <\/b>und geben Sie im Dialog Import\/Export-Spezifikation speichern <\/b>den Namen tblArtikel_CSV <\/b>ein (s. Bild 1).<\/p>\n
![\"Export](\"..\/fileadmin\/_temp_\/2016_02\/pic_1025_001.png\")
<\/p>\n
Bild 1: Export der Beispieltabelle, die später verknüpft werden soll<\/span><\/b><\/p>\n Nun wollen wir eine Verknüpfung zu der soeben in eine CSV-Datei exportierten Tabelle mit dem dafür vorgesehenen Assistenten erstellen (Ribbon-Eintrag Externe Daten|Importieren und Verknüpfen|Textdatei<\/b>). Egal, ob wir dies mit Access 2013 oder 2016 erledigen wollten: Es gab immer eine Fehlermeldung wie die aus Bild 2.<\/p>\n Bild 2: Fehlermeldung beim Versuch, eine Verknüpfung zu erstellen<\/span><\/b><\/p>\n Diese erscheint auch unabhängig davon, ob wir beim Verknüpfen die Textdateispezifikation auswählen oder nicht. In beiden Fällen legte Access jedoch die Verknüpfung in der Liste der Tabellen an (s. Bild 3).<\/p>\n Bild 3: Access erstellt die Verknüpfungen trotz Fehlermeldung.<\/span><\/b><\/p>\n Wenn Sie keine Textdateispezifikation auswählen, liefert Access jedoch noch zusätzlich die Fehlermeldung aus Bild 4. Anscheinend sucht Access hier nach der Textdateispezifikation, deren Name standardmäßig beim Anlegen einer solchen vorgeschlagen wird – diese ist aber nicht in der Datenbank gespeichert (die Textdateispezfikationen finden Sie übrigens in den Systemtabellen MSysIMEXSpecs <\/b>und MSysIMEXColumns<\/b>).<\/p>\n Bild 4: Fehlermeldung wegen einer fehlenden Textdateispezifikation<\/span><\/b><\/p>\n In einer weiteren Systemtabelle namens MSysObjects <\/b>entdecken wir, dass auch beim Verknüpfen ohne Textdateispezifikation eine solche angegeben wird – in diesem Fall als Wert der Eigenschaft DSN <\/b>mit dem Wert TblArtikel Verknüpfungsspezifikation <\/b>(s. Bild 5).<\/p>\n Bild 5: Die Importspezifikation wird in der Systemtabelle MSysObjects als Teil der Connect-Zeichenfolge angegeben.<\/span><\/b><\/p>\n Es scheint sich hier also um einen Fehler des Import-Assistenten zu handeln. Das ist aber kein Problem, denn wir streben ja in diesem Beitrag ohnehin eine VBA-gesteuerte Methode zum Verknüpfen der CSV-Dateien an.<\/p>\n Wenn Sie nun einmal die CSV-Datei verschieben und die darauf basierende Verknüpfung öffnen möchten, findet Access die angegebene Datei natürlich nicht mehr und gibt eine entsprechende Fehlermeldung aus. Es gibt auch keine einfache Möglichkeit, den Speicherort der verknüpften Datei an die veränderten Gegebenheiten anzupassen – Sie müssen die Verknüpfung erneuern.<\/p>\n Dazu können Sie diese entweder löschen und komplett neu erstellen oder Sie nutzen den Tabellenverknüpfungs-Manager<\/b>. Diesen öffnen Sie über den Ribbon-Eintrag Externe Daten|Importieren und Verknüpfen|Verknüpfungs-Manager<\/b>. Hier wählen Sie die zu aktualisierende Verknüpfung aus (s. Bild 6).<\/p>\n Bild 6: Der Tabellenverknüpfungs-Manager<\/span><\/b><\/p>\n Nach einem Klick auf die Schaltfläche OK <\/b>bietet Access mit einem Datei auswählen<\/b>-Dialog die Möglichkeit, die Quelldatei der Verknüpfung erneut auszuwählen (s. Bild 7). Nach einer Erfolgsmeldung können Sie nun wieder auf die aktualisierte Verknüpfung zugreifen.<\/p>\n Bild 7: Auswahl des neuen Speicherorts der Quelldatei einer Verknüpfung<\/span><\/b><\/p>\n Dies funktioniert übrigens nur, wenn sich der Speicherort der Datei geändert hat. Sollten Sie den Dateinamen oder die Dateiendung angepasst haben, können Sie mit der bereits angelegten Verknüpfung nicht mehr auf diese Datei zugreifen – der Dateiname ist fest verankert, lediglich der Pfad ist änderbar.<\/p>\n übrigens: Die Option Immer zur Eingabe eines neuen Speicherort auffordern <\/b>im Tabellenverknüpfungs-Manager <\/b>ist etwas ungeschickt benannt: Man könnte meinen, dass bei folgenden Problemen, die durch das Fehlen der Datei am angegebenen Ort auftreten, direkt ein Datei auswählen<\/b>-Dialog erscheint.<\/p>\n Das ist aber nicht so: Die Option ist vielmehr so gemeint, dass Sie, wenn Sie mehr als eine Verknüpfung aktualisieren wollen, für jede einzelne den Speicherort angeben müssen.<\/p>\n Wie auch immer: Sie möchten die Verknüpfung, wenn Sie beispielsweise abwechselnd an Ihrem Arbeitsplatz oder am heimischen Rechner eine Anwendung entwickeln, nicht immer manuell aktualisieren. Das Gleiche gilt natürlich für den Kunden, der meist originelle Ideen hat, um den Speicherort der verknüpften Dateien zu variieren.<\/p>\n Außerdem wollen wir so flexibel sein, auch einmal eine Datei mit einer anderen Bezeichnung als beim erstmaligen Erstellen der Verknüpfung angegeben zu verwenden. Also prüfen wir nun die Möglichkeiten, die Verknüpfung möglichst automatisch zu aktualisieren.<\/p>\n Nun schauen wir uns an, wie wir die Verknüpfung per VBA herstellen und ob auch hier die Probleme mit der Textdateispezifikation auftreten. Dazu nutzen wir den VBA-Befehl DoCmd.TransferText<\/b>.<\/p>\n Der erste Aufruf sieht wie folgt aus:<\/p>\n Die Parameter haben dabei die folgenden Bedeutung:<\/p>\n Das Ergebnis in der Tabelle MSysObjects <\/b>sieht zunächst gut aus: Hier finden wir nun keine Angabe einer Textdateispezifikation mehr unter dem Wert DSN <\/b>des Feldes Connect <\/b>vor:<\/p>\n Dummerweise wirkt sich dies negativ auf die Erstellung der Verknüpfung aus. Wenn Sie den neuen Eintrag tblArtikel_CSV_VBA <\/b>per Doppelklick öffnen, erscheint zwar keine Fehlermeldung, aber die angezeigte Tabelle liefert nur die erste Spalte mit den Werten des Feldes ArtikelID<\/b> (s. Bild 8) – und diese auch noch jeweils mit abschließendem Semikolon.<\/p>\n Bild 8: Das Ergebnis eines Imports ohne Textdateispezifikation<\/span><\/b><\/p>\n Es sieht also so aus, als ob wir doch eine Textdateispezifikation angeben müssen. Da die Methode TransferText <\/b>aber einen Parameter zur übergabe des Namens einer solchen anbietet, probieren wir dies gleich einmal aus:<\/p>\n Diese Variante gelingt auf Anhieb – die Verknüpfung landet unter dem Namen tblArtikel_CSV_VBA_MitSpezifikation <\/b>im Navigationsbereich der Datenbank. Wir können die Arbeit, die wir vorher manuell durch Durchlaufen des Assistenten erledigt haben, auch per VBA ausführen. Mit einem Unterschied: Die Textdateispezifikation müssen wir zunächst einmal mit dem Assistenten erstellen.<\/p>\n Was geschieht nun mit der Verknüpfung, wenn wir diese erneut mit dem gleichen VBA-Befehl anlegen In diesem Fall erstellt die Methode die gleiche Verknüpfung nochmals, aber behält die bereits vorhandene Verknüpfung bei. Dazu ändert sie die Bezeichnung des neuen Exemplars, indem sie hinten eine laufende Nummer anhängt (also etwa tblArtikel_CSV_VBA_MitSpezifikation1<\/b>).<\/p>\n Wenn wir die Verknüpfung aktualisieren wollen, weil diese nicht mehr aktuell ist, sollten wir also die bestehende Verknüpfung zuvor löschen, damit die neue wieder mit dem gewünschten Namen angelegt wird.<\/p>\n Dazu sollten wir zunächst prüfen, ob die Verknüpfung noch funktioniert. Dies gelingt per VBA, indem wir ein Recordset auf Basis dieser Verknüpfung erstellen. Sollte die zugrunde liegende Datei nicht mehr vorhanden sein, löst dies einen Fehler aus. In diesem Fall wollen wir erstens die Verknüpfung löschen und zweitens per Datei auswählen<\/b>-Dialog den neuen Speicherort der Verknüpfung abfragen.<\/p>\n Die Verknüpfung erstellen wir dann wie bereits weiter oben beschrieben neu. In diesem Fall ist es uns dann auch möglich, nicht nur ein anderes Dateiverzeichnis, sondern auch einen anderen Dateinamen anzugeben. Beim Wechseln des Verzeichnisses über den Tabellenverknüpfungs-Manager war das ja nicht möglich.<\/p>\n <\/p>\n Schauen wir uns nun an, wie Sie die Verknüpfung per VBA wiederherstellen können.<\/p>\n Wenn man eine solche Funktion wie die nachfolgend vorgestellte programmieren möchte, testet man normalerweise die verschiedenen Konstellationen. Dabei ist es natürlich mühselig, immer wieder die Konstellation herzustellen und dann die Funktion mit den gewünschten Parametern aufzurufen, um dann die Ergebnisse und Rückgabewerte mit den erwarteten Werten abzugleichen.<\/p>\n Etwas mehr Arbeit zu Beginn, aber wesentlich schnellere Tests erhalten Sie, wenn Sie die Tests automatisieren. Dazu braucht man gar nicht unbedingt ein spezielles Framework, wie es beispielsweise beim Unit-Testing verwendet wird, sondern man kann auch einfach ein paar kleine Prozeduren schreiben, welche die Ausgangssituation herstellen, die Funktionen testen und dann die hervorgerufene Situation und die Rückgabewerte der Funktion testen.<\/p>\n In unserem Fall wollen wir die folgenden Konstellationen testen:<\/p>\n Dazu haben wir zum Beispiel die vier Testfälle aus Listing 1 programmiert. Wann immer Sie etwas am Code ändern, können Sie mit diesen und anderen, auf den änderungen basierenden Testfällen schnell prüfen, ob die Funktionen noch wie gewünscht funktionieren. Wir haben die Testfälle so konfiguriert, dass bei optimalem Ablauf alle Tests den Wert True<\/b> im Direktfenster ausgeben:<\/p>\n Listing 1: Testfälle für die Funktionen der Beispieldatenbank<\/span><\/b><\/p>\n Die Aktualisierung startet mit der Funktion Verknuep-fungAktualisieren<\/b> aus Listing 2, die Sie in einem Standardmodul unterbringen. Die Funktion erwartet zwei Parameter:<\/p>\n Listing 2: Startfunktion zum Aktualisieren einer Verknüpfung mit einer .csv-Datei<\/span><\/b><\/p>\n Die Prozedur ruft zunächst eine weitere Funktion namens VerknuepfungsquelleVorhanden<\/b> auf (s. Listing 3). Diese erwartet den Namen der zu untersuchenden Verknüpfung, wie er auch im dem Navigationsbereich zu finden ist, als Parameter. Sie erstellt ein Database<\/b>-Objekt mit einem Verweis auf die aktuelle Datenbank und dann ein Recordset<\/b>-Objekt, das versucht, auf die Tabelle aus dem Parameter strTabellenname <\/b>zuzugreifen.<\/p>\n Listing 3: Funktion zur Prüfung, ob die Verknüpfungsquelle vorhanden ist<\/span><\/b><\/p>\n Dieser Schritt erfolgt unter Deaktivierung der eingebauten Fehlerbehandlung, sodass beispielsweise das Fehlen des gesuchten TableDef<\/b>-Objekts keinen Laufzeitfehler auslöst. Die Eigenschaft Number des Err<\/b>-Objekts enthält danach, sofern kein Fehler ausgelöst wurde, den Wert 0<\/b>.<\/p>\n Das heißt, dass die Tabellendefinition gefunden werden konnte – die Funktion VerknuepfungsquelleVorhanden <\/b>liefert den Wert True <\/b>zurück. Anderenfalls, zum Beispiel, wenn die Verknüpfung gar nicht vorhanden ist (Fehlernummer 3078<\/b>), liefert die Funktion den Wert False <\/b>zurück.<\/p>\n Sollte die gesuchte Verknüpfung als Tabellendefinition vorliegen, ruft die Funktion VerknuepfungAktualisieren <\/b>eine weitere Funktion namens PfadVerknuepfung-Ermitteln <\/b>auf (s. Listing 4). Diese soll untersuchen, ob die als Datenquelle für die Verknüpfung angegebene Datei überhaupt vorhanden ist. Sie erwartet mit dem Parameter strTabellenname <\/b>lediglich den Namen der zu untersuchenden Tabelle. Sie liest ebenfalls das TableDef<\/b>-Objekt zu dieser Verknüpfung ein und speichert die Referenz in der Variablen tdf<\/b>. Dann ermittelt sie für dieses Objekt den Wert der Variablen Connect<\/b>, der beispielsweise so aussieht, und speichert diesen in der Variablen strConnect<\/b>:<\/p>\n Listing 4: Diese Funktion ermittelt den Namen einer verknüpften Datei.<\/span><\/b><\/p>\n Text;DSN=tblArtikel_CSV;FMT=Delimited;HDR=NO;IMEX=2;ACCDB=YES;DATABASE=C:\\…\\CSVVerknuepfungenPflegen<\/p>\n Beachten Sie, dass der Dateiname der verknüpften Daten hier nicht angegeben wird! Diesen liefert nämlich erst die Eigenschaft SourceTableName<\/b>, wonach er in der Variablen strDateiname <\/b>landet. Das Verzeichnis ist ja im Connect<\/b>-String enthalten, muss aber von dort noch extrahiert werden.<\/p>\n Dies erledigt die Hilfsfunktion ParameterErmitteln <\/b>aus Listing 5. Die Funktion erwartet die Name-Wert-Liste und den Namen des zu ermittelnden Parameters. Sie ermittelt die Position des ersten Auftretens des gesuchten Wertnamens, die in der Variablen intStart <\/b>landet, und, von dort aus gesehen, die Position des ersten Semikolons, das hier als Trennzeichen zwischen den Name-Wert-Paaren genutzt wird.<\/p>\n Listing 5: Diese Funktion ermittelt den Wert eines Parameters einer Name-Wert-Liste.<\/span><\/b><\/p>\n Die Position landet in der Variablen intEnde<\/b>. Gegebenenfalls ist nach dem Namen kein Semikolon mehr zu finden, dann handelt es sich um das letzte Name-Wert-Paar des Ausdrucks. In diesem Fall erhält intEnde <\/b>die Gesamtzahl der Zeichen der Name-Wert-Liste. Den Wert des Name-Wert-Paares ermittelt die Funktion dann mithilfe der Mid<\/b>-Funktion und den Werten aus intStart<\/b>, intEnde <\/b>und der Länge des Namens des Name-Wert-Paares, die in der Variablen intLaengeName <\/b>steckt. Der Name ist auch gleichzeitig der Rückgabewert der Funktion ParameterErmitteln<\/b>.<\/p>\n Die Funktion PfadVerknuepfungErmitteln <\/b>schließlich hat nun alle Informationen zusammen, um den aus strVerzeichnis <\/b>und strDateiname <\/b>bestehenden Pfad als Funktionsergebnis zurückzuliefern.<\/p>\n Damit kehren wir zurück zur ursprünglichen Funktion VerknuepfungAktualisieren<\/b>. Diese ermittelt aus dem Pfad nun noch das Startverzeichnis. Lässt sich hieraus kein gültiges Verzeichnis ermitteln, stellt die Prozedur die Variable strStartverzeichnis<\/b>, das später als Ausgangsverzeichnis bei der Anzeige des Dateiauswahl-Dialogs zum Einsatz kommt, mit CurrentProject.Path <\/b>auf das Verzeichnis der aktuellen Datenbankdatei ein.<\/p>\n Sofern weiter oben die Quelldatei für die Verknüpfung nicht gefunden wurde und die Variable bolVerknuepfungsquelleVorhanden <\/b>dementsprechend noch den Wert False <\/b>aufweist, erscheint eine Meldung, dass die Datei erneut ausgewählt werden muss – dies nur als Vorbereitung des Benutzers auf die nachfolgende Anzeige eines Dateiauswahl-Dialogs. Mit diesem wählt der Benutzer die Quelldatei erneut aus, die dann in der Variablen strPfad <\/b>gespeichert wird. Enthält strPfad<\/b> dann nicht nur einen Wert, sondern auch noch einen, den wir mit der Dir<\/b>-Funktion als gültigen Dateinamen erkennen können, ruft die Funktion eine weitere Funktion namens Verknuep-fungErstellen <\/b>auf.<\/p>\n Diese Funktion (s. Listing 6) erwartet als Parameter den Tabellennamen, den Namen der Spezifikation, den Dateinamen, die Angabe, ob die Verknüpfung bereits vorhanden ist, sowie optional einen Boolean<\/b>-Parameter, der angibt, ob eine gleichnamige bestehende Verknüpfung ohne Rückfrage überschrieben werden soll.<\/p>\n Listing 6: Funktion zum Anlegen einer neuen Verknüpfung<\/span><\/b><\/p>\n Wenn die Verknüpfung bereits vorhanden ist und die Variable bolOhneRueckfrageUeberschreiben <\/b>den Wert ![\"Fehlermeldung](\"..\/fileadmin\/_temp_\/2016_02\/pic_1025_002.png\")
<\/p>\n![\"Access](\"..\/fileadmin\/_temp_\/2016_02\/pic_1025_004.png\")
<\/p>\n![\"Fehlermeldung](\"..\/fileadmin\/_temp_\/2016_02\/pic_1025_003.png\")
<\/p>\n![\"Die](\"..\/fileadmin\/_temp_\/2016_02\/pic_1025_005.png\")
<\/p>\nVerschieben der CSV-Datei<\/h2>\n
![\"Der](\"..\/fileadmin\/_temp_\/2016_02\/pic_1025_007.png\")
<\/p>\n![\"Auswahl](\"..\/fileadmin\/_temp_\/2016_02\/pic_1025_008.png\")
<\/p>\nVerknüpfung per VBA herstellen<\/h2>\n
DoCmd.TransferText acLinkDelim, , \"tblArtikel_CSV_VBA\", CurrentProject.Path & \"\\tblArtikel.csv\", True<\/span><\/pre>\n\n
Text<\/span>;DSN=;FMT=Delimited;HDR=YES;IMEX=2;ACCDB=YES;<\/pre>\n![\"Das](\"..\/fileadmin\/_temp_\/2016_02\/pic_1025_006.png\")
<\/p>\nDoCmd.TransferText acLinkDelim, \"tblArtikel_CSV\", \"tblArtikel_CSV_VBA_MitSpezifikation\", CurrentProject.Path & \"\\tblArtikel.txt\", True<\/span><\/pre>\nVerknüpfung per VBA aktualisieren<\/h2>\n
Testfälle<\/h2>\n
\n
Public Sub <\/span>Testfaelle()\r\n Dim <\/span>strVerknuepfung As String<\/span>\r\n ''*****Test 1: Verknüpfung fehlt\r\n strVerknuepfung = \"tblArtikel_Test1\"\r\n On Error Resume Next<\/span>\r\n CurrentDb.Execute \"DROP TABLE \" & strVerknuepfung\r\n On Error GoTo<\/span> 0\r\n Debug.Print<\/span> \"Test 1.1: \" & (VerknuepfungAktualisieren(strVerknuepfung, \"tblArtikel_CSV\") = True<\/span>)\r\n Debug.Print<\/span> \"Test 1.2: \" & VerknuepfungVorhanden(strVerknuepfung)\r\n ''*****Test 2: .csv-Datei fehlt\r\n FileCopy CurrentProject.Path & \"\\tblArtikel.txt\", CurrentProject.Path & \"\\tblArtikel_Test2.txt\"\r\n strVerknuepfung = \"tblArtikel_Test2\"\r\n On Error Resume Next<\/span>\r\n CurrentDb.Execute \"DROP TABLE \" & strVerknuepfung\r\n On Error GoTo<\/span> 0\r\n VerknuepfungErstellen strVerknuepfung, \"tblArtikel_CSV\", CurrentProject.Path & \"\\tblArtikel_Test2.txt\", True<\/span>\r\n Kill CurrentProject.Path & \"\\tblArtikel_Test2.txt\"\r\n Debug.Print<\/span> \"Test 2.1: \" & (VerknuepfungAktualisieren(strVerknuepfung, \"tblArtikel_CSV\") = True<\/span>)\r\n Debug.Print<\/span> \"Test 2.2: \" & VerknuepfungVorhanden(strVerknuepfung)\r\n ''*****Test 3: Importspezifikation fehlt, aber wird nicht benötigt, da Verknüpfung vorhanden\r\n strVerknuepfung = \"tblArtikel_Test3\"\r\n VerknuepfungErstellen strVerknuepfung, \"tblArtikel_CSV\", CurrentProject.Path & \"\\tblArtikel.txt\", True<\/span>\r\n Debug.Print<\/span> \"Test 3.1: \" & (VerknuepfungAktualisieren(strVerknuepfung, \"tblArtikel_CSV_NichtVorhanden\") = True<\/span>)\r\n ''*****Test 4: Importspezifikation fehlt beim Aktualisieren\r\n strVerknuepfung = \"tblArtikel_Test4\"\r\n Debug.Print<\/span> \"Test 4.1: \" & (VerknuepfungAktualisieren(strVerknuepfung, \"tblArtikel_CSV_NichtVorhanden\") = True<\/span>)\r\nEnd Sub<\/span><\/pre>\nTest 1.1: Wahr\r\nTest 1.2: Wahr\r\nTest 2.1: Wahr\r\nTest 2.2: Wahr\r\nTest 3.1: Wahr\r\nTest 4.1: Wahr<\/pre>\n
Verknüpfung per VBA aktualisieren<\/h2>\n
Public Function <\/span>VerknuepfungAktualisieren(strTabellenname As String<\/span>, Optional<\/span> strSpezifikation As String<\/span>) As Boolean<\/span>\r\n Dim <\/span>strPfad As String<\/span>\r\n Dim <\/span>strStartverzeichnis As String<\/span>\r\n Dim <\/span>bolVerknuepfungsquelleVorhanden As Boolean<\/span>\r\n Dim <\/span>bolVerknuepfungVorhanden As Boolean<\/span>\r\n If <\/span>Len<\/span>(strTabellenname) = 0 Then<\/span>\r\n MsgBox<\/span> \"Kein Tabellenname angegeben.\"\r\n Exit Function<\/span>\r\n End If<\/span>\r\n bolVerknuepfungVorhanden = VerknuepfungVorhanden(strTabellenname)\r\n If <\/span>bolVerknuepfungVorhanden Then<\/span>\r\n bolVerknuepfungsquelleVorhanden = VerknuepfungsquelleVorhanden(strTabellenname)\r\n strPfad = PfadVerknuepfungErmitteln(strTabellenname)\r\n strStartverzeichnis = Mid<\/span>(strPfad, 1, InStrRev<\/span>(strPfad, \"\\\"))\r\n If <\/span>Len<\/span>(Dir(strStartverzeichnis, vbDirectory)) = 0 Then<\/span>\r\n strStartverzeichnis = CurrentProject.Path\r\n End If<\/span>\r\n If <\/span>Not<\/span> bolVerknuepfungsquelleVorhanden Then<\/span>\r\n MsgBox<\/span> \"Die Verknüpfung ''\" & strTabellenname & \"'' muss aktualisiert werden, da die Datei ''\" _\r\n & strPfad & \"'' nicht gefunden werden konnte.\"\r\n strPfad = OpenFileName(strStartverzeichnis, \"Textdatei auswählen\", \"Textdatei (*.txt;*.csv)|\" _\r\n & \"Alle Dateien (*.*)\")\r\n If <\/span>Len<\/span>(Dir(strPfad)) > 0 And Len<\/span>(strPfad) > 0 Then<\/span>\r\n VerknuepfungAktualisieren = VerknuepfungErstellen(strTabellenname, strSpezifikation, _\r\n strPfad, bolVerknuepfungVorhanden, True<\/span>)\r\n End If<\/span>\r\n End If<\/span>\r\n Else<\/span>\r\n MsgBox<\/span> \"Die Verknüpfung ''\" & strTabellenname & \"'' ist nicht vorhanden und wird nun erstellt. Wählen Sie die \"_\r\n \"Quelldatei aus.\"\r\n strPfad = OpenFileName(strStartverzeichnis, \"Textdatei auswählen\", \"Textdatei (*.txt;*.csv)|\" _\r\n \"Alle Dateien (*.*)\")\r\n VerknuepfungAktualisieren = VerknuepfungErstellen(strTabellenname, strSpezifikation, strPfad, _\r\n bolVerknuepfungVorhanden, True<\/span>)\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\n\n
Public Function <\/span>VerknuepfungsquelleVorhanden(strVerknuepfung As String<\/span>) As Boolean<\/span>\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Set<\/span> db = CurrentDb\r\n On Error Resume Next<\/span>\r\n Set<\/span> rst = db.OpenRecordset(strVerknuepfung)\r\n VerknuepfungsquelleVorhanden = Err.Number = 0\r\nEnd Function<\/span><\/pre>\nName der verknüpften Datei ermitteln<\/h2>\n
Public Function <\/span>PfadVerknuepfungErmitteln(strTabellenname As String<\/span>) As String<\/span>\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>tdf As <\/span>DAO.TableDef\r\n Dim <\/span>strConnect As String<\/span>\r\n Dim <\/span>strDateiname As String<\/span>\r\n Dim <\/span>strVerzeichnis As String<\/span>\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> tdf = db.TableDefs(strTabellenname)\r\n strConnect = tdf.Connect\r\n strDateiname = tdf.SourceTableName\r\n strVerzeichnis = ParameterErmitteln(strConnect, \"DATABASE\")\r\n PfadVerknuepfungErmitteln = strVerzeichnis & \"\\\" & strDateiname\r\nEnd Function<\/span><\/pre>\nName-Wert-Paare parsen<\/h2>\n
Public Function <\/span>ParameterErmitteln(strNameWert As String<\/span>, strParameter As String<\/span>) As String<\/span>\r\n Dim <\/span>intStart As Integer<\/span>\r\n Dim <\/span>intEnde As Integer<\/span>\r\n Dim <\/span>strWert As String<\/span>\r\n Dim <\/span>intLaengeName As Integer<\/span>\r\n intStart = InStr<\/span>(1, strNameWert, strParameter)\r\n intEnde = InStr<\/span>(intStart + 1, strNameWert, \";\") - 1\r\n intLaengeName = Len<\/span>(strParameter)\r\n If <\/span>intEnde = -1 Then<\/span>\r\n intEnde = Len<\/span>(strNameWert)\r\n End If<\/span>\r\n strWert = Mid<\/span>(strNameWert, intStart + intLaengeName + 1, intEnde - intStart - intLaengeName)\r\n ParameterErmitteln = strWert\r\nEnd Function<\/span><\/pre>\nVerknüpfung erstellen<\/h2>\n
Public Function <\/span>VerknuepfungErstellen(strTabellenname As String<\/span>, strSpezifikation As String<\/span>, strDateiname As String<\/span>, _\r\n bolVerknuepfungVorhanden As Boolean<\/span>, Optional<\/span> bolOhneRueckfrageUeberschreiben As Boolean<\/span>) As Boolean<\/span>\r\n Dim <\/span>lngError As Long<\/span>\r\n If <\/span>bolVerknuepfungVorhanden And Not<\/span> bolOhneRueckfrageUeberschreiben Then<\/span>\r\n If <\/span>MsgBox<\/span>(\"Die Verknuepfung ist bereits vorhanden. Löschen und neu erstellen\", vbYesNo) = vbNo Then<\/span>\r\n Exit Function<\/span>\r\n End If<\/span>\r\n End If<\/span>\r\n On Error Resume Next<\/span>\r\n DoCmd.DeleteObject acTable, strTabellenname\r\n On Error GoTo<\/span> 0\r\n On Error Resume Next<\/span>\r\n DoCmd.TransferText acLinkDelim, strSpezifikation, strTabellenname, strDateiname\r\n lngError = Err.Number\r\n On Error GoTo<\/span> 0\r\n Select Case lngError\r\n Case <\/span>3625\r\n MsgBox<\/span> \"Die Importspezifikation ''\" & strSpezifikation & \"'' ist nicht vorhanden.\"\r\n VerknuepfungErstellen = False<\/span>\r\n Case <\/span>0\r\n VerknuepfungErstellen = True<\/span>\r\n Case Else<\/span>\r\n MsgBox<\/span> \"Fehler \" & lngError & \" in ''VerknuepfungErstellen''.\"\r\n VerknuepfungErstellen = False<\/span>\r\n End Select<\/span>\r\nEnd Function<\/span><\/pre>\n