If Me.O.Value = -1 Then

        p = Toplam - 1

        Me.M.Value = p

    End If

If Me.O.Value = 0 Then

        p = Toplam 

        Me.M.Value = p

    End If

 evet ama o kodun devamında onay kutusunun işaretli olmaması durumunu da belirttim.