Sekme Denetİmlİ Formda Alt Formdan İzİn TÜrÜne GÖre İzİn Sayisini DÜŞÜrme

yamahasg · 19 Haziran 2007

Herkese Selam Ekte GÖnderdİĞİm İzİn Formunda Sekme Denetİmlİ Bİr Formum Var Bİr Sayfasinda Personel Bİlgİlerİ DİĞerİnde İse İzİn Bİlgİlerİ Var. Bunlarla İlgİlİ Olarak;

Soru 1: İzİn SÜrelerİ (bu Yilkİ İznİ Ve GeÇen Yilkİİznİ) Arasindakİ SÜreyİ Bana Toplam İzİn SÜtununa Yazdiracak.

Soru 2: Alt Formda Bulunan İzİn Tarİhlerİnİ KaÇ GÜn Oalarak Verİ Syafasinda İzİn SÜresİ BÖlÜmÜnde GÖsterİp Bu SÜre Toplam İzİn SÜtunundan Çikrilarak Kalan İzİn Sayisini Verecek. Ve Bu Her İzİn GİrİŞİnde Kalan İzİn SÜresİ Azalacak. Yalinizca Bu AÇilan Kutu Olan Senelİk İzİn Sayisindan DÜŞecek. DİĞeer İzİn TÜrÜ GİrİldİĞİnde Kalan İzİn Sayisi DÜŞmeyecek.

Bu Şekİlde DÜzenleme Yapabİlİrmİsİnİz. Epeydİr Uğraşiyorum İŞİn İÇİnden Çikamadim...Şİmdİden TeŞekkÜr Ederİmmmm...

gulsum1 · 20 Haziran 2007

Dsum olayına bir el atalım herkes öğrensin

öncelikle senin izin tablonda bir sürü gerekesiz alan vardı onları sildim korkma işe yarar bölümler kaldı birde yıl diye bir alan ekledim tablona yılları ayırmak için sonra iki tane sorgu yaptın İZİNA ve İZİNE diye ilk sorgu içinde olduğumuz yılı ayırmak için ikincisi ise geçen yılı ayırmak için sorguların yıl alanının ölçüt kısmı Year(Date()) ve Year(Date())-1 olduğu için sistem tarihi ile ilgili diyelim sen birinin on yıl önceki izinine bakacan o zaman sitemin tarihini 10 yıl geriye getirdiğin zaman o kişinin 10 yıl önceki izinlerini görebileceksin birde sizin prosedürlerinizi bilmiyorum ama bizde devlet memurları 10 yıla kadar 20 gün 10 yıldan sonra 30 gün yıllık izin kullanırlar birde mazeret izni 10 gündür yıllık ve bir sonraki yıla devretmez diğer izinlerin limiti yoktur rapor sağlık gibi fakat onlardada belirli bir sayıdan sonra heyet raporu istendiğinden belki süre aşımı olduğunda uyarı verilebilirdi ama ben asıl sorun olan yıllık ve mazeret izinine yoğunlaştığımdan işin o kısmını başka arkadaşlara bıraktım neyse biz kendi yaptığımıza dönelim nerde kalmıştık 20 gün ve 30 gün diyorduk elimizde kesin bir sayı olması gerkiyordu ki toplamlardan düşelim bu nedenden dolayı kşinin İZİNA sorgusundaki yıllık izin toplamını formdaki sicil noyu baz alarak[SİCİLİ] = Formlar![İZİNLER]![SİCİLİ]") toplar ve bizim şu meşhur yaş kodu ile kişinin ilk göreve başlama tarihini kontrol ederek 10 yıl altında olanlarını yıllık iznini 20 günden 10 yıl üstünü 30 günden düşerek kalanlarını formda Metin15 yazar geçmiş yıl ise yine aynı mantıkla yalnız geçen yıl olduğu için 1 eksiğiyle kontrol edilerek Metin11 e yazılır Metin13 ise bu yıl kullandığı izin toplamı gelir bu arada Dsum olayınada bir göz atalım Dsum bir tablo yada sorguda bulunan bir stunun değerlerini toplamaya yarayan bir ifadedir kullanımı gayet basittir
DSum("[toplanacakstun]", "[tabloyadasorguadı]", "[süzmekiçinkullanılacakalantablodayadasorguda] = 'tırnakiçinde yazlırsa sabit olaraksüzer bizim yaptığımızgbi YILLIK'AND [tbloyadasorgudaekolaraksüzülecekalan] = Formlar![İZİNLER]![SİCİLİ]")
formdan belirli bir kritere bakma biz izinler formundaki sicili alanına bakarak diyelim İZİNA sorgusunda 1456 sicil nolu kişinin İzintürü alanında YILLIK olan İZİNSÜRES ni topladık
bir başka yerde bu topladığımızı 30- diyerek 30 dan çıkardık ikinci olarak yaş kodunu nasıl kullandığımız If Age([İLKGÖRBASTAR]) > 10 Then kodunu kullanarak ilk göreve başlama tarihi itibariyle 10 yılını doldurmuş ise dedik

