Predmet:Re: Recordser od Query so parametri

---

A mozes i ovako:
Ovo je za "qryPopis_Izlez"

Dim SQL As String
Dim Data As String
Dim Magacin As Integer
Dim Db As Database
Dim Rs As Recordset

Magacin = [Forms]![frmPopis]![Magacin]
Data = "#" & Format([Forms]![frmPopis]![Data], "dd-mm-yyyy") & "#"
SQL = "SELECT tblFaktura_Stavki.Stavka, Sum(tblFaktura_Stavki.Kolicina) AS Vk_Izlez " _
& "FROM tblFakturi INNER JOIN tblFaktura_Stavki ON tblFakturi.ID_Faktura = tblFaktura_Stavki.Faktura_Br " _
& "WHERE (((tblFakturi.Data) <=" & Data & ") And ((tblFakturi.Magacin) =" & Magacin & ")) " _
& "GROUP BY tblFaktura_Stavki.Stavka, tblFakturi.Tip_Faktura " _
& "HAVING (((tblFakturi.Tip_Faktura)=1 Or (tblFakturi.Tip_Faktura)=7))"
Set Db = CurrentDb
Set Rs = Db.OpenRecordset(SQL)

---