Avko |
05.09.2018 09: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 15: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 20: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 07: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 10: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):Private sub cmdExport_Click()
Dim DB As Database
Dim rs As Recordset
Dim txt As String
Dim strFile As String
strFile = CurrentProject.Path & "\" & "zaposlenici.csv"
Set DB = CurrentDb
Set rs = DB.OpenRecordset("zaposlenici")
Open strFile For Output Shared As #1
'txt = "ime;prezime;ocena"
'Print #1, txt
Do While Not rs.EOF
If rs.Fields(3) = "NA ODREDENO" Then
txtStatus = "0"
Else
txtStatus = "1"
End If
txt = Chr(34) & rs.Fields(0) & Chr(34) & "," & _
Chr(34) & rs.Fields(1) & " " & rs.Fields(2) & Chr(34) & "," & _
Chr(34) & txtStatus & Chr(34)
Print #1, txt
rs.MoveNext
Loop
rs.Close
Close #1
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 09: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 09: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 21: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 08:20 |
Predmet:Re: export reporta u text file
znaci razlika u nastavku, u redu.
hvala na odgovoru |
Gjoreski |
15.09.2018 21: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. |