Function İZİNHESAP()
If (Age([İLKGÖRBASTAR]) - 1) > 10 Then
Metin11 = 30 - DSum("[İZİNSÜRESİ]", "[İZİNE]", "[İZİNTÜRÜ] = 'SENELİK'AND [SİCİLİ] = Formlar![İZİNLER]![SİCİLİ]")
End If
If (Age([İLKGÖRBASTAR]) - 1) < 10 Then
Metin11 = 20 - DSum("[İZİNSÜRESİ]", "[İZİNE]", "[İZİNTÜRÜ] = 'SENELİK'AND [SİCİLİ] = Formlar![İZİNLER]![SİCİLİ]")
End If
If Age([İLKGÖRBASTAR]) > 10 Then
Metin15 = 30 - DSum("[İZİNSÜRESİ]", "[İZİNA]", "[İZİNTÜRÜ] = 'SENELİK'AND [SİCİLİ] = Formlar![İZİNLER]![SİCİLİ]")
End If
If Age([İLKGÖRBASTAR]) < 10 Then
Metin15 = 20 - DSum("[İZİNSÜRESİ]", "[İZİNA]", "[İZİNTÜRÜ] = 'SENELİK'AND [SİCİLİ] = Formlar![İZİNLER]![SİCİLİ]")
End If
Metin13.Value = DSum("[İZİNSÜRESİ]", "[İZİNA]", "[İZİNTÜRÜ] = 'SENELİK'AND [SİCİLİ] = Formlar![İZİNLER]![SİCİLİ]")
Metin9.Value = 10 - DSum("[İZİNSÜRESİ]", "[İZİNA]", "[İZİNTÜRÜ] = 'MAZERET'AND [SİCİLİ] = Formlar![İZİNLER]![SİCİLİ]")
End Function

Private Sub Form_BeforeUpdate(Cancel As Integer)
Call İZİNHESAP 'bu çağırma ile fonksiyonu çağırıyoruz
End Sub

Private Sub Form_Current()
Call İZİNHESAP
End Sub

bununlada izinler alt formunda dönüştarihi alanına çıkış tarihinin üzerine izin süresini ekliyoruz ayrıca süzmelerde yardım edecek yılı alanına ise çıkış tarihinin yıl kısmını yazdırıyoruz
Private Sub Metin4_AfterUpdate()
Call sürehesap
End Sub
Function sürehesap()
İZİNDENDÖNÜŞTARİHİ.Value = İZNEÇIKIŞTARİHİ.Value + İZİNSÜRESİ
YILI.Value = Year(İZNEÇIKIŞTARİHİ)
End Function

eğer kalanlarda -5 gibi bir ibare görürseniz kişi yıllık izin yada mazeret izinini fazladan kullnmış olur tabi kod ile bunlara izin verilmeyebilirdi ama sanırım arkadaş bira ileri götürünce programını kendisi yada gerekirse biz yaparız

