Function Rekord()
Dim Db As Database
Dim Rs As Recordset
Dim Bok As Integer
Dim SQL As String


On Error Resume Next
Set Db = CurrentDb()
Set Rs = Me.RecordsetClone
Rs.Bookmark = Me.Bookmark
Rs.MovePrevious
Bok = Rs!BROJ_OP
Set Rs = Nothing
If Bok = 0 Then
Me.Tag = ""
Else
SQL = "SELECT komada FROM tblRealizacija WHERE broj_op=" & Bok & " AND Broj=" & Forms![frmEvidencija]![broj]
Set Rs = Db.OpenRecordset(SQL)
Bok = 0
Do While Not Rs.EOF
Bok = Rs!komada + Bok
Rs.MoveNext
Loop
Me.Tag = Bok
End If
Set Rs = Nothing
Set Db = Nothing
End Function