drop-downboks hvor man kan vælge filerne

thats going to need an explanation juks!
But if this is what your after then no need
http://www.mvps.org/access/api/api0001.htm

Jeg bruger en omskrivning fra orders.mdb
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/bapp2000/html/mdbdownload.asp

Den tjekker linket til een af tabellerne
Hvis ikke OK leder den efter backend i samme mappe
Hvis den ikke finder den åbnes windows common filedialog

Niels

sorry det var ren vås terry , jeg vil gerne have en combobox hvori jeg kan se alle de mdb- filer der ligge i samme mappe som den backend , database der bliver brugt af min frontend

Option Compare Database
Option Explicit

Sub fyldliste()
    Dim sti As String
    Dim dbNavn As String
    sti = CurDir & "\"
   
    dbNavn = Dir(sti)
    Do While dbNavn <> ""
        If Right(dbNavn, 3) = "mdb" Then
            Liste1.RowSource = Liste1.RowSource & dbNavn & ";"

        End If
    dbNavn = Dir
Loop

End Sub

Private Function RefreshLinks(strFileName As String) As Boolean


    Dim dbs As DAO.Database
    Dim tdf As DAO.TableDef
    Dim intCount As Integer

On Error GoTo ErrorHandler


    Set dbs = CurrentDb
    For intCount = 0 To dbs.TableDefs.Count - 1
        Set tdf = dbs.TableDefs(intCount)

        If Len(tdf.Connect) > 0 Then
            tdf.Connect = ";DATABASE=" & strFileName
            Err.Number = 0
           
            On Error Resume Next
            tdf.RefreshLink
           
            If Err.Number <> 0 Then
                RefreshLinks = False
                Exit Function
            End If
        End If
    Next intCount

    RefreshLinks = True
    Exit Function
   
ErrorHandler:
    MsgBox "Error#:  " & Err.Number & vbCrLf & Err.Description
    RefreshLinks = False
End Function

Private Sub Form_Open(Cancel As Integer)
fyldliste
End Sub

Private Sub Liste1_DblClick(Cancel As Integer)
RefreshLinks (Liste1)
End Sub

på en form skal du have en liste: liste1 og rækkekilde sættes til værdiliste

listen fyldes når formen åbnes
ved dobbeltklik relinkes alle tabeller til den db du vælger

Private Sub Form_Open(Cancel As Integer)
Liste1.RowSource = ""
fyldliste
End Sub

Man skal vist lige tømme listen :)

Function GetPath() As String
    Dim Pos As Integer, Path As String
    Path = CurrentDb.Name
    Pos = Len(Path)
    Do Until Mid(Path, Pos, 1) = "\"
        Pos = Pos - 1
    Loop
    GetPath = Left(Path, Pos)
End Function

er måske bedre at bruge end curdir

Husk desuden reference til DAO

nih :  jeps lige hvad jeg søgte .. næsten , for at gøre det 100 % bruger venligt , har du ikke løsningen på at CurDir skal være samme mappe som backenden.

sti = getpath

getpath finder du i min komentar 07/04-2003 18:49:12

også lige som et svar så du kan få point

ok

men nih , det du har vist mig er perfekt.. næsten , for at gøre det 100 % bruger venligt , skal stien være i samme mappe som backenden.

frontenden og backenden ligge i forskellige mapper

det med at finde back-enden er et stort problem for mig og desuden virker det med refresh af backend ikke men har den del af det med at refreshe.

denne function finder backend:

Function getBackend() As String
    Dim db As DAO.Database
    Dim s As String
    Dim Pos As Integer, i As Integer
   
    Set db = CurrentDb
       
    For i = 0 To db.TableDefs.Count - 1
        If Len(db.TableDefs(i).Connect) > 0 Then
            s = db.TableDefs(i).Connect
            Exit For
           
        End If
    Next i
   
   
    Pos = Len(s)
    Do Until Mid(s, Pos, 1) = "\"
        Pos = Pos - 1
    Loop
    s = Left(s, Pos)
   
    s = Mid(s, InStr(s, "=") + 1)
   
    getBackend = s
   
End Function

Jeg havde lige nogle børn der skulle i seng

tak hjælpen tror jeg klare den fra heraf