Sayın farkli88 burada nacizhane tavsiyem izinleri ayrı ayrı tablolarda tutmamanız yönünde olacak, yani tüm izinleri tek bir tabloya indirgeyin böylece daha kolay işlem yapabilirsiniz

Siz en kolayı "Tbl_KullanilanDgrIzin" tablonuzdaki izin türlerine birde yıllık izin seçeneğini ekleyin

izin kayıtlarını yaptığınız formda , izin verme işlemi sırasında izin türü yıllık izin seçilmişse senelik toplam kalan izinden o an için girilen izin günü sayısını çıkartıp kalan toplam izin alanını bu değere göre güncelletirirsiniz

Sonra da yeni oluşturduğunuz forma (Frm_Deneme) bir adet daha açılan kutu ekleyip izin türüne göre filtreletme yapabilirsiniz

Aslında burada, bir projeye başlamadan önce mantık olarak şekillendirmenin ne kadar önemli olduğunu görüyorsunuz, çünkü sonradan fark ettiği bir eksiği düzeltmek için neredeyse tüm projeyi sıfırdan yapmak zorunda kalabiliyor insan. Ancak bu zamanla oturacaktır.
Bu arada çalışmalarınızı ve öğrenme hevesinizi takdir ediyorum
Başarılar

Sayın Hocam ilgi ve alakanıza çok teşekkür ederim, Uzun yıllar özel sektörde bilgisayar donanımı üzerine hizmet verip kriz sonrası nasibimizi devlet dairesinde bulunca "memur" mantalitesinin dışına çıkıp çalışmaya devam edip sizler sayesinde Access ile tanışıp dairemdeki kağıt ortamındaki işleri Access ile derlemeye çalıştım. Genelde görev için ankara dışına çıktığımız için vakit bulduğumuzda sizleri rahatsız ediyorum. Bahsi geçen programı sitede bulup kendimize uyarlamaya çalıştığım için bahsettiğiniz sıkıntılar oluyor ama bunada çok şükür sıkıntılarımıza üşenmeden çözüm bulabilen sizler gibi saygıdeğer hocalarımız var. Sağolun varolun. Ozan Beyin müthiş yardımlarından sonra sizin dediğiniz gibi yıllık iznide izinler arasına ekledim ama 12 nolu mesajımdaki 1. ve 3. sorunlarımı nasıl düzenleyebilirim?. Tekrar teşekkürler.

Dosya Ekliyemiyorum. Cevaplanmış konuya taşındığı içinmi?

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.

Ozan Bey, Yardımınız için tekrar çok teşekkürler. 1. ve 2. sorunlarımı çözmüşsünüz ama 3. sorumu tam anlatamadım galiba, herhangi bir şekilde işlem görmeyen diğer personelin kurumda olduğunu kimnerde formunda göremiyorum. Bu mümkünmü onuda bilmiyorum. Yani durum alanı varsayılan değeri "kurumda" olsada işlem görmeyen kişileri nasıl kurumda gösterebiliriz,

accesstrnet sorgusudaki Hepsi alanını incele. Aşağıdaki kodu liste kutusunun satır kaynağında kullanabilirsin.

Hepsi: IIf(IsNull([Durum])=-1;"Kurumda";[Durum])

Tekrar teşekkürler. Galiba artık oldu.