angiv link til sammenkædet tabller

"uden at have den realle sti"?
Access must be able to find the tables or the re-link will fail.

Now I know nothing about your setup but lets say your users have a link to the dB on X:\MyBackend

You could make a mapped folder on your local PC with the same drive name and then create a folder in that drive (mapped) named MyBackend

This way there is no need to alter the links, which no matter whcih method you use still can give problems.

Public Function start_Load()
  On Error GoTo errHandler
  Dim lPath As String
  Dim lDB As DAO.Database
  Dim lTdf As TableDef
  Set lDB = CurrentDb

 
  lPath = "\\Userhome\pric\database\data\0508_be.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"
Call fRefreshLinks
  End If
End Function

Hi Terry,

Det er fordi jeg sender det ud af huset og hende der modtager databsen fatter intet af acces så ville helst at hun ikke skulle rode med opdatering af tabeller. jeg tror ikke den reconnect kode er speciel tung for pcén så der sker vel ikke så meget ved at den køre ved hver startup

Hi Juks
The method I suggested was to avoid you or users having to change the links. But your own solution ensures that the user wont (shouldnt) notice anything :o)