Centar za edukaciju-BiH



#1 07.09.2020 17:20
Zuko Van mreze
Clan
Registrovan od:13.09.2010
Postovi:382


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:
Informacije o tipu datoteke za:pdf  greÅ¡ka.pdf
Preuzimanja:171
Velicina datoteke:231.51 KB


Pozdav,

Nedim
↑  ↓

#2 07.09.2020 20:14
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,854


Predmet:Re: error 3075
Ova kaze da je sintaksna greska , postavi primer sa tabelama pa da vidimo gde gresis.
↑  ↓

#3 08.09.2020 08:13
Zuko Van mreze
Clan
Registrovan od:13.09.2010
Postovi:382


Predmet:Re: error 3075
Evo primjer, imam. U qveriu radi ali u VB neće

Prilozi:
Informacije o tipu datoteke za:rar  greÅ¡ka.rar
Preuzimanja:194
Velicina datoteke:561.51 KB


Pozdav,

Nedim
↑  ↓

#4 08.09.2020 08:56
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,854


Predmet:Re: error 3075
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Command30_Click()
  2. Dim db As Object
  3. Dim rs1, rs2, rs3 As Recordset
  4. Dim vrsta_sloga, tip_datoteke, Mjesto, ADRESA, pdv, id_broj As String
  5. Dim datum, datum1, datum_kreiranja, firma, vrijeme_kreiranja As String
  6. Dim mojfile As Integer, ime As String
  7. Dim text As String, uslov, uslov1 As String
  8. 'Dim stdocname As String
  9. Set db = CurrentDb()
  10. Close #1
  11. 'uslov = Forms![NALOG ZA KNJIŽENJE]![Od datuma]
  12. 'uslov1 = Forms![NALOG ZA KNJIŽENJE]![Do datuma]
  13. uslov = Format(Forms![NALOG ZA KNJIŽENJE]![Od datuma], "dd.MM.yyyy")
  14. uslov1 = Format(Forms![NALOG ZA KNJIŽENJE]![Do datuma], "dd.MM.yyyy")
  15. datum = Format(Forms![NALOG ZA KNJIŽENJE]![Do datuma], "YYmm")
  16. Set rs1 = db.OpenRecordset("SELECT * FROM Tpreduzece WHERE sif_pj =" & Forms![NALOG ZA KNJIŽENJE]![Text2])
  17. pdv = rs1!PDV_iden_broj
  18. id_broj = rs1!iden_broj
  19. Mjesto = rs1!Mjesto
  20. ADRESA = rs1!ADRESA
  21. ime = pdv & "_" & datum & "_" & "1" & "_" & "01"
  22. Open Db_Putanja & ime & ".csv" For Output As #1
  23. text = "1;" & pdv & ";" & datum & ";1;01;" & Format(Now(), "YYYY_mm_dd") & ";" & Time()
  24. Print #1, text
  25. 'Set rs2 = db.OpenRecordset("SELECT * FROM Qkuf_report")
  26. 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]))
  27.  
  28. rs2.MoveFirst
  29. Do While Not rs2.EOF
  30. text = "2;" & datum & ";" & rs2!Rb_fakt & ";" & rs2!tip_dokumenta & ";" & rs2!broj_fakture & ";" & Format(rs2!Datum_fakture, "YYYY-mm-dd") & ";" _
  31. & Format(rs2!Datum_fakture, "YYYY-mm-dd") & ";" & rs2!naziv_konta & ";" & rs2!Mjesto & ";" & rs2!PDV_iden_broj & ";"
  32. Print #1, text
  33. rs2.MoveNext
  34. Loop
  35. Close #1
  36. End Sub
  37.  
  38. Function SQLDate(varDate As Variant) As String
  39.    
  40.     If IsDate(varDate) Then
  41.         If DateValue(varDate) = varDate Then
  42.             SQLDate = Format$(varDate, "\#mm\/dd\/yyyy\#")
  43.         Else
  44.             SQLDate = Format$(varDate, "\#mm\/dd\/yyyy hh\:nn\:ss\#")
  45.         End If
  46.     End If
  47. End Function
↑  ↓

#5 08.09.2020 10:56
Zuko Van mreze
Clan
Registrovan od:13.09.2010
Postovi:382


Predmet:Re: error 3075
Hvala Gjoreski, super radi

pozdrav
Pozdav,

Nedim
↑  ↓

Stranice (1):1


Sva vremena su GMT +01:00. Trenutno vrijeme: 12: 53 am.