Access kod

ozkovlu29 · 11-05-2015, 09:47

Private Sub Komut4_Click()
Forms![Frm_Personel].SetFocus
Forms![Frm_Personel]![YılKaz].SetFocus
DoCmd.GoToRecord , , acNewRec
Forms![Frm_Personel]![YılKaz]![HKYıl] = Me.YLThk
Forms![Frm_Personel]![YılKaz]![HKSure] = Me.HakTah
Forms![Frm_YillikTahakkuk].SetFocus
DoCmd.Close
End Sub
bu kod mevcut yılı baz alıyor, ama ben istediğim herhangi bir yılı ekletmek istiyorum. kodda nasıl bir değişiklik yapmam icap eder.
yani, Tek tek hakkedilen izinler
2010= 20
2011=25
2012=28
2013=28
2014=28
2015=30 şeklinde girmek için ne yapılması gerekiyor.

onur_can · 11-05-2015, 12:49

Visual Basic
Select Case yil
Case 2010
HizmetYılı=20
Case 2011
HizmetYılı=25
Case 2012 to 2014 
HizmetYılı=28
Case Year(Date)
HizmetYılı=30
End Select

yukarıda vermiş olduğunuz çıktının kodu bu şekilde olabilir.

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL