Prikazi cijelu temu 26.04.2011 20:52
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Pomoć oko sintaxe SQL i Procedure
Proceduru stavi u neki modul.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function VrijemePiljenja(DanP As Date)
  2.  Dim Db As Database
  3.  Dim SQL As String
  4.  Dim Rs As Recordset
  5.  Dim DatumS As String
  6.  
  7. if  Format$(DanP)="" goto Kraj
  8.  DatumS = "#" & Format(DanP, "mm-dd-yyyy") & "#"
  9.  SQL = "SELECT sum(VrijemePiljenja) As V FROM Pila WHERE DatumPiljenja=" & DatumS
  10.  
  11.  Set Db = CurrentDb()
  12.  Set Rs = Db.OpenRecordset(SQL)
  13.  VrijemePiljenja = Rs.Fields(0)
  14.  Rs.Close
  15.  Set Db = Nothing
  16. Kraj:
  17.  End Function

Ako imas na formi polje za datum koje se zove datum i polje vrijeme koje se zove vrijeme onda na control soure poljaverijem upisi ovo:
=VrijemePiljenja([Datum])
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.