title image


Smiley Das ist ja auch kein Wunder...
Du ersetzt ja bei Ungleichheit immer alle Connects durch den gleichen String - ausserdem sind da noch diverse Tippfehler drin...



So ist's besser, lesbarer, kürzer... :



Dim Tbl as DAO.Tabledef, DB as Dao.Database, _

NewConnect as string, Tmp as String, Curpath as string

Set DB = Currentdb

Curpath = Left(DB.Name,Instrrev(DB.Name,"\"))

For each Tbl in DB.Tabledefs

If Tbl.Connect "" Then

For I = 1 to 5

Tmp = "Standort" & I & "_WoBe.MDB"

iF Instr(Tbl.Connect,Tmp) > 0 then

NewConnect = ";database=" & Curpath & Tmp

if Tbl.Connect NewConnect

Tbl.Connect = NewConnect

Tbl.RefreshLink

end if

exit for

end if

Next I

end if

Next Tbl





Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: