Private Sub IDnaloga_AfterUpdate()
Me.Pozicija.RowSource = Me.Pozicija.RowSource
End Sub