Prikazi cijelu temu 07.09.2018 10:29
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


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"
zivot je moja domovina.