Formda Onay Kutusu İle Veri Aktarma

teşekkür ederim bekleriz sorun değil siz herhalde resim üzerinden değerlendirdiniz resim örnek olarak vermiştim.

Örneğinizde Frm_Carisec formunuz yok, stok tablonuzdaki fiyatlar kdv dahil mi hariç mi bilgi yok.

Formun büyük olmadın diye kasıtlı yükledim yarın kapsamlı yüklerim bu arada fiyatlar KDV dahil

Kasıtlı yüklemediniz de cari kodlarınız, ad soyad fiyatlar buradan açlışıyor, fonksiyonlarınız yordamlarınız eksik eklediğiniz örnekte. Zaten olmayan vaktimizde yardımcı olmaya çalışıyoruz tüm uzman arkadaşlar yetişebildiğimiz kadar bir yandan orası hata burası hata uğraşmak zorunda kalıyoruz. İşlevsel örneğinizi yükleyin inceleyelim aksi halinde sizin bileceğiniz iş benim uğraşabilecek zamanım yok kodda şurada hata verdi dur eklenmemiş bypass et, yok şöyle revize et istenen yere gelelim de sonuç almaya bakalım diyerek.

özel bir kastım yoktu sizi meşgul etmek gibi kullandığım dosya boyutu sizin yüklem sınırının çok üstünde içinden alıp yükledim şimdi eksikleri ilave ederek yüklüyorum zahmetleriniz için teşekkür ederim.

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.