Predmet:Re: Pomoć oko sintaxe SQL i Procedure

---

Function VrijemePiljenja(DanP As Date)
Dim Db As Database
Dim SQL As String
Dim Rs As Recordset
Dim DatumS As String
If Format$(DanP) = "" Then GoTo Kraj
DatumS = "#" & Format(DanP, "mm-dd-yyyy") & "#"
SQL = "SELECT sum(VrijemePiljenja) As V FROM Pila WHERE DatumPiljenja=" & DatumS
Set Db = CurrentDb()
Set Rs = Db.OpenRecordset(SQL) ---- JAVLJA GREŠKU PRILIKOM COMPILACIJE
VrijemePiljenja = Rs.Fields(0)
Rs.Close
Set Db = Nothing
Kraj:
End Function