Hente access indtastninger til txt fil

hente .. TIL!

Skriv til, hente fra?

You can export the data from a table or query.

Right click the table or query. Choose export from the menu an dthen choose the type (txt, csv or what ever) from the combo and write the name of the file. Thats about all you need :o)

vb kode der kan skrive access indtastninger til en txt fil, sorry. Hvis terry's metode skal kunne bruges så skal det kunne gøres automatisk

Can you explain some more?
"Access indtastninger" ! Do these get written to a table first or what?

You can also use this method to send a table to a file
DoCmd.OutputTo acOutputTable, "Employees", _
    acFormatRTF, "Employee.rtf", True

Jeg har en tabel der hedder adresser der når jeg exporterer kommer til at se sådan ud:

1;"Anders";"Andersen"
2;"john";"Æ MAN"

disse vil jeg bare gerne ha' eksporteret til en txt fil automatisk

automatisk!

Thats OK, but you have to do some work yourself before this is possible!

Place this in the on click event for a button
DoCmd.OutputTo acOutputTable, "TheTableName", _
    acFormatRTF, "C:\Employee.rtf", True

You can also try this for a plain text file
DoCmd.OutputTo acOutputTable, "TheTableName", _
    acFormatTXT, "C:\TheTableName.txt", True

Terrys forslag kan kun lade sig gøre fra VBA. Så er det i selve access-databasen, det skal tilføjes. Hvis du er ved at lave et VB-program, skal du have fat i ADO-objektet.

ok shadowdance, jeg fatter det nu heller ikke. Gider du at forklare mere om ADO og kan de her bruges : http://www.freevbcode.com/ShowCode.Asp?ID=3717 ? Forstår egentligt ikke hvor det skal indsættes (terry)

Jamen, har du allerede hentet data ud? Handler det udelukkende om at skrive til en .txt-fil?

Ellers kunne den se sådan ud, hvis det også handler om at hente data:

---------------------------------------------------

Public Sub CopyToTextFile

Dim objRS As Object, strCon As String, strSql As String, strFornavn As String, strEfternavn As String
Dim strOutput As String, i As Integer

strCon = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & "C:\min-db.mdb"
strSql = "SELECT * FROM fornavn"
Set objRS = CreateObject("ADODB.Recordset")
   
objRS.open strSql, strCon, 1, 3

Open "c:\mintekstfil.txt" For Append As #1

Do While Not (objRS.EOF)
    i = i + 1
    strFornavn = objRS("fornavn") 'Navn på feltet der indeholder fornavn
    strEfternavn = objRS("efternavn") 'Navn på feltet der indeholder efternavn
    strOutput = i & ";" & Chr(34) & strFornavn & Chr(34) & ";" & Chr(34) & strEfternavn & Chr(34)
    Print #1, strOutput
Loop

Close #1

objRS.Close

Set objRS = Nothing

End Sub

ok shadowdance, er det så koden til den færdige .vb fil?

Jeps.

Rigtigt godt! Tak for din udholdenhed, har ikke lige fået det afprævet det endnu.... men mange tak

Helt i orden. Hvis du har spørgsmål til koden, så sig endelig frem...