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