Skip to main content

AccessTr.neT


Listedeki Rakamları % Olarak Artırmak.

Listedeki Rakamları % Olarak Artırmak.

Çözüldü #1
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.
.rar Örnek.rar (Dosya Boyutu: 77,63 KB | İndirme Sayısı: 2)
Son Düzenleme: 06/05/2018, 20:28, Düzenleyen: m_demir.
Cevapla
#2
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.
.rar yuzdearttir.rar (Dosya Boyutu: 113,89 KB | İndirme Sayısı: 4)
Cevapla
#3
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.
Cevapla
#4
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.
Cevapla
#5
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]
Visual Basic Code
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
Son Düzenleme: 07/05/2018, 00:24, Düzenleyen: m_demir.
Cevapla
#6
Merhaba.. DAO referansı eksik.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da