Linktabler
HejJeg bruger denne funktion til at få fat i min backend, men mit problem er, at jeg har 2 sammenkædet i en database, og når jeg bruger denne funktion
kommer den og siger at den ikke kan finde de tabler som ligger i den anden database. De 2 databaser ligger samme sted
Option Compare Database
Option Explicit
Public Function ReattachToNewBackend()
On Error GoTo Err_reattach
Dim db As Database
Dim tdef As TableDef
Dim dlg As New CommonDialog
Dim NewPath As String
Set db = CurrentDb
'<<----Åbn Commondialog-boksen---->>
dlg.filter = "Access databaser" & vbNullChar & "*.mdb;*.mda;*.mde;*.mdw" & vbNullChar & "Alle filer" & vbNullChar & "*.*" & vbNullChar
dlg.DialogTitle = "Angiv ny placering af " & ExtractFileName(GetBackend) & "..."
dlg.InitDir = GetBackend
dlg.ShowOpen
NewPath = dlg.Filename
If IsNull(NewPath) Or NewPath = "" Then
Exit Function
End If
'<<----Åbn statusbar---->>
Status "Sammenkæder tabeller", False, DCount("*", "MSysObjects", "Type = 6"), "Kontrollerer tabeller"
'<<----Gennemløb alle tabeller---->>
For Each tdef In db.TableDefs
If Left(tdef.Connect, 10) = ";DATABASE=" Then
Call Status("Sammenkæder " & tdef.Name)
tdef.Connect = ";DATABASE=" & NewPath
tdef.RefreshLink
End If
Next
'<<----Luk Statusbar---->>
Status "Færdig!", True
Exit Function
Err_reattach:
MsgBox Err.Description & vbNewLine & "Fejl nr: " & Err.Number
Resume Next
End Function
Er der nogen som har en ide til hvordan jeg kan sige hvilke tabler den skal update linket til. Jeg har 2 knapper, en til hver database.
Venlig Hilsen
Lars