Private Sub Form_Unload(Cancel As Integer)
On Error GoTo err
    Dim ID
    ID = Me.ID
    If Trim(Format$(ID)) <> "" Then
    Forms![F_Posao]![RadnoMjesto] = Me.ID
    Forms![F_Posao]![RadnoMjesto].RowSource = Forms![F_Posao]![RadnoMjesto].RowSource
        End If
err:
   Exit Sub
  End Sub