Acces

[ozkovlu]

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.

 

[akd]

Örneginizi eklerseniz daha net cevap alırsınız.