Option Compare Database
Option Explicit


Private Sub Form_Current()
'Written by Helen Feddema 4-Oct-2007
'Last modified 4-Oct-2007

On Error GoTo ErrorHandler
Call Rekord
   Me.txtSelectedID.Value = Me.BROJ_OP
   
ErrorHandlerExit:
   Exit Sub

ErrorHandler:
   MsgBox "Error No: " & Err.Number & "; Description: " & _
      Err.Description
   Resume ErrorHandlerExit

End Sub


Function Rekord()
On Error Resume Next
Dim Bok As Integer
Bok = Me.Recordset.AbsolutePosition + 1
Me.Tag = Bok
End Function