KDV onay kutusu visual basic kodu

Arkadaşlar ekteki veritabanında bi mağaza nın satışları var ve yeni kayıt girerken kdv onay kutusu işaretlendiğinde tutar kısmında kdv ekleniyor fakat onay kutusunu kaldırdığımda eski tutara nasıl dönebilirim veritabanını incelediğinizde sorunu anlıcaksınız zaten bu konuyu yarın öğretmenime göstermem lazım yardımcı olursanız sevinirim?

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.

yardım için teşekkürler

Teşekkürler..