Zuko |
08.09.2020 11:56 |
Predmet:Re: error 3075
Hvala Gjoreski, super radi
pozdrav |
Zuko |
07.09.2020 18:20 |
Predmet:error 3075
Može li mala pomoć ja ne vidim gdje je greÅ¡ka a access javlja error 3075
uslov = Format(Forms![NALOG ZA KNJIŽENJE]![Od datuma], "dd.MM.yyyy")
uslov1 = Format(Forms![NALOG ZA KNJIŽENJE]![Do datuma], "dd.MM.yyyy")
Set rs2 = db.OpenRecordset("SELECT * FROM KUF LEFT JOIN kupci_dobavljaci ON KUF.[redni_broj] like kupci_dobavljaci.[redni_broj]" & " WHERE KUF.SIF_PJ = " & [Forms]![NALOG ZA KNJIŽENJE]![Text2] & " AND KUF.Datum_fakture Between " & uslov & " AND " & uslov1)
Greška koju javlja u prilogu, nešto je sa uslovom between jer bez njega radi |
Prilozi: greška.pdf (Velicina datoteke:231.51 KB)
|
Gjoreski |
07.09.2020 21:14 |
Predmet:Re: error 3075
Ova kaze da je sintaksna greska , postavi primer sa tabelama pa da vidimo gde gresis. |
Zuko |
08.09.2020 09:13 |
Predmet:Re: error 3075
Evo primjer, imam. U qveriu radi ali u VB neće |
Prilozi: greška.rar (Velicina datoteke:561.51 KB)
|
Gjoreski |
08.09.2020 09:56 |
Predmet:Re: error 3075
PreuzmiIzvorni kôd (Visual Basic):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
|