Felt (Varenumre) til kommasepareret textfil

Har ikke eksperimenteret med kommasep. textfil. Er der andre muligheder som f.eks. Excel eller word?

Jeg tror ikke at der er andre muligheder end en textfil, da teksten skal komme i en lang række separeret af et , for at jeg kan kopiere det ind i Axapta.

Jeg har selv fundet en ret bøvlet metode med at lave en krydstabuleringsforespørgsel hvor jeg laver feltet varenumre om til overskrift og derefter eksporterer til excel, gemmer som CSV fil og åbner med notepad og tilsidst erstatter ; med ,. Det fungerer, men er jo som sagt temmeligt omstændigt.

Håber du finder en smart løsning ;-)

http://www.eksperten.dk/spm/343671

http://www.sharewareconnection.com/titles/export-from-access-as-tab-comma-separated.htm

http://www.filebuzz.com/files/Export_From_Access_As_Tab_Comma_Separated/1.html

http://www.exefind.com/comma-separated/

Fundet på google og mange andre ved søgestrengen:

access + commaseparated

Ja, så meget kunne jeg også godt finde ud af, men problemet er jo at jeg skal have feltet (kolonnen) til at komme i en lang række med et komma imellem. Og ikke en linie for hver post.

Denne eksporterer til notebook med delimmiter ;. Derefter kan  du i Rediger erstatte ; med ,:

DoCmd.TransferText acExportDelim, ";", "Forespørgsel1", "C:\dinfil.txt", True

Som sagt er jeg desværre ikke så god til VBA. Vil du prøve at forklare hvordan jeg bruger koden??

Jeg har sat koden ind i en kommandoknap ved OnClick hændelse. Forespørgsel er navnet på den tabel / forespørgsel jeg eksporterer og C:\dinfil.txt er destinationen / navnet på den dannede tekstfil.

Jeg ved ikke om det tilgodeser dine behov, men prøv.

Nej, det gør det nok ikke.... jeg prøvede at sætte en knap ind i en formular med koden, men fik en run-time error med at tekstspecifikationens feltseparator er magen til decimalseparatoren eller tekstafgrænseren.

En mulighed er en lille stump VBA, der løber din tabel igennem og danner en fil:

Sub ExporterKommasepareretListe()
  Const Filnavn = "C:\Temp\Varenumre.txt"
  Dim DummyRst As Recordset
  Dim First As Boolean
 
  First = True
  Open Filnavn For Output As #1
  Set DummyRst = CurrentDb.OpenRecordset("DinTabel", dbOpenSnapshot)
  With DummyRst
    Do
      If Not First Then
        Print #1, ",";
      Else
        First = False
      End If
      Print #1, .Fields("Varenumre");           
      .MoveNext
    Loop Until .EOF
    Print #1, ""
    .Close
  End With
  Set DummyRst = Nothing
  Close 1
End Sub

Du kan kopiere koden ind i knappens OnClick handling.

Fantastisk...... det var lige det jeg skulle bruge!! Tusind tak for hjælpen!!

Super. Tak for point ;o)