KDV Checkbox'ının güncelleştirme sonrasında olayına yazdığınız kodlarınız hatalı aşağıdaki gibi değiştirin.

If Me.ckdahil = -1 Then



Me.kdvdahil.Caption = "Kdv Dahil"

Me.Tbl_Faturadetay_alt_formu!Kdvsiz_Fiyat = (Tbl_Faturadetay_alt_formu!Satis_Fiyati * 100) / (Tbl_Faturadetay_alt_formu!Kdv_Orani + 100)

Me.Tbl_Faturadetay_alt_formu!Kdvli_Fiyat = Tbl_Faturadetay_alt_formu!Satis_Fiyati

Me.xiskonto.Visible = True

Me.Dahil_Genel_Toplam.Visible = True

Me.Dahil_Iskonto_Toplami.Visible = True

Me.Dahil_Kdvli__Tutar.Visible = True

Me.Dahil_Kdv_Toplami.Visible = True

Me.Dahil_Kdvli_Aratoplam.Visible = True

Me.Dahil_Genel_Toplam.Visible = True

Me.Haric_Genel_Toplam.Visible = False

Me.Haric_Iskonto_Toplam.Visible = False

Me.Haric_Kdv_Toplami.Visible = False

Me.Haric_Kdvli_Aratoplam.Visible = False

Me.Haric_Kdvli_Tutar.Visible = False



Me.Dahil_Genel_Toplam.Requery

Me.Dahil_Iskonto_Toplami.Requery

Me.Dahil_Kdv_Toplami.Requery

Me.Dahil_Kdvli__Tutar.Requery

Me.Dahil_Kdvli_Aratoplam.Requery

Me.Haric_Genel_Toplam.Requery

Me.Haric_Iskonto_Toplam.Requery

Me.Haric_Kdv_Toplami.Requery

Me.Haric_Kdvli_Aratoplam.Requery

Me.Haric_Kdvli_Tutar.Requery



Else

 

Me.kdvdahil.Caption = "Kdv Hariç"

Me.Tbl_Faturadetay_alt_formu!Kdvsiz_Fiyat = Tbl_Faturadetay_alt_formu!Satis_Fiyati

Me.Tbl_Faturadetay_alt_formu!Kdvli_Fiyat = Tbl_Faturadetay_alt_formu!Satis_Fiyati + (Tbl_Faturadetay_alt_formu!Satis_Fiyati * (Tbl_Faturadetay_alt_formu!Kdv_Orani / 100))

 

Me.xiskonto.Visible = True

Me.Haric_Genel_Toplam.Visible = True

Me.Haric_Iskonto_Toplam.Visible = True

Me.Haric_Kdv_Toplami.Visible = True

Me.Haric_Kdvli_Aratoplam.Visible = True

Me.Haric_Kdvli_Tutar.Visible = True

Me.Dahil_Iskonto_Toplami.Visible = False

Me.Dahil_Kdvli__Tutar.Visible = False

Me.Dahil_Kdv_Toplami.Visible = False

Me.Dahil_Kdvli_Aratoplam.Visible = False

Me.Dahil_Genel_Toplam.Visible = False





Me.Dahil_Genel_Toplam.Requery

Me.Dahil_Iskonto_Toplami.Requery

Me.Dahil_Kdv_Toplami.Requery

Me.Dahil_Kdvli__Tutar.Requery

Me.Dahil_Kdvli_Aratoplam.Requery

Me.Haric_Genel_Toplam.Requery

Me.Haric_Iskonto_Toplam.Requery

Me.Haric_Kdv_Toplami.Requery

Me.Haric_Kdvli_Aratoplam.Requery

Me.Haric_Kdvli_Tutar.Requery



End If

KDV dahili tıklarsanız satış fiyatını kdvli fiyata, indirilmiş kdv hesaplayarak bulunan fiyatı kdvsiz fiyata işler. KDV hariç derseniz satış fiyatını kdvsiz fiyata, hesaplanan kdv eklenmiş fiyatı kdvli fiyata işler. Buradan hareketle form alt bilgisine işlediğiniz kdv bilgilerini revize edersiniz.