Private Sub Command30_Click()
Dim db As Object
Dim rs1, rs2, rs3 As Recordset
Dim vrsta_sloga, tip_datoteke, Mjesto, ADRESA, pdv, id_broj As String
Dim datum, datum1, datum_kreiranja, firma, vrijeme_kreiranja As String
Dim mojfile As Integer, ime As String
Dim text As String, uslov, uslov1 As String
'Dim stdocname As String
Set db = CurrentDb()
Close #1
'uslov = Forms![NALOG ZA KNJIĊ½ENJE]![Od datuma]
'uslov1 = Forms![NALOG ZA KNJIĊ½ENJE]![Do datuma]
uslov = Format(Forms![NALOG ZA KNJIĊ½ENJE]![Od datuma], "dd.MM.yyyy")
uslov1 = Format(Forms![NALOG ZA KNJIĊ½ENJE]![Do datuma], "dd.MM.yyyy")
datum = Format(Forms![NALOG ZA KNJIĊ½ENJE]![Do datuma], "YYmm")
Set rs1 = db.OpenRecordset("SELECT * FROM Tpreduzece WHERE sif_pj =" & Forms![NALOG ZA KNJIĊ½ENJE]![Text2])
pdv = rs1!PDV_iden_broj
id_broj = rs1!iden_broj
Mjesto = rs1!Mjesto
ADRESA = rs1!ADRESA
ime = pdv & "_" & datum & "_" & "1" & "_" & "01"
Open Db_Putanja & ime & ".csv" For Output As #1
text = "1;" & pdv & ";" & datum & ";1;01;" & Format(Now(), "YYYY_mm_dd") & ";" & Time()
Print #1, text
'Set rs2 = db.OpenRecordset("SELECT * FROM Qkuf_report")
Set rs2 = db.OpenRecordset("SELECT * FROM KUF LEFT JOIN kupci_dobavljaci ON KUF.[redni_broj] = kupci_dobavljaci.[redni_broj]" & " WHERE KUF.SIF_PJ = " & [Forms]![NALOG ZA KNJIĊ½ENJE]![Text2] & " AND KUF.Datum_fakture BETWEEN " & SQLDate(Forms![NALOG ZA KNJIĊ½ENJE]![Od datuma]) & " AND " & SQLDate(Forms![NALOG ZA KNJIĊ½ENJE]![Do datuma]))
rs2.MoveFirst
Do While Not rs2.EOF
text = "2;" & datum & ";" & rs2!Rb_fakt & ";" & rs2!tip_dokumenta & ";" & rs2!broj_fakture & ";" & Format(rs2!Datum_fakture, "YYYY-mm-dd") & ";" _
& Format(rs2!Datum_fakture, "YYYY-mm-dd") & ";" & rs2!naziv_konta & ";" & rs2!Mjesto & ";" & rs2!PDV_iden_broj & ";"
Print #1, text
rs2.MoveNext
Loop
Close #1
End Sub
Function SQLDate(varDate As Variant) As String
If IsDate(varDate) Then
If DateValue(varDate) = varDate Then
SQLDate = Format$(varDate, "\#mm\/dd\/yyyy\#")
Else
SQLDate = Format$(varDate, "\#mm\/dd\/yyyy hh\:nn\:ss\#")
End If
End If
End Function