Predmet:Re: Pomoć oko sintaxe SQL i Procedure

---

Funcion VrijemePiljenja(DanP as Date)
Dim Db as Database
Dim SQL as string
Dim Rs as Recordset
Dim DatumS as string

DatumS= "#" & Rormat(DanP,"mm-dd-yyyy") & "#"
SQL=T "SELECT sum(VrijemePiljenja) As V FROM Pila WHERE DatumPiljenja=" & Me.Datum

Set DB=Currentdb()
Set Rs= Db.Openrecordset(SQL)
VrijemePiljenja=Rs.Fields(0)
Rs.Close
Set Db=nothing
End function

Frnkciju Mozemo pozvati bilo odakle.

Napisao sam je ovdje pa je moguce da ima gresaka.
Ukoliko ti ne bude islo napisi samo imetabele i imena polja u tabeli iz koje ovo vadis.
Sretan rad.

---