Linked Tables

Følgende fjerner ALLE links til tabeller.

  Dim intX As Integer                                         
  Dim dbs As DAO.Database                                     
 
  Set dbs = CurrentDb                                         
 
  For intX = dbs.TableDefs.Count - 1 To 0 Step -1             
    If dbs.TableDefs(intX).Connect <> "" Then                 
      dbs.TableDefs.Delete dbs.TableDefs(intX).Name           
    End If
  Next intX                                                   
 
  dbs.TableDefs.Refresh                                       

  dbs.Close                                                   
  Set dbs = Nothing

Den fjerner også tabellerne... på nær de linkede

Sorry fjerne alle tabeller, på nær de IKKE linkede

Altså nu har jeg brugt den funktion siden Access 2.0 og den fjerner alle links til tabeller i andre filer end den hvor funktionen køres fra (.Connect <> "")

Så hvis den virker anderledes hos dig, så må det være fordi det er noget andet du forventer.

Ja, det er nok mig der gør noget forkert...

Jeg har oprettet en form i den kopierede database, med en knap
der afvikler din code... er det en korrekt fremgangsmåde?

Det lyder rigtig.
Og når du så trykker på knappen skulle alle dine links gerne forsvinde.

Jo, men den fjerner også tabellerne... ikke kun selve links'ene

Så er der noget jeg har misforstået:
Du har en database hvortil der er linket nogle tabeller.
Du tager en kopi af denne database.
Fra kopien vil du fjerne link til tilknyttede tabeller.

Er det korrekt forstået?

Ja... og hvis jeg tænker mig lidt om, kan det jo ikke lade sig gøre,
da der jo reelt ikke er tale om egentlige tabeller, men kun links..
Er det ikke korrekt?

Jeg bruger funktionen til at fjerne links til tabeller inden jeg sender en ny frontend til mine kunder. Når de så starter mine applikationer, så sørger de som det første for at linke til filen med kundens egne data=tabeller
Og det har jeg som sagt brugt siden Access 2.0 var helt ny :-)

ok. Jeg leger lidt med det.... "Kast" lige et svar ind, så du kan få
point.

Vend tilbage når du får det til at virke. Så må vi se på det med point :-)

Motek -> Mener du at du vil kopiere de linkede tabeller til databasen, så de bliver 'lokale' i stedet for 'linkede'.
Hugo's function fjerner linket til tabellerne - derfor kan du ikke se dem i din db.

Niels

Ja, det er det jeg mener.

Jeg kan selvfølgelig godt bruge: Get External Data, for at hente tabellerne til en lokal DB, men så er alle nøglerne væk...
Dem kan jeg selvfølgelig "bare" retablere, men da det drejer sig
om mange tabeller, er det lidt bøvlet.

Det er nok mest normalt at man kopiere både FE og BE.
I den nye FE relinker du alle de linkede tabeller til den nye BE

Der er et hav af eksempler på sådanne functioner både her på eksperten og på nettet
eks:http://www.makeiteasy.dk/Home.asp?ContentID=30&MenuItemID=42  (Nederst)

ja, det har jeg også overvejet....

Sådan er det når vi forsøger os med smutveje :)

Jeg kikker lige på det.. og vender tilbage senere.

Du kan evt også kigge på
DoCmd.TransferDatabase

Fik det aldrig til at virke