eksportere data til komma sepereret fil

Se lige denne prof løsning:
http://www.mvps.org/access/modules/mdl0045.htm
Vh Henrik13

Det kan også gøres med en forespørgsel:
CREATE TABLE DOKUMENT (DOKUMENTID AUTOINCREMENT CONSTRAINT C1 PRIMARY KEY, FILNAVN TEXT)
Vh Henrik

Hmm, ny angrebsvinkel. jeg skal nu ikke hente data'ene fra en tabel, men fra felter i en formular. og herudfra oprette en *.txt ;-sepereret

Kan du give uddybende forklaring?

Vil du overføre en Access-formular's felter til en tekstfil f.eks et brev, altså en form for brevfletning?

jeg har fået det til at virke. Jeg benytter følgende :

Open strSti & strFil For Output As #1  ' Åbn en fil til output.
Write #1, strONo, strdato, strYNr, strVNo, strudskrift, strAntal1, strAntal2, strSted

hvor
strONo, strdato, strYNr, strVNo, strudskrift, strAntal1, strAntal2, strSted

er parametre til funktionen. Men fil output bliver:

"77762",#2003-07-07#,"07-07-03","39","J","200","",""

HVORDAN UNDGÅR JEG " " i filen, kun data?

jeg prøver med print #

min kode er :

Private Function writfile(strONo, strdato, strYNr, strVNo, strudskrift, strAntal1, strAntal2, strSted)

If Not IsNull(strONo) Then strONo = CStr(strONo) Else strONo = ""
If Not IsNull(strdato) Then strdato = CStr(strdato) Else strdato = ""
If Not IsNull(strYNr) Then strYNr = CStr(strYNr) Else strYNr = ""
If Not IsNull(strVNo) Then strVNo = CStr(strVNo) Else strVNo = ""
If Not IsNull(strudskrift) Then strudskrift = CStr(strudskrift) Else strudskrift = ""
If Not IsNull(strAntal1) Then strAntal1 = CStr(strAntal1) Else strAntal1 = ""
If Not IsNull(strAntal2) Then strAntal2 = CStr(strAntal2) Else strAntal2 = ""
If Not IsNull(strSted) Then strSted = CStr(strSted) Else strSted = ""

Dim strSti, strFil
strSti = "C:\kørebog\tilKYB\"
strFil = "tilkyb.txt"

Open strSti & strFil For Output As #1  ' Åbn en fil til output.
Print #1, strONo & ";", strdato & ";", strYNr & ";", strVNo & ";", strudskrift & ";", strAntal1 & ";", strAntal2 & ";", strSted & ";"




nu er mit output:
77555;        07-07-03;    200;          361;          J;            200;          ;            ;

Jeg ville gerne undgå at der kommer blanktegn efter. hvordan gør jeg det?

ændrede datatype - nu virker det! - løste selv problemet.!

nyt problem er at jeg skal læse fra en fil, en linie af gangen og så kunne sætte felter i en formular lig med tegn 7,8,9 og 10 fra denne linie.

løste selv prob - ingen point.

Kan du så ikke lægger et svar selv og acceptere det, derved lukkes spørgsmålet og ekspertens vidensdatabase bliver dermed opdateret med endnu et accepteret svar, hvis andre brugere har samme problem som du har haft.

Er det ikke snart lukketid.

jo da - (beklager at jeg har overset dette spg.)

benyttede : Input(2, #1) hvor #1 er filen jeg læser fra, og 2 er det antal tegn jeg læser. :

hvis der i filen står:
12082004TELEFON
og benyttes:

strDatoH = Input(8, #1)
type = imput(7, #1)

så står der TELEFON i type og
12082004 i strDatoH