Ayrıca son kayıda göre değil de en son tarihe göre olması daha anlamlı olacak...

Ama böyle de kullanılabilir... Çok sağolun...

Birde sadece YILLIK İZİN kayıtlarında hesaplama yapılacaksa ozaman Metin136 Önceden kullandığı izin içi

=DSum("[Gun]";"tbizin";"[izintürü]='YILLIK İZİN'  And [ID]=Forms!frmadısoyadı!ıd")-[Metin126]

Bunu yazmamız gerekecek.

(13/10/2011, 20:05)yturan yazdı: Ayrıca son kayıda göre değil de en son tarihe göre olması daha anlamlı olacak...

Örnek ekte gönderilmiştir..Sayın yturan

Puletin, harikasınız...

Sayın Puletin,

Son örnekte bir iki yerde yanlışlık var. Şimdi kullandığı izni doğru almıyor, Tüm kayıtlar içindeki en son kaydı alıyor. Burada, o kişinin en son kaydını getirmesi gerekiyor.
İkincisi; Önceden kullandığı izni kısmını da doğru almıyor.
Bir sorun var ama çözemedim....

Sayın yturan özür dilerim bir kaçgündür Foruma giremiyordum mesajınızı yeni gördüm.
Eklenen son örnek değiştirildi inceleyiniz eksiklik varsa lütfen bildiriniz.

Private Sub Form_Current()

Dim A As Integer

A = Nz(DSum("[Gun]", "tbizin", "[izintürü]='YILLIK İZİN'  And [ID]=Forms!frmadısoyadı!ıd"), 0)

Me.Metin126 = Nz(DLast("[Gun]", "tbizin", "[izintürü]='YILLIK İZİN'  And [ID]=(forms!frmadısoyadı!ıd)"), 0)

Me.Metin136 = Nz(DSum("[Gun]", "tbizin", "[izintürü]='YILLIK İZİN'  And [ID]=Forms!frmadısoyadı!ıd"), 0) - Me.Metin126

Me.Metin128 = Me.Hakettiği - A

End Sub