Hocam FaturaDetay sil butonuna YeniHesap kodunu ekliyorum. Metin kutularında güncelleme olmuyor.

Merhaba Ozan Hocam geliştirmeye çalıştığım bu dosyam için ilk açtığım konuda Özgür Yasin Hocam bu uygulamada çok sorun yaşarsın demişti. Bu dosyada sizin çok katkınız oldu. Bunun için size çok, çok teşekkür ediyorum. Bu uygulamada sorunlar yaşamaya başladığım için bunun yerine başka bir uygulama üzerinde çalışıyorum. Başka bir uygulama dediğim zaman eyvah yine mi dediğinizi duyar gibiyim. Hocam Emekli 60 yaşındayım sizin katkılarınızla dostlarım, arkadaşlarımın ihtiyacı olan programları sizin sayenizde geliştirmeye çalışıyorum. Hiç bir maddi karşılı beklemeden başkasına yardım etmek hoşuma gidiyor. 

Konuyu taşıyabilirsiniz saygılarımla iyi çalışmalar.

Merhaba, kodları hata bloğuna yazarsanız çalışmaz. Ben üst mesajımda 

Sub YeniHesap()

ile başlayan, End Sub ile biten kod ekledim, sil butonuna da YeniHesap kodu eklemenizi yazdım.

Önceki mesajda belirttiğim 

Sub YeniHesap()

Dim YuzdeOnsekiz, YuzdeSekiz As String



YuzdeSekiz = Nz(DSum("[Tutari]", "FaturaDetay", "[KdvOrani]= 8"), 0)

YuzdeOnsekiz = Nz(DSum("[Tutari]", "FaturaDetay", "[KdvOrani]= 18"), 0)



Me.MatrahSekiz = Round(YuzdeSekiz, 2)



Me.MatrahOnSekiz = Round(YuzdeOnsekiz, 2)



Me.Toplam = Me.MatrahSekiz + Me.MatrahOnSekiz



Me.KdvSekiz = Round(Me.MatrahSekiz * 0.08, 2)



Me.KdvOnSekiz = Round(Me.MatrahOnSekiz * 0.18, 2)



Me.Yekun = Me.MatrahSekiz + Me.MatrahOnSekiz + Me.KdvSekiz + Me.KdvOnSekiz





ATOZ:

'Me.MatrahSekiz = IIf(Me.MatrahSekiz = 0, "", Me.MatrahSekiz)

'Me.MatrahOnSekiz = IIf(Me.MatrahOnSekiz = 0, "", Me.MatrahOnSekiz)

'Me.Toplam = IIf(Me.Toplam = 0, "", Me.Toplam)

'Me.KdvSekiz = IIf(Me.KdvSekiz = 0, "", Me.KdvSekiz)

'Me.KdvOnSekiz = IIf(Me.KdvOnSekiz = 0, "", Me.KdvOnSekiz)

'Me.Yekun = IIf(Me.Yekun = 0, "", Me.Yekun)



'Recalc

End Sub

Kodunu ekleyin, 

Sil butonuna eklediğiniz kodları silin,

DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Kodunun altına

YeniHesap

kodu ekleyin.

Çok teşekkürler Hocam ellerinize sağlık. Şimdi oldu.

Hocam 8. mesajımda bu uygulamada sorunlar yaşıyorum demiştim. Söyle ki.

Liste1 tıklayarak verileri Fatura Alt Bilgisi altındaki metin kutularına alıyorum.  lst_kisiler listesine tıklayarak  Fatura Bilgisi alındaki metin kutularına verileri alıyorum. Bir faturada birden fazla satır satış olduğu için FaturaBlilgisi tablosuna  Tek satır olarak aktarması gerekir. FaturaID numarasına güre FaturaDetay Formundaki verileri FaturaDetay Tablosuna aktarsın. Yeni Yatış butonuna tıkladığımız zaaman Fatura Detay Formdaki Liste kutuları temizlensin.

Hocam eğer yazdıklarım oluyorsa onunla ilgili yen konu açmak istiyorum. Saygılarımla iyi çalışmalar.

Hocam buna benzer bir örnek dosya eledim.

Son sorunuzu ile ilgili yeni konu açınız. Ayrıca, eklediğiniz son örnekte Liste1 ve lst_kisiler isimli liste kutularını içeren form yok.