19. juni 2005 - 23:59Der er
2 kommentarer og 2 løsninger
Sti til sammenkædede tabeller
Kan man via kode, ændre stien til sammenkædede tabeller?
Min idé er at ligge min frontend(brugerflader) og backend(tabeller) i samme mappe, og så ændre stien til sammenkædede tabeller, når min frontend åbnes.
Jeg har fundet frem til følgende kode som kunne bruges til at sætte stien til min backend fil med mine tabeller. CurrentProject.Path & "\MineTabeller.mdb"
Jeg går ud fra at forbindelsen til de sammenkædede tabeller, skal opdateres efter stien er ændret?
Dim db As DAO.Database Dim tdf As TableDef Set db = CurrentDb
For Each tdf In db.TableDefs 'Er det et linked table så er connect > 0 If Len(tdf.Connect) > 1 Then tdf.Connect = ";DATABASE=C:\minetabeller.mdb" tdf.RefreshLink End If Next
Tak for svarene. Løsningen fra Thomas Jepsen er måske lige i overkanten til det jeg skal bruge det til.
Min kode endte med at sådan ud.
Private Sub Form_Load() On Error GoTo errHandler Dim lPath As String Dim lDB As DAO.Database Dim lTdf As TableDef Set lDB = CurrentDb lPath = CurrentProject.Path & "\MineTabeller.mdb" For Each lTdf In lDB.TableDefs 'Er det et linked table så er connect > 0 If Len(lTdf.Connect) > 1 Then lTdf.Connect = ";DATABASE=" & lPath lTdf.RefreshLink End If Next errHandler: If Err.Number <> 0 Then MsgBox "Der opstod fejl ved sammenkædning af tabeller.", vbCritical, "Sammenkædede tabeller" End If End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
