Private Sub Form_Unload(Cancel As Integer)
    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 'ovo mi žuto
        End If
  End Sub