form_frmogrenciDers formunun kodlarına aşağıdaki kodları ekle
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
Umarım anlatabilmişimdir
kolay gelsin