Predmet:Re: Reden broj vo Queri
probav i vaka i so ova ne uspeav
PreuzmiIzvorni kôd (Visual Basic):Function RedenBroj(Baraj As String) As Integer
On Error Resume Next
Dim db As dao.Database, rs As dao.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("tblET_Promena_Cena_Kasa_Rb", dbOpenDynaset, dbReadOnly)
With rs
.FindFirst ("[Data] = " & CStr(DLookup("[Data]", "tblET_Promena_Cena_Kasa_Rb", "[Data] = " & "' & Baraj &'")))
RedenBroj = .AbsolutePosition + 1
End With
rs.Close
Set rs = Nothing
Set db = Nothing
End Function