Süresi Biten Silinmesin -Pasif Gözüksün.

after update olayını bu şekilde düzenlemeniz lazım.
combo olmasın dediğiniz için metin kutusuna çevirmiştim onu.
Private Sub Metin12_AfterUpdate()
Dim demiral As Integer, ilktarih As Date
ilktarih = Nz(Me.Metin12)
demiral = Nz(Me.Metin14)
Me.Metin16 = ilktarih + demiral
Me.List2.Requery
End Sub

Sn.POWER hocam, aktif-Pasif konusu olmuş, ancak Liste2'den arama yaparken pasif kayıda ancak pasif işareti ile ulaşılabiliniyor...Bu normal midir ? 1000 kayıt olduğunu düşünürsek önce aktif...bulamazsak pasifi işaterlememiz gerekecek...

Süresi metin kutusunu serbest bırakıp, yani tabloda olmayan gün-ay girdiğimizde aynı sonuş akışına ulaşmamız olabilir mi ? Olursa sağlıklı olur çünki,mahkeme her türlü süreyi verebiliyor...Örnek; 2 gün ile 6 ay gibi uzaklaştırma süresi verebiliyor...burada farklı bir metod bulmamız lazım ! Tşk.

Yenilenmiştir...

Sn.POWER hocam; aktıf pasif olayı ve araması tamamdır.İlginize teşekkür ediyorum.

Sn.Fatih Karagöl, konuya katkılarınız ve konuyu yönlendirmeniz için teşekkür ediyorum.