AccessTr.neT

Merhaba Arkadaşlar.

Ozan Hocamın yazdığı bir kod ile Metin kutusuna girdiğim rakam karadar stokdaki ürünlerin fiyatını % olarak artırıyordum. Ayni kodu ekli dosyama uygulamaya çalıştım hata veriyor. Nedenini anlayamadım. 

*Stok  Formunda TarihGuncelle metin kutusuna girdiğim tarihi ile Stok Tablosundaki tarihi güncellesin.
*Stok Formunda AdetGuncelle metin kutusuna girdiği rakam kadar Stok tablosundaki  StokAdedi artırsın
*Stok Formunda YuzdeGuncelle metin kutusuna girdiği rakam kadar Stok tablosundaki StokSatisFiyati % olarak artırsın. Örneğin 25 yazdığım zaman Stok tablosundaki StokSatisFiyatını %25 artırsın.  Saygılarımla iyi çalışmalar.

(03/06/2018, 03:04)m_demir yazdı: [ -> ]Ozan Hocamın yazdığı bir kod ile Metin kutusuna girdiğim rakam karadar stokdaki ürünlerin fiyatını % olarak artırıyordum. Ayni kodu ekli dosyama uygulamaya çalıştım hata veriyor. Nedenini anlayamadım. 

Bahsi geçen kod daha önceden ya Satis isimli form için yazılmış, ya da srg_liste isimli sorguda değişiklik yapılmış.

Hata veren kısım:

Set qdf = CurrentDb.QueryDefs("srg_liste")

qdf![Forms!Stok!gecici] = Forms![Stok]![gecici]

srg_liste isimli sorguda

Like "*" & [Forms]![Satis]![gecici] & "*"

şeklinde ölçüt var, ancak koddaki ölçüt tanımı

Forms![Stok]![gecici]

şeklinde, birinde Satış, diğerinde Stok formu tanımlanmış.

srg_stok adında sorgu oluştur, Sql kaynağına

SELECT Stok.S_No, Stok.StokNo, Stok.StokTarihi, Stok.StokFirmaAdi, Stok.StokUrunAdi, Stok.StokAdedi, Stok.StokNevi, Stok.StokAlisFiyati, Stok.StokSatisFiyati, Stok.[Stok**], Stok.[Stok**], Stok.[**], Stok.StokUrunAdi AS Arama

FROM Stok

WHERE ((([Stok.StokNo] & "*" & [Stok.StokUrunAdi] & "*" & [Stok.StokFirmaAdi] & "*" & [Stok.StokTarihi] ) Like "*" & Forms![Stok]![gecici] & "*"))

ORDER BY Stok.S_No DESC;

Kodu ekle, sorguyu kaydet,

Hata veren koddaki

Set qdf = CurrentDb.QueryDefs("srg_liste")

kodunu

Set qdf = CurrentDb.QueryDefs("srg_stok")

olarak değiştir.

(03/06/2018, 03:04)m_demir yazdı: [ -> ]*Stok  Formunda TarihGuncelle metin kutusuna girdiğim tarihi ile Stok Tablosundaki tarihi güncellesin.
*Stok Formunda AdetGuncelle metin kutusuna girdiği rakam kadar Stok tablosundaki  StokAdedi artırsın
*Stok Formunda YuzdeGuncelle metin kutusuna girdiği rakam kadar Stok tablosundaki StokSatisFiyati % olarak artırsın. Örneğin 25 yazdığım zaman Stok tablosundaki StokSatisFiyatını %25 artırsın.  Saygılarımla iyi çalışmalar.

Kodda, StokSatisFiyati alanının güncellenmesini sağlayan kod;

rs("StokSatisFiyati") = rs("StokSatisFiyati") + (rs("StokSatisFiyati") * Me.YuzdeGuncelle) / 100

Tarih ve Stok Adedini

rs("StokTarihi") = me.TarihGuncelle
rs("StokAdedi") = me.AdetGuncelle

şeklinde kod ekleyerek güncelleyebilirsin

Çok, çok teşekkürler Hocam ellerinize sağlık.

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