Elite Veteran
Beiträge: 848
  
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
*********
https://www.donkarl.com/devcon Access-Online-Konferenz 18.+19.4.
Access Forever: https://www.accessforever.org
Access News: https://www.youtube.com/playlist?list=PLVCeBbJIMDvdJ8ghMbEakJ6_EQyvy...
Access-Entwickler-Konferenz: https://www.donkarl.com/?aek |
Installation DB bei Kunden