Elite Veteran
Beiträge: 876
Ort: Wien | Hallo, Rudolf!
Greiff - 07.06.13
...
Set db = CurrentDb()
For i = 0 To db.TableDefs.Count - 1
Tabellenname = db.TableDefs(i).Connect
If Tabellenname <> "" Then
Tabellenname = Mid(Tabellenname, 11)
If Left(Tabellenname, 1) <> "C" Then
If Left(Tabellenname, 1) <> ServerLaufwerkNeu Then
db.TableDefs(i).Connect = ";database=" & ServerLaufwerkNeu & Mid(Tabellenname, 2)
db.TableDefs(i).RefreshLink
End If
End If
End If
Next i
Hat jemand eine Idee, warum der Name nicht getauscht wird
oder hat jemand eine Idee, wie ich mit einer Runtime testen kann?
Wenn du Zugriff auf den Rechner hast, könntest du erst mal visuell die Pfade kontrollieren, die dort verwendet werden, und dann deine Anwendung oder einen Dummy nur mit dem Verknüpfungscode starten und darin alles interessante mit einigen MsgBoxen ausgeben, also:
...
Tabellenname = db.TableDefs(i).Connect
MsgBox "Connect von " & db.TableDefs(i).Name & " ist: " & Tabellenname
...
MsgBox "ServerLaufwerkNeu ist: " & ServerLaufwerkNeu
usw.
Dann siehst du vielleicht, was (schief) läuft.
----- Servus
Karl
*********
Access-Entwickler-Konferenz: https://www.donkarl.com/?aek
Access DevCon Vienna: https://www.donkarl.com/devcon
Access Forever: https://www.accessforever.org
Access News: https://www.youtube.com/playlist?list=PLVCeBbJIMDvdJ8ghMbEakJ6_EQyvy... |