Prikazi cijelu temu 07.12.2012 17:35
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


Predmet:Re: Reden broj vo Queri
probav i vaka i so ova ne uspeav
PreuzmiIzvorni kôd (Visual Basic):
  1. Function RedenBroj(Baraj As String) As Integer
  2. On Error Resume Next
  3. Dim db As dao.Database, rs As dao.Recordset
  4.  
  5. Set db = CurrentDb
  6. Set rs = db.OpenRecordset("tblET_Promena_Cena_Kasa_Rb", dbOpenDynaset, dbReadOnly)
  7.  
  8. With rs
  9.  
  10. .FindFirst ("[Data] = " & CStr(DLookup("[Data]", "tblET_Promena_Cena_Kasa_Rb", "[Data] = " & "' & Baraj &'")))
  11.   RedenBroj = .AbsolutePosition + 1
  12.  
  13. End With
  14.  
  15. rs.Close
  16.   Set rs = Nothing
  17.   Set db = Nothing
  18.  
  19. End Function