18/05/2010, 23:20
Ş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