umarım işinize yarar

yamahasg · 20 Haziran 2007

gülsüm hanım verdiğiniz cevap için teşekkür ederim. Bir nebze istediğim gibi oldu ama bende bir devlet kurumunda memur olarak çalışıyorum. Mesela çalıştığım yere yeni personel geldiği zaman bu kişinin evvelki sene izni 15 diyelim. Bu seneden 30 günlük izni var ve toplamda 45 gün izni var. Sizin yaptığınıza göre ilk memuriyete başlayanlar için ideal. Ama bizim kurum devamlı surette yer değiştirmeye müsait olduğu için bu bana fazla gelir.

Benim istediğim basit bir yöntemdi. Buna benzer bir örneği kurum arkadaşların yaptığı vardı ama kendime uyarlayamadım. o yüzden bu şekilde yapmak zorunda kaldım. Bana sadece gelen personele doldurttuğum bilgi formunda geçen yıldan kalan izin sayısı ve bu yıl izin sayısı bölümü var. ve izin ayı sütunu.

Buna göre izin sayılarına elle giriş yapacağım. Ve bana bir sütunda toplamını verecek. Ve bu personel her izne ayrılışında başka bir metin kutusunda (kalan izin) ayrıldığı süre kadar izin sayısı düşecek.

Sizinki gibi fazla detaya bence gerek yok. yukarıdaki örneğe uygun tekrar yapabilirseniz sevinirim.

gulsum1 · 20 Haziran 2007

e be kardeşim biz hangi tarihteyiz 20.06.2007 sen kayıta yeni gelen personele diyelim maksat geçen yıldan kalanını programa tanıtmakya o nedenden dolayı öylesine 15.02.2006 tarihine 9 gün girdin mesela sen formu bir daha açyığında 2006 ya girdiğin kaydı görmezsin ama o geçmiş yıldan izin kullanmış sayılır adam diyelim 9 yıllık böylece geçen yıldan kalan izni otomotikmen 11 gün olarak forma gelir bunu formun mantığına bakınca anlaman lazımdı
ben sana her şeyi otomotik hesaplayan bir program yapıyorum sense ben bütün bilgileri elle girecem bir tek akutusu=(bkutusu+ckutusu)-dkutusu yapsın yeter diyorsun sen galiba yaptığım programın mantığını anlamadın program o yıl çıkılan izinleri toplar içinden yıllık izinleri ayırır toplar ve eğer adam 10 yıldan büyükse 30 dan düşer sana o yılki kalan iznini verir eğer geçen yıldan kalan izni varsaki onuda program kontrol eder ve kalanı yazar sonrada iki kalanı toplar ve kaç gün daha kullanabileceğini sana söyler sen bir tek izine çıktığı tarihi izin türünü ve kullanacağı izin gününü yazacan diğer bütün işlemleri program kendi yapar yok ben geçen yılı yazayım bu yılıda bilgisayarda hesap makişnesi var ondan çıkarırım ne varki dersen senin program önceki halinden 1 adım ileri gidemez senin beğenmediğin programa ben kaç saat uğraştım bilyormusun tam 5,5 saat bence o programı iyi incele bundan sonra ben bu programın daha ileri nasıl götürülür aşamasında yardım ederim geriye gidiş olmaz yukarda tane tane anlattım benden başkada böyle tane tane anlatan bulamazsın ben yaptım koydum bak bilyorsan anlarsın derler

yamahasg · 20 Haziran 2007

gülsüm hanım kusura bakmayın tam olarak yapamamıştım o yüzden o şekilde yazdım. ama şimdi mantığı anladım. ve sorunu çözdüm herşey için teşekkür ederim

zorkazanan · 30 Haziran 2008

teşekkürler....

Sekme Denetİmlİ Formda Alt Formdan İzİn TÜrÜne GÖre İzİn Sayisini DÜŞÜrme

yamahasg

gulsum1

yamahasg

gulsum1

yamahasg

zorkazanan