iCentar » Racunari i oprema » Programirannje i baze podataka » Access

Zuko	08.09.2020 10:56
Predmet:Re: error 3075 Hvala Gjoreski, super radi pozdrav

Zuko	07.09.2020 17: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)

Zuko

07.09.2020 17: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 20:14
Predmet:Re: error 3075 Ova kaze da je sintaksna greska , postavi primer sa tabelama pa da vidimo gde gresis.

Zuko	08.09.2020 08: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 08: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

Gjoreski

08.09.2020 08: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