AccessTr.neT
Listedeki Rakamları % Olarak Artırmak. - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Listedeki Rakamları % Olarak Artırmak. (/konu-listedeki-rakamlari-olarak-artirmak.html)

Sayfalar: 1 2


Listedeki Rakamları % Olarak Artırmak. - m_demir - 06/05/2018

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.


Cvp: Listedeki Rakamları % Olarak Artırmak. - ozanakkaya - 06/05/2018

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.


Cvp: Listedeki Rakamları % Olarak Artırmak. - m_demir - 06/05/2018

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.


Cvp: Listedeki Rakamları % Olarak Artırmak. - ozanakkaya - 06/05/2018

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.


Cvp: Listedeki Rakamları % Olarak Artırmak. - m_demir - 06/05/2018

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.

[Resim: do.php?imgf=152564180756451.png]
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



Cvp: Listedeki Rakamları % Olarak Artırmak. - ozanakkaya - 07/05/2018

Merhaba.. DAO referansı eksik.