Hocam tam siz cevap vermeden önce;

Private Sub durumu_Exit(Cancel As Integer)

    Forms![personel]!Etiket10.Caption = IIf(DCount("durumu", "istihkakSorgu", "durumu='aldı'") >= 4, "hakkı yok", "alabilir")

End Sub

yaptım çalışmıştı. Yinede çok teşekkür ederim.