Access 2000 Tabellenverknüpfung dynamisch

[flooo]

hallo alle miteinander,

es ist ja möglich in access 2000 tabellenverknüfungen anstatt 'richtige' tabellen zu erstellen... diese tabellenverknüpfungen verweisen dann z.b. auf eine andere DB.

kann man diese tabellenverknüpfungen auch dynamisch setzen, z.b. mit vb code?

wenn ich eine DB aus verzeichnix c:\x verwende und dann tabellenverknüfungen erstelle zu einer DB aus verzeichnis c:\y ... wie sieht das dann mit den verweisen aus, wenn ich die DB aus c:\y zb. nach c:\z verschiebe? muss ich die verknüpfungen neu setzen.. oder kann ich das irgendwie dynamisch regeln?

gruss,

flooo

[Meenzer]

Hi!

Ich habe mal eine Funktion zum automatischen Einbinden ( unter Access '97 ) geschrieben. Allerding müssen die Datenbank im gleichen Verzeichnis stehen. Vielleicht hilft Dir die Funktion weiter.

--------------------------------------------------------------------------

Dim td1 As TableDefs

Dim strProgPath As String

Dim strOldPath As String

Dim i As Integer

'der Pfad der Datenbank steht in ner SystemTabelle

strOldPath = DLookup("ProgPath", "z_tblSystem", "[iD] = 1")

'ermitteln des aktuellen Pfads der mdb

strProgPath = LIB_ActDBPath()

If strOldPath = strProgPath Then

'Einträge sind gleich - neues Einbinden nicht erforderlich!

fktTabellenEinbinden = 2

GoTo EXIT_fktTabellenEinbinden

End If

'Einbinden ist notwendig

'schreiben des neuen Pfades in die Tabelle z_Settings

Set rs1 = current.OpenRecordset("z_tblSystem", dbOpenDynaset, dbDenyWrite, dbPessimistic)

rs1.FindFirst "[iD] = 1"

If rs1.NoMatch Then

fktTabellenEinbinden = 3

GoTo EXIT_fktTabellenEinbinden

Else

rs1.Edit

rs1![ProgPath] = strProgPath

rs1.Update

rs1.Close

End If

'Schleife über alle Tabellen der Tabldefs-Auflistung

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

Set td1 = db1.TableDefs(i)

'alle Tabellen heissen tblxxx deswegen.......

If Left(td1.Name, 3) = "tbl" Then

' strProgPath ist der Pfad

td1.Connect = ";Database=" & strProgPath & "\Deine.mdb"

td1.RefreshLink

End If

Next i

fktTabellenEinbinden = -1

------------------------------------------------------------------------------

Gruss

[flooo]

im prinzip ist diese methode recht sinnvoll... nur irgendwie funzt das bei mir nicht... ich darf die verknüpfung nicht ändern...

sei es im code

-> fehler meldung

oder in den tabelleneigenschaften manuell

-> wird immer wieder auf den vorgangswert zurückgesetzt mit der info, diese eigenschaft kann bei verknüpften tabellen nicht geändert werden...

liegts an access 2000 oder an irgendwelchen optionen?

für hilfe bin ich dankbar

flooo

[flooo]

hier noch eine kleine hilfe für die, die auch das problem haben...

http://home.att.net/~dashish/tables/tbl0012.htm

gruss,

flooo