Private Sub ort_Enter()
Dim A, B, C, D, Bol As Integer
Dim Y1, Y2, Y3, S1, S2, S3, ODV, KNT As Integer
If IsNull(Me.Ctl3yazili) = True Then A = 0 Else A = 1
If IsNull(Me.Ctl3sozlu) = True Then B = 0 Else B = 1
If IsNull(Me.odev) = True Then C = 0 Else C = 1
If IsNull(Me.kanaat) = True Then D = 0 Else D = 1
Bol = A + B + C + D + 4
Y1 = Nz(Me.Ctl1yazili, 0)
Y2 = Nz(Me.Ctl2yazili, 0)
Y3 = Nz(Me.Ctl3yazili, 0)
S1 = Nz(Me.Ctl1sozlu, 0)
S2 = Nz(Me.Ctl2sozlu, 0)
S3 = Nz(Me.Ctl3sozlu, 0)
ODV = Nz(Me.odev, 0)
KNT = Nz(Me.kanaat, 0)
Me.ort = (Y1 + Y2 + Y3 + S1 + S2 + S3 + ODV + KNT) / Bol
End Sub
3. sözlü ve 3.yazılı ile ödev notu ile kanaat notu olup olmadığına göre bölme işlemi yapacaktır hocam . Umarım işinizi görür.