Yıllık İzin Kodu hakkında
Tarih
11/03/2010 12:59
Konu Sahibi
osman06
Yorumlar
3
Okunma
1735
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



osman06
Aktif Üye
Kullanici Avatari
Aktif Üye
233
22/11/2008
0
Ankara
Ofis 2003
04/10/2016,23:18
Çözüldü 
aşağıdaki kod un bi kısmı doğru çalışıyor yalnız aşağıdaki kodla şunu (siteden alınma bi koddur tabi) yapmak istedim 1 yıl ile 10 yıl arası 10 yıl dahil 20 gün 10 yıldan sonra 30 gün ama bu kodla 01.01.2000 yazdığımda 30 gün hesaplıyo bi yanlışlıkmı var acaba yardımlarınız için şimdiden teşekkürler.



Private Sub Komut39_Click()
Dim Bugun As Date
Dim CalSure As Long
Dim Giris As Date
Dim HakIzin As Byte
Dim Yl As Integer
On Error GoTo 10

Bugun = Date
Yl = Year(Bugun)
Giris = Me.BasTar
CalSure = Bugun - Giris

If CalSure <= 364 Then
HakIzin = 0
Else
If CalSure > 364 And CalSure <= 3652 Then
HakIzin = 20
Else
HakIzin = 30
End If
End If


DoCmd.OpenForm "Frm_YillikTahakkuk"
Forms![Frm_YillikTahakkuk]![HakTah] = HakIzin
Forms![Frm_YillikTahakkuk]![Ad] = Me.Adi
Forms![Frm_YillikTahakkuk]![SoyAd] = Me.Soyadı
Forms![Frm_YillikTahakkuk]![YLThk] = Yl
Exit Sub

10 MsgBox Err.Description
Exit Sub

End Sub
Cevapla


Puletin
Uzman
Kullanici Avatari
Uzman
1.716
01/11/2008
416
Ülke Dışı
Ofis 2003
29/10/2016,20:35
Çözüldü 
Örneğiniz olmadığı için ufak bir örnek hazırladım
İşinizi görürse kendinize uyarlayınız isterseniz...


Ek Dosyalar
.rar   Yılizin.rar (Dosya Boyutu: 24,5 KB / İndirme Sayısı: 53)
Kaplumbağa ya dikkat et...
Sadece başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla


osman06
Aktif Üye
Kullanici Avatari
Aktif Üye
233
22/11/2008
0
Ankara
Ofis 2003
04/10/2016,23:18
Çözüldü 
hocam çok tşk elinize sağlık
Cevapla


Puletin
Uzman
Kullanici Avatari
Uzman
1.716
01/11/2008
416
Ülke Dışı
Ofis 2003
29/10/2016,20:35
Çözüldü 
Rica ederim ...
Kaplumbağa ya dikkat et...
Sadece başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Liste kutusu sütün hizlama ve biçim değiştirme hakkında nightashes 13 119 10 saat önce nightashes
  Personel İzin Takip Prog. Hakkında ? captain_10 4 222 28/11/2016, 14:28 atoz112
  Açılan kutuda girilen ürün kodu yoksa, form açma ferhatozge 9 206 23/11/2016, 23:45 ozanakkaya
  Güncelleştirme Sorgusu Çalıştırınca Kayıt Kilit Hatası Hakkında shalala 2 54 23/11/2016, 00:39 shalala
  Pencere Gizleme Hakkında Serkan Çevik 3 104 09/11/2016, 22:43 Serkan Çevik


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya