Detaljnije pojašnjenje.
Imam tablicu "duplo"u kojoj s mi uneseni artikli,kolicina,cijena I vrijednost,te datum_racuna.
Meni je potrebno da sumiram sav unos za određeni vremenski period(kriterij)koji sam zadajem-putem unbund polja StartDate I EndDate.
Cod koji radi sql I pouziva izvještaj za taj sql izgleda ovako.
Public Function fpotvrdi()
On Error GoTo Err_cmdPreview_Click
Dim sql, a, z As String
Dim db3 As DAO.Database, tb3 As DAO.Recordset, br As Integer
Dim stDocName As String
[Forms]![ulazreport].Visible = False
Rem ovaj stdocname je report na kojemu bi trebao dobit Sifra_artikla,total,grand,sumvrijednost
stDocName = "elementi"
sql = "SELECT Duplo.SIFRA_ARTIKLA, Sum(Duplo.KOLICINA) AS totaL ,sum([Duplo].[Cijena])AS grand ,sum([Duplo].[vrijednost])AS sumvrijednost "
sql = sql & " FROM Duplo"
sql = sql & " WHERE (Duplo.DATUM_RACUNa <= " & DateToStr(startdate) & " Duplo.DATUM_RACUNa >= " & DateToStr(enddate) & ""
sql = sql & " GROUP BY Duplo.SIFRA_ARTIKLA"
sql = sql & " ORDER BY Duplo.SIFRA_ARTIKLA"
MsgBox sql
Me.RecordSource = sql
MsgBox Me.Sifra_artikla
DoCmd.OpenReport stDocName, acPreview, sql
DoCmd.maximize
DoCmd.RunCommand acCmdZoom100
Me.Visible = False
DoEvents
While SysCmd(acSysCmdGetObjectState, acReport, stDocName) = 1
DoEvents
Wend
Me.Visible = True
DoEvents
Exit_cmdPreview_Click:
Exit Function
Err_cmdPreview_Click:
MsgBox Err.Description
Resume Exit_cmdPreview_Click
tb3.Close
db3.Close
End Function
Ov je kod za konverziju datumskog kriterija u sql-u
Public Function DateToStr(Datum As Date) As String
DateToStr = " DateSerial(" & CStr(Year(Datum)) & ", " & CStr(Month(Datum)) & ", " & CStr(Day(Datum)) & ") "
End Function
Na koji način da napravim izvještaj.
U izvještaju treba bit Sifra_artikla,total,grand i sumvrijednosti.To jest zbirni zbroj polja grupiranih po sifri artikla za određeni vremenski period(kriterij)
Što da stavim u record source izvjestaja, record source polja, filter........itd.
Može mi netko malo na osnovu ovih gore podataka dat informaciju kako se to radi,ili neki primjer.
Nadam se da sam pojasnio malo svoj problem
Hvala!
romano