Når Access åbnes skal man kunne vælge at importere tabeller.

Det skulle nok kunne lade sig gøre, men du må være mere specifik i din opgaveformulering c",)

Når jeg åbner min db, skal der spørges om hvilke tabeller der ønskes importeret. Når programmet skal de importeret tabeller slettes igen.

Hvorfor vil du importere tabeller ( fra andre databaser ) for herefter at slette dem igen. Var det ikke nemmere at sammenkæde ( em form for server/klient løsning ) ...

Har 18 datafiler som er identiske i strukturen, men indholdet af data er forskelligt. Det er så meningen jeg vil lave en frontend som kan importere disse data alt efter hvilken datafiler man ønsker at kigge på

Set fra min stol, vil det være langt mere dynamisk, at indarbejde kæde til de 18 databaser, og eventuelt via en UNION forespørgsel samle data, for herefter at selectere på denne forespørgsel. Den anden løsning med import, og sletning af data konstant, vil medføre at du skal komprimere din database ofte. ... bare et forslag ...

Jeg vil også foreslå dig, at sammenkæde i stedet for at importere. Fordelenved dette er, at du så allerede har tabelnavnene og derfor er fri for at skulle skrive eller vælge dem.

Jeg har et eksempel liggende, som giver mulighed for at skifte sammenkædningen til backenden fra brugergræsefladen:

http://www.makeiteasy.dk/eksempler/Downloads.htm

eksemplet hedder "Automatisk sammenkædning af Backend"

Du kan evt også selv skrive koden om, så den importere i stedet for sammenkæder. Men da den ikke på forhånd ved hvilke tabeller, der skal importeres, er den nok lidt svær at omskrive :o(

Men det hele kan selvfølgelig laves ret simpelt:

Hvis du har en hovedformular, som altid er åben så længe applikationen er i luften, så kan du bare sørge for at slette alle tabeller, når denne formular lukkes:

Private Sub Form_Unload
    on error resume next
    Dim rs as new adodb.recordset
    dim cn as adodb.connection
    set cn = currentproject.connection
    rs.Open "SELECT msysobjects.Name, msysobjects.Type FROM msysobjects WHERE msysobjects.Type)=1 AND Left([name],4))<>'Msys'", cn, adOpenStatic
    do until rs.eof
        docmd.DeleteObject acTable, rs!Name
        rs.Movenext
    loop
    rs.close
    set rs = nothing
    cn.close
    set cn= nothing
end sub


Når formularen åbnes, køres denne kode så:

Private sub Form_Load
    docmd.RunCommand acCmdImport
end sub

/Thomas

PS: koden er ikke testet for tastefejl, da den bare er tastet direkte her!

ja, jeg kan da i hvert fald se et par fejl i SQL-sætningen:
    rs.Open "SELECT msysobjects.Name, msysobjects.Type FROM msysobjects WHERE msysobjects.Type=1 AND Left([name],4)<>'Msys'", cn, adOpenStatic

thomasjepsen's forslag om sammen-kædning, synes at være det du kan bruge. Jeg bruger selv hans metode, med at have identiske datafiler og en knap på formularen, " vælg anden datafil", så kobler den op på den datafil der vælges. Det fungerer fint.

takker for point - jeg håber, at du fik det til at spille :o)

Havde allerede din backend løsning ibrug, men fik bare en skør ide,

haha, ja dem skal man passe på med ;o)