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

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

osman06

Aktif Üye
Aktif Üye
 Belirtilmemiş
 239
 45
 22/11/2008
0
 Ankara
 
 Ofis 2003
 15/07/2018,15:58
Çö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
Onursal Üye
 Belirtilmemiş
 1.716
 40
 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...


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

Kullanici Avatari

osman06

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



Kullanici Avatari

Puletin

Onursal Üye
Onursal Üye
 Belirtilmemiş
 1.716
 40
 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ü Sıralanan Veriler Hakkında notrino 2 40 19/09/2018, 11:42
Son Yorum: notrino
Çözüldü Ole Nesnesi Hakkında notrino 2 58 17/09/2018, 11:09
Son Yorum: notrino
Çözüldü Sayı Sınırlama Hakkında notrino 2 77 06/09/2018, 12:28
Son Yorum: notrino
Çözüldü Satınalma Takip Yazılımı Hakkında DJ_CrAzY43 8 378 06/09/2018, 11:11
Son Yorum: PROSAN
Çözüldü Mesaj Kutusu Hakkında notrino 8 218 01/09/2018, 11:46
Son Yorum: mehmetdemiral

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