Listedeki Rakamları % Olarak Artırmak.

Merhaba Hocalarım
Eklediğim dosyamda Gelir Formundaki Güncelle metin kutusuna rakam girerek GÜNCELLE butonuna tıkladığım zaman Gelir Tablosundaki SATIŞ FIYATI sütunundaki rakamları metin kutusundaki rakam kadar % olarak  artırılsın ve ayni şekilde KDV , TOPLAM FIYATI sütunları da güncellensin.

Örneğin: Güncelle metin kutusuna 25 rakamı girip GÜNCELLE butonuna tıkladığım zaman SATIŞ FIYATI %25 artsın ve KDV , TOPLAM FIYATI da ona göre güncellensin.

Bu konuda yardımlarınıza ihtiyacım var yardımlarınız için şimdiden teşekkürler.

Butonu tıkladığınızda Satış fiyatı alanındaki veri artar.

Bu arada, 52 konu, 202 mesajınız var ama uygulamanızın adı hala örnek.

Hocam çok haklısınız eklediğim uygulamamın adını doğru yazmam gerekiyor ki faydalanmak isteyen arkadaşlarda kullanabilsin.

Hocam Metin kutusundaki rakamı güncelle komutunu verdiğimiz zaman sadece SATIŞ FİYATI sütununu değiştiriyor KDV ve TOPLAM FİYATI sütunu değişmiyor.

Merhaba,

Gördüğünüz üzre sadece satış fiyatı güncellemesi için kod ekledim. Güncellenmesini istediğiniz diğer alanların hesaplamasını kod içerisine dahil edebilirsiniz.

Malesef kodun tamamını veremiyorum.

Hocam aşağıdaki şekilde koda ekleme yaptım. Sizin eklediğiniz uygulamada çalıştı. Ayni kodları başka bir dosyama eklediğim zaman eklediğim resimdeki hatayı veriyor.

Private Sub Komut192_Click()



Dim qdf As QueryDef

Dim rs As Recordset



Set qdf = CurrentDb.QueryDefs("srg_liste")



qdf![Forms!Gelir!gecici] = Forms![Gelir]![gecici]

 

Set rs = qdf.OpenRecordset()



Do Until rs.EOF

    

    rs.Edit

    rs("GelirMatrah") = rs("GelirMatrah") + (rs("GelirMatrah") * Me.Guncelle) / 100

    rs("GelirKdv") = rs("KdvOrani") * (rs("GelirMatrah")) / 100

   rs("GelirToplam") = rs("GelirMatrah") + (rs("GelirKdv"))

    rs.Update



    rs.MoveNext

Loop



Me.Liste.Requery

rs.Close

Set rs = Nothing



qdf.Close

Set qdf = Nothing



End Sub

Merhaba.. DAO referansı eksik.