AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Vize Final HesapLatma

1 2
18/05/2010, 23:20

ayhan2122

Ş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 Sub
19/05/2010, 05:13

|By|KiDnArUt|

Ç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
1 2