tbl_Not_islemleri adlı tablonuza ve alt formunuza "ort" adında alan ekledikten sonra

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.