Private Sub IDnaloga_AfterUpdate()
Me.IDPozicije.Value = Null
If (IsNull(DLookup("[NalogID]", "ArhivaNalog", "[NalogID] =" & [Forms]![frmEvidencijaRadnici]![subEvidencija].[Form]![IdNaloga]))) Then   
Me.IDPozicije.RowSource = "Q_NalogPozicijeSve"
Else
Me.IDPozicije.RowSource = "Q_NalogPozicije"
End If
Me.IDPozicije.SetFocus
End Sub