Eklenen son örnek değiştirildi inceleyiniz eksiklik varsa lütfen bildiriniz.
Private Sub Form_Current()
Dim A As Integer
A = Nz(DSum("[Gun]", "tbizin", "[izintürü]='YILLIK İZİN' And [ID]=Forms!frmadısoyadı!ıd"), 0)
Me.Metin126 = Nz(DLast("[Gun]", "tbizin", "[izintürü]='YILLIK İZİN' And [ID]=(forms!frmadısoyadı!ıd)"), 0)
Me.Metin136 = Nz(DSum("[Gun]", "tbizin", "[izintürü]='YILLIK İZİN' And [ID]=Forms!frmadısoyadı!ıd"), 0) - Me.Metin126
Me.Metin128 = Me.Hakettiği - A
End Sub