Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
11/03/2010 12:59
Konu Sahibi
osman06
Yorumlar
3
Okunma
2300
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

osman06

Aktif Üye
 Belirtilmemiş
 45
 239
 22/11/2008
0
 Ankara
 
 Ofis 2003
 05/11/2018,09:34
Çö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



Kullanici Avatari

Puletin

Onursal Üye
 Belirtilmemiş
 40
 1.717
 01/11/2008
416
 -
 
 Ofis 2003
 24/12/2016,00:18
Çözüldü 
Örneğiniz olmadığı için ufak bir örnek hazırladım
İşinizi görürse kendinize uyarlayınız isterseniz...


Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...

Kullanici Avatari

osman06

Aktif Üye
 Belirtilmemiş
 45
 239
 22/11/2008
0
 Ankara
 
 Ofis 2003
 05/11/2018,09:34
Çözüldü 
hocam çok tşk elinize sağlık



Kullanici Avatari

Puletin

Onursal Üye
 Belirtilmemiş
 40
 1.717
 01/11/2008
416
 -
 
 Ofis 2003
 24/12/2016,00:18
Çözüldü 
Rica ederim ...


Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Fonksiyon Tuşları Hakkında Oğuz Türkyılmaz 2 182 15/02/2019, 12:44
Son Yorum: Oğuz Türkyılmaz
Çözüldü Aynı Kayıt Kontrol Kodu 2 Farklı Sonuç... Oğuz Türkyılmaz 3 183 08/02/2019, 16:27
Son Yorum: Oğuz Türkyılmaz
Çözüldü Sql Kodun Düzenlenmesi Hakkında sercann 8 258 29/01/2019, 23:10
Son Yorum: sercann
Çözüldü Me.keypreview = True Hakkında Oğuz Türkyılmaz 2 116 26/01/2019, 19:02
Son Yorum: Oğuz Türkyılmaz
Çözüldü Metin Kutularında Hesaplama Hakkında Oğuz Türkyılmaz 2 102 24/01/2019, 10:34
Son Yorum: Oğuz Türkyılmaz

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.