Eksporter/importer data fra tabeller til txt filer vha formular

med en sql.....vil jeg mene

hvordan gør jeg det?

Where do you want to export the table to, a CSV file or ?
Where do you want to import from, a CSV file or ?

To export a table to a text file
DoCmd.TransferText acExportDelim, , "TheTable", "f:\TheFile.txt"

and to import a text file
DoCmd.TransferText acImportDelim, , "TheTable", "f:\TheFile.txt"

Note: It would be an idea to first import the file manually to create a table with the correct field names.

Jeg prøvede lige at eksporter og importere fra og til samme database.
Eksport virker fint, men import giver lidt problemer.

Jeg får fejlen:

Run-time error '2391':
Feltet "F1" findes ikke i destinationstabellen "Kundeoplysninger"


dsjk

This is why in my answer I wrote "Note: It would be an idea to first import the file manually to create a table with the correct field names."
When you import without using an IMPORT SPECIFICATION then Access names the coulmns F1, F2 ....
So first import manually to make an IMPORT SPEC.
MENU:
Files + Get External Data + Import
Choose the file type from the list and then follow the instructions. Take not at some stage you will be allowed to press an ADVANCED button. Here you can save the IMPORT SPEC for use later.

As follows:
DoCmd.TransferText acImportDelim,"MyImportSpec", "TheTable", "f:\TheFile.txt"

ok, det virker fint efter jeg har gemt Import spec.

2 spm:
- Kan man få en popup hvor der står "Indsæt en tom Diskette" eller lign, inden den eksportere?
- Kan men få den til at slette alt i tabellen der skal importeres til, uden den kommer frem og spørger, inden den importere.

dsjk

MsgBox "Indsæt en tom Diskette"
   
    DoCmd.SetWarnings False
    Dcomd.RunSQL "DELETE * FROM YourTable"
   
    'Import goes here ....
   
    DoCmd.SetWarnings True

super

Tak for hjælpen

selv tak :o)

jeg har lige et par tillægsspm.
-Hvordan laver jeg linieskift i MsgBoxen?

-Jeg har tilføjet både OK og Cancel knap, hvordan får jeg den til at aborte hvis der vælges Cancel?

dsjk

If MsgBox("This is one Line" & vbCrLf & "Another line", vbOKCancel) = vbCancel Then
        MsgBox "Cancel"
    End If

super

Tak endnu engang. :-)

ja, så er der dukket endnu et spm. op.

Jeg sidder og laver databasen i access 2000, man den skal bruges i access 97, så derfor konventerer jeg jo databasen, gemmer den på en disk og bliver smidt ind på den maskine den skal bruges på.

Kan det passe at jeg i konvertering mister de import "masker" jeg har gemt?
Eller ligger de ikke i databasen?

dsjk

I would have thought that they would also get converted although I have never tried it!

ok, så vidt jeg kan se kommer de ikke med.