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

Set db = CurrentDb()

Close #1

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 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

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