Skip to main content

AccessTr.neT


Stok Güncelleme

Stok Güncelleme

Çözüldü #1
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.



[Resim: do.php?imgf=152798421516471.png]
.rar Malzeme Alışı.9.rar (Dosya Boyutu: 1,11 MB | İndirme Sayısı: 10)
Son Düzenleme: 03/06/2018, 03:05, Düzenleyen: m_demir.
Cevapla
#2
(03/06/2018 03:04)m_demir Adlı Kullanıcıdan Alıntı: 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:
Visual Basic Code
Set qdf = CurrentDb.QueryDefs("srg_liste")
qdf![Forms!Stok!gecici] = Forms![Stok]![gecici]

srg_liste isimli sorguda
Visual Basic Code
Like "*" & [Forms]![Satis]![gecici] & "*"

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

Visual Basic Code
Forms![Stok]![gecici]

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

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

Visual Basic Code
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

Visual Basic Code
Set qdf = CurrentDb.QueryDefs("srg_liste")

kodunu

Visual Basic Code
Set qdf = CurrentDb.QueryDefs("srg_stok")

olarak değiştir.


(03/06/2018 03:04)m_demir Adlı Kullanıcıdan Alıntı: *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;


Visual Basic Code
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
Cevapla
#3
Çok, çok teşekkürler Hocam ellerinize sağlık.

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

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task