Prikazi cijelu temu 16.05.2012 11:33
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


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