1. soru;

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.