Private Sub Final_Notu_AfterUpdate()

hesapla

End Sub



Private Sub Vize_Notu_AfterUpdate()

hesapla

End Sub

Sub hesapla()

Dim vize

Dim final

Dim Sonuc

vize = (Me.Vize_Notu.Value * 30) / 100 'vize notunun %30 al

final = (Me.Final_Notu.Value * 70) / 100 'final notunu %70 al

Sonuc = vize + final 'sonuc değişkenine hesaplanan değerleri hesapla

Me.Sonuc.Value = Sonuc 'formundaki sonuç alanına değeri yazdır.

If Sonuc >= 50 Then Me.Durumu.Value = "GEÇTİ": Exit Sub 'sonuç 50 ye eşit yada büyükse formun üstündeki durumu alanına "geçti yaz"

If Sonuc <= 49 Then Me.Durumu.Value = "KALDI": Exit Sub  ''sonuç 50 den küçükse formun üstündeki durumu alanına "kaldı yaz"

End Sub