Indlæs Rapporten i en txt fil.

Du mener vel eksportere ... der er en guide som kan hjælpe dig med eksport

Nej det var nu ikke helt det jeg havde tænkt mig,
Jeg vil gerne have lavet en knap i formularen som eksportere rapporten ind i en txt fil på skrivebordet.
undskylder min problemstilling manglede hvis nogle oplysninger.

Prøv at se lidt på dette spørgsmål:

http://eksperten.dk/spm/366922

Ikke helt på den måde jeg skal have det lavet.
Her kommer lige lidt uddybende om hvad der skal laves:

Har en tabel, med nogle medlemmer i (både udenlandske og danske), hver medlem har et antal.
Jeg skal så skrive en fil, med en startrecord (DS;12345;blad)
Herefter skal der komme linierne med medlemmer, men der skal lidt mere med end det der står i tabellen.
Ex. ( navne i [ ] er feltnavne i tabellen)
UA;[Kundenr];[fornavn];[efternavn] osv.
Er der mere end 1 i feltet antal, skal den skrive medlemmet det antal gange der står.

Det skal helst være sådan at dem der er udland kommer i en fil og danske i en anden fil, men det kan vi tage som det kommer.

Håber ovenstående giver en mere fyldestgørende forklaring på hvad jeg skal have lavet..

As I see it this is going to require code to write this to a text file and an hour or so programming to get it working as you want.

ok, har siddet og leget lidt med det og er kommet et stykke vej...
Har pt. flg.
    Dim sFileName As String
    Dim sIDNummer As String
    Dim sBladnavn As String
    Dim sDato As String
   
    sIDNummer = DLookup("[Bladid_nr]", "t_kunder", "[kunde_id] = 1")
    sBladnavn = DLookup("[navn]", "t_kunder", "[kunde_id] = 1")
    sDato = InputBox("Dato:", "Dato", "")
   
    Open "c:\test.csv" For Output As #1
      Write #1, "DS;;" & sIDNummer & ";" & sBladnavn & ";J;" & sDato & ";;1"     
      ' Her skal den løbe tabellen "t_medlemmer" igennem og skrive de forskellige felter ud.
      Write #1, "UA;"
    Close #1

Hvordan får jeg den til at løbe igennem tabellen?

Dim rs As ADODB.Recordset


Set rs = New ADODB.Recordset

rs.Open "Select * From SomeTable", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

Do Until rs.EOF

Debug.Print rs(0)
rs.MoveNext
Loop




the number in rs(X) is the column number in the table. You can also use the column name

rs("ID") for example

super, det nærmer sig noget nær det optimale :)

Der er en lille ting; hver linie jeg skriver starter og slutter med "
Hvordan forhindre jeg det?

replace Write with Print

Tak for Hjælpen mangler bare at dele adressefilerne op i indland og udland.
Men det er noget jeg selv kan klare.
Ses jo nok til det næste spørgsmål jeg sender. (GOD SOMMERFERIE)

tak og god sommerferie til dig også.

Mine are first i august (når der er godt vejre) :o)