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