Hej
Jag har en liten (stor?) fråga. Har letat på "nätet" men inte varit skicklig nog. Mitt intresse är att konvertera en accesstabell ( eller fråga) till en textfil som separeras med kommatecken.
Jag är nybörjare och har inga större kunskaper men förmodar att det är möjligt att göra det.
Jag har en databas i access med inmatade deltagare i en tävling (friidrott) och vill nu konvertera accessinformationen till en textfil ( som jag själv kan döpa till e.x .ppa) .
Den konverterade filen (.ppa) skall sedan importeras och hanteras av ett annat program.

Tacksam för hjälp
elaur

Låter inte alltför komplicerat.
Öppna din databas och välj den tabell som Du vill exportera.
Klicka på Arkiv och välj Exportera.
Välj filformat textfil.
Svårare än så bör det inte vara.

F'låt min otydlighet.
JAg läste mitt inlägg och förstår att jag inte varit tydlig nog.

JAg skulle, med en enkel knapptryckning i ett formulär, återskapa just den effekt som du angav i ditt svar. Jag efterlyste således en vb-formulering.

TAck ändå

Elaur

Vill du använda VBA kan du titta på detta inlägget: http://www.pellesoft.se/communicate/forum/view.aspx?msgid=171407&forumid=21&sum=0

/Johan

Tack Johan

Den länken har jag redan tittat på och lagt in i koden. Men min skicklighet sträcker sig inte så långt att jag får den till att fungera.

Dim f As Integer
Answer = "C:\TEMP\"
If Dir(Answer) <> "" Then
If MsgBox("Filen finns redan, vill du skriva över den?", vbYesNo + vbQuestion + vbDefaultButton2) = vbNo Then Exit Sub
End If
f = FreeFile
Open "C:\TEMP\betalt2005.txt" For Output As f
Dim DBS As Database, RST As Recordset
Set DBS = CurrentDb
Dim a As Field
Dim strExp As String

Set RST = DBS.OpenRecordset(Betalt)
'Set RST = DBS.OpenRecordset("MinFråga")
strExp = ""
For Each a In RST.Fields
strExp = strExp & Chr(9) & a.Name
Next
Print #f, Right(strExp, Len(strExp) - 1)

With RST
While Not .EOF
strExp = ""
For Each a In .Fields
strExp = strExp & Chr(9) & a
Next
Print #f, Right(strExp, Len(strExp) - 1)
.MoveNext
Wend
End With
Set RST = Nothing

Close f
Jag har lagt in sökväg och .txt men misstänker att "jag är fel på det".

Tack Elaur

Tror jag löste det
Set RST = DBS.OpenRecordset(Betalt) skall vara
Set RST = DBS.OpenRecordset("Betalt")

Klumpigt av mig

Tack alla
elaur