I need check all data from list not only selected item so I had to change the code little bit
If Nz(DCount("[Priorytet]", "tblZlecenia", "[Priorytet]=" & pozycja), 0) > 0 Then
Now it's working. You really helped me SmallTime, Thank you for solving my problem