Selamlar KoLay GeLsin Ufak ßir Öğrenci programı Yapıyorum. Notlar ßölümünde Vize 1 Vize 2 Final Ve Ortalama Hesaplatması Yaptırcam Yalnız % Lerini Almaya Çalıştığımda Her Hangi Bir Sonuç alamıyorum

Formül Konusunda Yardımcı Olabilirseniz Sevinirim.

Private Sub Vize_1_AfterUpdate()
es = 0
If Vize_1 <> 0 Then es = es + 1
If Vize_2 <> 0 Then es = es + 1
If Final <> 0 Then es = es + 1
Ortalama = (Vize_1 + Vize_2 + Final) / es
Refresh
End Sub

Toplama Çalışıyor yalnız % Leri alınca Her Hangi ßir Sonuç Yok

Es= es*0.4 Vize
Es=es*0.6 Final

Yardımlarınızı ßekliyorum Şimdiden Teşekkürler.