Centar za edukaciju-BiH



#1 16.05.2012 11:33
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,854


Predmet:Queries to VBA
Imam edno Queri od koe imam izvadeno raport sega mi treba nesto slicno da go napravam za pecatejne preku VBA no ne mozam da go izvedam.
Eve go cql od od Querito
PreuzmiIzvorni kôd (Visual Basic):
  1. SELECT tblSmetki_Stavki.Stavka, Sum(tblSmetki_Stavki.Kolicina) AS Kolicina, tblSmetki_Stavki.Procent, tblSmetki_Stavki.Ed_Cena
  2. FROM tblSmetki INNER JOIN tblSmetki_Stavki ON tblSmetki.ID_Smetka = tblSmetki_Stavki.Smetka_Br
  3. WHERE (((tblSmetki.Data) Between [Forms]![frmPregled_Kasa_Restoran]![txtDataOD] And [Forms]![frmPregled_Kasa_Restoran]![txtDataDO]) AND ((tblSmetki.Magacin)=[Forms]![frmPregled_Kasa_Restoran]![cboMagacin]))
  4. GROUP BY tblSmetki_Stavki.Stavka, tblSmetki_Stavki.Procent, tblSmetki_Stavki.Ed_Cena
  5. ORDER BY Sum(tblSmetki_Stavki.Kolicina) DESC;

Eve kako go vadam recordsetot vo VBA
PreuzmiIzvorni kôd (Visual Basic):
  1. Dim db As DAO.Database
  2. Dim rs As DAO.Recordset
  3. Set db = CurrentDb()
  4. Set rs = db.OpenRecordset("qryKasa_Artikli_Top")
  5. While Not rs.EOF
  6.   MsgBox rs.Fields(1)
  7.   rs.MoveNext
  8. Wend
  9. Set rs = Nothing
↑  ↓

#2 16.05.2012 12:11
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Queries to VBA
Koji je tip polja ovo:
txtDataDO i txtDataOD
i
cboMagacin]
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 16.05.2012 12:42
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,854


Predmet:Re: Queries to VBA
Toa se polijna od formata za kade sto ke se stampa eve ke stavam i primer

Prilozi:
Informacije o tipu datoteke za:rar  Primer.rar
Preuzimanja:360
Velicina datoteke:119.31 KB

↑  ↓

#4 16.05.2012 13:25
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Queries to VBA
PreuzmiIzvorni kôd (Visual Basic):
  1. Function QueryP()
  2. Dim Db As Database
  3. Dim Rs As Recordset
  4. Dim SQL As String
  5. Dim Datum(1 To 2) As String
  6. Dim Magacin As Integer
  7.  
  8.  
  9. Set Db = CurrentDb()
  10. Magacin = Forms![frmPregled_Kasa_Restoran]![cboMagacin]
  11. Datum(1) = [Forms]![frmPregled_Kasa_Restoran]![txtDataOD]
  12. Datum(1) = DatumSQL(Datum(1))
  13. Datum(2) = [Forms]![frmPregled_Kasa_Restoran]![txtDataDO]
  14. Datum(2) = DatumSQL(Datum(2))
  15. SQL = "SELECT Stavka, Sum(Kolicina) AS Suma, Procent,Ed_Cena " _
  16.     & "FROM tblSmetki " _
  17.     & "INNER JOIN tblSmetki_Stavki ON tblSmetki.ID_Smetka = tblSmetki_Stavki.Smetka_Br " _
  18.     & "WHERE Data Between " & Datum(1) & " AND " & Datum(2) & "AND Magacin=" & Magacin _
  19.     & " GROUP BY Stavka, Procent, Ed_Cena " _
  20.     & "ORDER BY Sum(Kolicina) DESC;"
  21. Set Rs = Db.OpenRecordset(SQL)
  22. While Not Rs.EOF
  23.   MsgBox Rs.Fields(1)
  24.   Rs.MoveNext
  25. Wend
  26. End Function
  27.  
  28.  
  29. Function DatumSQL(Datum As String)
  30. Dim DatumS As String
  31.  
  32. DatumS = Format(Datum, "mm-dd-yyyy hh:nn:ss")
  33. DatumSQL = "#" & DatumS & "#"
  34. End Function

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#5 16.05.2012 13:58
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,854


Predmet:Re: Queries to VBA
ova funkcionira fala zxz pozdrav
↑  ↓

#6 16.05.2012 20:53
Bosanec Van mreze
Clan
Registrovan od:02.02.2009
Postovi:155


Predmet:Re: Queries to VBA
evo jedan adin za pretvorbu kverija u vba
alat je izuzetno dobar ne treba razbijat glavu Happy

pozdrav

Prilozi:
Informacije o tipu datoteke za:rar  SQL Grabber.rar
Preuzimanja:385
Velicina datoteke:18.42 KB

↑  ↓

#7 16.05.2012 21:42
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Queries to VBA
Bosanec to postavi u ovu temu.
http://www.icentar.ba/showtopic.php?id=37
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (1):1


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