Private Sub Form_Current()





A1 = DateDiff("yyyy", Me.ise_giris, Now())

Me.hizmet_yili = A1

If A1 <= 5 Then

   Me.hakettigi_izin = A1 * 14

End If

If A1 >= 5 And A1 <= 14 Then

   Me.hakettigi_izin = 5 * 14 + (A1 - 5) * 20

End If

If A1 >= 15 Then

   Me.hakettigi_izin = 5 * 14 + 9 * 20 + (A1 - 14) * 26

End If

If IsNull(Me.kullanilan_izin) Then Me.kullanilan_izin = 0

Me.kalan_izin = Me.hakettigi_izin - Me.kullanilan_izin

End Sub

Kodu yukarıdaki gibi değiştiriniz...