Onay kutusunun tıklandığında olayındaki kodu;

Private Sub onay_Click()

If Me.onay = -1 Then

tutar = ([Ürün adeti] * [Ürün Fiyatı]) * 1.18

Else

tutar = ([Ürün adeti] * [Ürün Fiyatı])

End If

End Sub

olarak değiştirin.