AccessTr.neT
İzin takip hesaplama sorunum - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: İzin takip hesaplama sorunum (/konu-izin-takip-hesaplama-sorunum.html)

Sayfalar: 1 2 3


Cvp: İzin takip hesaplama sorunum - yturan - 13/10/2011

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...


Cvp: İzin takip hesaplama sorunum - Puletin - 13/10/2011

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.


Cvp: İzin takip hesaplama sorunum - Puletin - 13/10/2011

(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



Cvp: İzin takip hesaplama sorunum - yturan - 13/10/2011

Puletin, harikasınız...


Cvp: İzin takip hesaplama sorunum - yturan - 14/10/2011

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....


Cvp: İzin takip hesaplama sorunum - Puletin - 17/10/2011

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