Yıllık İzin Kodu hakkında - 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ığı: Yıllık İzin Kodu hakkında (/konu-yillik-izin-kodu-hakkinda.html) |
Yıllık İzin Kodu hakkında - osman06 - 11/03/2010 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 Cvp: Yıllık İzin Kodu hakkında - Puletin - 11/03/2010 Örneğiniz olmadığı için ufak bir örnek hazırladım İşinizi görürse kendinize uyarlayınız isterseniz... Cvp: Yıllık İzin Kodu hakkında - osman06 - 11/03/2010 hocam çok tşk elinize sağlık Cvp: Yıllık İzin Kodu hakkında - Puletin - 11/03/2010 Rica ederim ... |