title image


Smiley Mein Code
Hier ist mein Code beim Programmstart, der bereits die Ursache sein kann. Ich komprimiere das Backend und erneuere die Verknüpfungen:



Function fctConnect()



Dim DB As Database, Pfad As String, I As Integer, Datei As String, Dummydatei As Variant, Dummypfad As Variant

Set DB = CurrentDb '()

Pfad = Left(DB.Name, Len(DB.Name) - Len(Dir(DB.Name))) & "Data.mdb"

Datei = Dir(Pfad)

Dummypfad = Left$(Pfad, Len(Pfad) - Len(Datei))

Dummydatei = Dummypfad & "Dummy.mdb"

DBEngine.CompactDatabase Pfad, Dummydatei

Kill Pfad

Name Dummydatei As Pfad



For I = 0 To DB.TableDefs.Count - 1

If DB.TableDefs(I).Connect "" Then

If Mid(DB.TableDefs(I).Connect, 11) Pfad Then

DB.TableDefs(I).Connect = ";database=" & Pfad

DB.TableDefs(I).RefreshLink

End If

End If

Next I

Set DB = Nothing



End Function



Die fettgedruckte Zeile habe ich jetzt neu eingefügt. Sollte das reichen?



Pitzi



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: