Sammenkædning

jo snakker vi vba eller bare via access og hvilken version af acces

Vi talking Access 97 & 2000

Public Function fhpLinked_MDB_Name() As String
' -----------------------------------------------------------------------------------
' Purpose      : Retrieve absolut filename of file containing first linked table
' Called from  :
' Returns      :
' Remarks      : If no linked tables found, current databasename is returned
' -----------------------------------------------------------------------------------
  Dim intX As Integer                                      'Testvariable
  Dim strTemp As String                                    'Tablename
  Dim dbs As DAO.Database                                  'Database variable
  Set dbs = CurrentDb                                      'Current database
   
  strTemp = ""                                              'Initialise tablename
  For intX = 0 To dbs.TableDefs.Count - 1                  'Loop all tables
    If dbs.TableDefs(intX).Connect <> "" Then              'If an linked table
      strTemp = dbs.TableDefs(intX).Connect                'Find datafile name
      strTemp = Mid(strTemp, (InStr(strTemp, "=") + 1), Len(strTemp))
    End If
  Next intX
 
  If strTemp <> "" Then                                    'If found a table name
    fhpLinked_MDB_Name = strTemp                            'Linked table found
  Else
    fhpLinked_MDB_Name = dbs.Name                          'No linked tables
  End If
 
  Set dbs = Nothing                                        'Release object
 
End Function

læg funktionen ind under moduler og kald funktionen  fra en form fx
msgbox  hpLinked_MDB_Name

Tak Tak
Men ikke i kode.Det jeg mener er om man kan højre klikke eller noget andet
og få oplystningen

på dansk 
funktioner -> Databasefunktioner -> styring af sammenkædet tabeller

Yes Yes
Du er fan.. Dejlig
Takker