title image


Smiley Re: Die gibt es doch auch nirgendwo zu sehen...
Habe es endlich geschafft, hier die Abwandlung von FAQ Donkarlos 3.1:



Dim db As DATABASE

Dim Daten_1 As String

Dim Daten_2 As String

Dim Datei_1 As String

Dim Datei_2 As String



Dim i As Integer



Dim l As Integer

Dim m As Integer



Datei_1 = "Pmdat2001_Daten.MDB"

Datei_2 = "Postfach.MDB"



l = Len(Datei_1)

m = Len(Datei_2)





On Error GoTo FehlerMeldung





Set db = CurrentDb()



Daten_1 = Left(db.Name, Len(db.Name) - Len(Dir(db.Name))) & Datei_1

Daten_2 = Left(db.Name, Len(db.Name) - Len(Dir(db.Name))) & Datei_2



For i = 0 To db.TableDefs.Count - 1



If db.TableDefs(i).Connect "" Then

If Mid(db.TableDefs(i).Connect, 11) Daten_1 Then

If Right(db.TableDefs(i).Connect, l) = Datei_1 Then

db.TableDefs(i).Connect = ";database=" & Daten_1

db.TableDefs(i).RefreshLink

End If

If Right(db.TableDefs(i).Connect, m) = Datei_2 Then

db.TableDefs(i).Connect = ";database=" & Daten_2

db.TableDefs(i).RefreshLink

End If

End If

End If

Next i





Exit Sub



FehlerMeldung:

MsgBox "Bei der Installation ist ein Fehler aufgetreten. ", 16, "FEHLER !"

Exit Sub



'Zwar noch etwas umständlich, jedoch funktionierts.



Vielen Dank an Reinhard!



mfg

Hans

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: