SELECT tblSmetki_Stavki.Stavka, Sum(tblSmetki_Stavki.Kolicina) AS Kolicina, tblSmetki_Stavki.Procent, tblSmetki_Stavki.Ed_Cena

FROM tblSmetki INNER JOIN tblSmetki_Stavki ON tblSmetki.ID_Smetka = tblSmetki_Stavki.Smetka_Br

WHERE (((tblSmetki.Data) Between [Forms]![frmPregled_Kasa_Restoran]![txtDataOD] And [Forms]![frmPregled_Kasa_Restoran]![txtDataDO]) AND ((tblSmetki.Magacin)=[Forms]![frmPregled_Kasa_Restoran]![cboMagacin]))

GROUP BY tblSmetki_Stavki.Stavka, tblSmetki_Stavki.Procent, tblSmetki_Stavki.Ed_Cena

ORDER BY Sum(tblSmetki_Stavki.Kolicina) DESC;

Dim db As DAO.Database

Dim rs As DAO.Recordset

Set db = CurrentDb()

Set rs = db.OpenRecordset("qryKasa_Artikli_Top")

While Not rs.EOF

  MsgBox rs.Fields(1)

  rs.MoveNext

Wend

Set rs = Nothing

Function QueryP()

Dim Db As Database

Dim Rs As Recordset

Dim SQL As String

Dim Datum(1 To 2) As String

Dim Magacin As Integer

 

 

Set Db = CurrentDb()

Magacin = Forms![frmPregled_Kasa_Restoran]![cboMagacin]

Datum(1) = [Forms]![frmPregled_Kasa_Restoran]![txtDataOD]

Datum(1) = DatumSQL(Datum(1))

Datum(2) = [Forms]![frmPregled_Kasa_Restoran]![txtDataDO]

Datum(2) = DatumSQL(Datum(2))

SQL = "SELECT Stavka, Sum(Kolicina) AS Suma, Procent,Ed_Cena " _

    & "FROM tblSmetki " _

    & "INNER JOIN tblSmetki_Stavki ON tblSmetki.ID_Smetka = tblSmetki_Stavki.Smetka_Br " _

    & "WHERE Data Between " & Datum(1) & " AND " & Datum(2) & "AND Magacin=" & Magacin _

    & " GROUP BY Stavka, Procent, Ed_Cena " _

    & "ORDER BY Sum(Kolicina) DESC;"

Set Rs = Db.OpenRecordset(SQL)

While Not Rs.EOF

  MsgBox Rs.Fields(1)

  Rs.MoveNext

Wend

End Function

 

 

Function DatumSQL(Datum As String)

Dim DatumS As String

 

DatumS = Format(Datum, "mm-dd-yyyy hh:nn:ss")

DatumSQL = "#" & DatumS & "#"

End Function