+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Vize Final HesapLatma (/konu-vize-final-hesaplatma.html)
Sayfalar:
1
2
Cvp: Vize Final HesapLatma - ayhan2122 - 18/05/2010
Şu şekilde deneyiniz
Kod:
Private Sub Vize_1_AfterUpdate()
Hesaplama1
End Sub
Private Sub Vize_2_AfterUpdate()
Hesaplama1
End Sub
Private Sub Final_AfterUpdate()
Hesaplama1
End Sub
Public Sub Hesaplama1()
On Error GoTo HATA
Dim eS
eS = 3
If IsNull(Vize_1) Then
eS = eS - 1
Else
eS = eS
End If
If IsNull(Vize_2) Then
eS = eS - 1
Else
eS = eS
End If
If IsNull(Final) Then
eS = eS - 1
Else
eS = eS
End If
Ortalama = (Nz(Vize_1, 0) + Nz(Vize_2, 0) + Nz(Final, 0)) / eS
CIKIS:
Exit Sub
HATA:
Ortalama = Null
Resume CIKIS
End SubCvp: Vize Final HesapLatma - |By|KiDnArUt| - 19/05/2010
Çok Teşekkür Ederim Sayenizde ßirşeyler Öğrenmeye ßaşladım. Sitedeki Herkese Teşekkürler.
Şu Kısımda ßir Düzenleme Yaptım. Diyer Formülde Sadece Toplayım 3 E ßölüyor
Ortalama = (Nz(Vize_1 * 0.2) + Nz(Vize_2 * 0.2) + Nz(Final * 0.6))
Karşılaşacak Arkadaşlar İçin
KoLay GeLsin