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