KLDgrGunSayisi alanının güncellenme sonrasında olayına
Me.KLDgrBitTar = Me.KLDgrBasTar + Me.KLDgrGunSayisi
If Me.KLDgrBitTar > Date Then
Me.Durum = "İzinli"
Else
Me.Durum = "Kurumda"
End If
If Me.KLDgrBitTar > Date And Me.KLDgrIzinTurBag = "9" Or Me.KLDgrBitTar > Date And Me.KLDgrIzinTurBag = "10" Then
Me.Durum = "Görevli"
Else
Me.Durum = "Kurumda"
End If
yaz.
Tbl_KullanilanDgrIzin tablosundaki Durum alanının Varsayılan değeri "Kurumda" olarak belirtilmiş, bu durumda tüm yeni kayıtlarda "Kurumda" yazılacak, sonraki değişikliklerde üstteki kod yardımıyla izinde ise izinde, döndüyse tekrar Kurumda yazacak.
Burada herhangi bir sorun yok.