Link tables , haster venligst

Hmm, jeg ved ikke helt om jeg forstår spørgsmålet?

Snakker vi om at styre sammenkædningen af tabeller i Access?
Hvad er CSV?
Hvilken version af Access benytter du?

If you lik your CSV from code then the destination doesnt need to exist until you need to link it.

DoCmd.TransferText acLinkDelim, , \"YourTableName\", \"\\\\URL\"

lik  = link

YourTableName is the name you want the link to have once its linked.
\\\\URL is the path\\file to link.

Access 97.

csv er en commasepereret Excel fil ( hentes i access som en txt fil )

I min database vil jeg linke en txt fil frem for at importere denne. Normalt når man linker i Access gør man det \"online\". Dvs. at vælger jeg importer / linke data, skal jeg angive mit filnavn og placering som ved importering af data.

u er det bare sådan at jeg ikke herfra hvor jeg sidder har adgang til den server hvorpå db\' en skal køre så det ville jo være praktisk at kunne predefinere en URL til en txt fil så jeg bare skulle sende databasen efterflg.

Feks.

du har kun et c:\\ på din pc.

du laver en access db til din ven. Når db\'en ligges på hans maskine skal data hentes fra hans d:\\test.txt.

I og med at du ikke har et D:\\ drev på din computer ville det jo være praktisk om du kunne gøre dette i db\'en alligevel. Ellers ville du først kunne lave denne link når du besøgte din ven.

Nu er dette ikke til en ven men et datterselskab der ligger 1000 km væk...!!!!!!!!

Terry :

Der er ikke tale om transfer text, idet der hverken skal importeres eller exporteres data.

DoCmd.TransferText acLinkDelim, , \"YourTableName\", \"\\\\URL\"

DoCmd.TransferText method can be used for doing just that!
make a from with a button and a text field for entering the path\\filename.
On the on click event add the code.

DoCmd.TransferText acLinkDelim, , \"YourTableName\", me.txtFilePath

Where me.txtFilePath is the name of the text field!

acLinkDelim meands that it links not import!

Try it!

meands  = means

Og hvad er der i vejen med en lille rejse? Det er da så hyggeligt :o)

Men hvis det ikke er interessant, så kan du æave noget kode, som angiver din connectstring ved opstart af databasen.

Koden skal indeholde noget af dette:

Dim tdef as tabledef
Dim db as database
Set db = currentdb
Set tdef = db.tabledefs(\"DinTabel\")
tdef.connect = \"D:\\Test.txt\"
tdef.refreshlink

/Thomas

Aree you off on holiday soon Thomas? Think I will wait until the summer!

Terry og Thomas :

JEg vil lige teste dette....
JEg ville dog helst at der ikke skulle laves nogen FORM med en kommanoknap, men at den gjorde dette ved opstart som TJ beskriver dette.

Hvor definerer du kode til kørsel når en db starter ???

Both methods can be used on start-up!

Hvis du har en form, som altid starter op (det er der normalt!) så kan du lægge koden på denne forms OnOpen-hændelse.

Eller du kan lægge koden i en global funktion. Derefter laver du en makro med handlingen \"Afspil Kode\", som kalder denne funktion. Makroen kalder du \"Autoexec\"

/Thomas

Terry-> Sommer? Hvornår har man indført sommer i Danmark? Det er da mange år siden den blev afskaffet... :-)

til jer begge :

JEg tester og vender snarest tilbage
( indenfor et par timer )

Du kan også lave en tabel der indeholder alle dine links.

Hvis du opretter et felt i tabellen der hedder hyperlinks, kan du på forhånd lave alle de links du har brug for. De behøver ikke være gældende på den PC\'er du opretter dem på, men hvis du klikker på dem fra en PC\'er der har adgang til adressen vil den åbne filerne.

Ok, inden pointene gives, er der lige en sidste ting der nager. :

hvordan tjekker jeg vie et lille BVA script om en tabel allerede eksisterer i en db. Ulempen er nemlig at når det forige script køres på en formload linkerden en ny tabel hver gang denne åbnes. da vil jeg bruge den sidste for at sikre dette ikke sker.

Det må vel være noget med  :

if exist \"tabelnavn\" then goto end
else
DoCmd.TransferText acLinkDelim, , \"YourTableName\", \"\\\\URL\"
end if
end sub


eller hva\'

Jeg brugte terry\'s løsning idet den var simpel for mig at forstå.
TJ\'s står dog i erindring...

A simple way to do it is a follows:

    On Error Resume Next
    DoCmd.RunSQL (\"Drop TABLE YourTableName\")

But this is more like it should be done...

On Error GoTo link_Err
    DoCmd.RunSQL (\"Drop TABLE YourTableName\")

    DoCmd.TransferText acLinkDelim, , \"YourTableName\", \"\\\\URL\"

   
    Exit Sub
   
link_Err:

    If Err.Number = 3376 Then \'Table exists
        Resume Next
    Else
        MsgBox Err.Description

    End If

Hi region, I can see that your were getting desperate, having to creating questions in other categories, my apologies for that. But I hope you can use one of the above examples.

fik det delvist løst under nyt spørgsmål i VB.

Tak for hjælpen..