Avko 05.09.2018 08:17
Predmet:export reporta u text file

Kao sto naslov kaze, trebam proceduru koja ce izvesti izvjesce u txt file.

imeFile="zaposlenici"
odrediste=tamo gdje je baza
izgled txt fajla : "oib","ime i prezime","zaposlen" itd

kada otvorite bazu biti ce vam jasnije.
Znam da vama to nije problem ali ja se mucim, a pokusao sam naci na forumu i nisam nasao takvu proceduru samo onu za export to excel
Prilozi:
accessUcenje.rar (Velicina datoteke:25.76 KB)

Gjoreski 05.09.2018 14:52
Predmet:Re: export reporta u text file

Access ima naredba za toa ne ti treba nikakov kod

Stavi go ova na tasterot.
DoCmd.OutputTo acOutputReport, "rptZaposlenici", acFormatTXT, "Zaposlenici.txt", True

Avko 05.09.2018 19:21
Predmet:Re: export reporta u text file

nema mi navodnika, nejednoliko, ispisuje i header i naslov izvjestaja

ovako dobijem:

rptZaposlenici

oib IME I PREZIME STALNO
ZAPOSLEN
1001 LUKA LUKIĆ 0

1002 0
INES KROT

1003 MARKO MARKOVIĆ 1

1004 MARTINA COMBAJ 1

a ja bi ovako:

"1001","LUKA LUKIĆ","0"
"1002","INES KROT","0"
"1003","MARKO MARKOVIĆ","1"
"1004","MARTINA COMBAJ","1"

pmiroslav 07.09.2018 06:46
Predmet:Re: export reporta u text file

Našao sam jedan primjer. Možda ti to pomogne.
Prilozi:
prenos u csv.rar (Velicina datoteke:12.34 KB)

Avko 07.09.2018 09:29
Predmet:Re: export reporta u text file

da to je to sto sam trazio, zahvaljujem.

prilagodio sam za sebe i napravio neke izmjene. Navodnici kod svakog podatka Chr(34), te path gdje ce snimiti je trenutni path baze. strFile = CurrentProject.Path & "\" & "zaposlenici.csv"

PreuzmiIzvorni kôd (Text):
  1. Private sub cmdExport_Click()
  2.     Dim DB As Database
  3.     Dim rs As Recordset
  4.     Dim txt As String
  5.     Dim strFile As String
  6.     strFile = CurrentProject.Path & "\" & "zaposlenici.csv"
  7.    
  8.     Set DB = CurrentDb
  9.     Set rs = DB.OpenRecordset("zaposlenici")
  10.     Open strFile For Output Shared As #1
  11.         'txt = "ime;prezime;ocena"
  12.         'Print #1, txt
  13.         Do While Not rs.EOF
  14.             If rs.Fields(3) = "NA ODREDENO" Then
  15.                 txtStatus = "0"
  16.             Else
  17.                 txtStatus = "1"
  18.             End If
  19.            
  20.             txt = Chr(34) & rs.Fields(0) & Chr(34) & "," & _
  21.                     Chr(34) & rs.Fields(1) & " " & rs.Fields(2) & Chr(34) & "," & _
  22.                     Chr(34) & txtStatus & Chr(34)
  23.             Print #1, txt
  24.             rs.MoveNext
  25.         Loop
  26.         rs.Close
  27.     Close #1
  28. End Sub

izlazna datoteka sada izgleda ovako:
"1001","Luka Lukić","0"
"1002","Ines Krot","0"
"1003","Marko Marković","1"
"1004","Martina Combaj","1"

Gjoreski 11.09.2018 08:38
Predmet:Re: export reporta u text file

Avko ni si postavio dobro pitajne.Pitao si za txt fajl a na kraju izaslo jeda ti treba csv fajl sa odredena struktura. ovalvih primera na forumu ima najmanje 100.

Avko 11.09.2018 08:48
Predmet:Re: export reporta u text file

ma ja to snimim kao .txt pa sam mislio da je text.
a koja je razlika?

pmiroslav 11.09.2018 20:41
Predmet:Re: export reporta u text file

CSV (eng. comma-separated values ) je obična tekstualna datoteka u kojoj su podaci odvojeni delimiterom najčeÅ¡će točka-zarez (";")

Avko 12.09.2018 07:20
Predmet:Re: export reporta u text file

znaci razlika u nastavku, u redu.
hvala na odgovoru

Gjoreski 15.09.2018 20:57
Predmet:Re: export reporta u text file

Tocno taka i CSV je text dokumenta samo sto ima tocna struktura ,dodeka text fajlot nemora da ima tocna struktura.