Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
17/10/2018 11:03
Konu Sahibi
aliyuzen
Yorumlar
5
Okunma
274
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

aliyuzen

Aktif Üye
24363
Al.... Yü....
 41
 40
 153
 02/09/2010
0
 İstanbul
 Müşteri Hizmetleri
 Ofis 2019 64 Bit
 09/05/2019,17:03
Çözüldü 
Merhaba,

Basit bir stok veritabanı yapmak istedim. Ancak, bir konuda takıldım.
Programı ekte bulabilirsiniz. Çalıştırmadan önce linkleri Bağlı Tablo Yöneticisinden yenilerseniz sevinirim.

Stok Hareketleri butonuna bastığınızda,
1. Girişi ve çıkışı yapılmış malzemelere ilişkin adetleri görebiliyorum.
2. Sadece, girişi yapılmış (çıkışı yapılmamış) malzemelere ilişkin adetleri görebiliyorum.

Ustalarımdan ricam şu;
Ters Stok Hareketleri butonuna bastığınızda, görülen malzemenin girişi stoğa yapılmadığı için çıkış yapıldığında da stok eksiye düşmektedir.
Bu sorgudaki veriyi, stok hareketleri butonuna bsatığımdaki sorguda görebilir miyim? Böylece, üç olasılığı da bir sorguda görüp stoğumu tek sorgu ile yönetebileceğim.

Ne yaptıysam, aynı sorguda bu kırmızı ile işaretlediğim üç olasılığa ilişkin sonuçları göremedim.

Bekli de, stok girişi hiç olmayan ya da eksiye düşecek durumda olan malzemelerin de çıkışı yapmak istediğimde program beni uyarsa, bu da bir yöntem diye düşünüyorum. Ama bunu da beceremedim.

Ustalarımdan yardım rica ediyorum. Zaman ayıran okuyan herkese teşekkürler.

*** İçindeki veriler gerçeği yansıtmamaktadır. Örnektir.



ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.058
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
Merhaba,
1_3_StokAdedi sorgusunun Sql kodunu aşağıdaki ile değiştirerek deneyiniz.

SQL Code
SELECT Que_1_1_Giris_Adedi.yer, Que_1_1_Giris_Adedi.model, IIf(IsNull([Giris_Adedi]),0,[Giris_Adedi]) AS G_A, IIf(IsNull([Cikis_Adedi]),0,[Cikis_Adedi]) AS C_A, [G_A]-[C_A] AS Stok_Adedi
FROM Que_1_1_Giris_Adedi LEFT JOIN Que_1_2_Cikis_Adedi ON (Que_1_1_Giris_Adedi.yer = Que_1_2_Cikis_Adedi.yer) AND (Que_1_1_Giris_Adedi.model = Que_1_2_Cikis_Adedi.model);
UNION SELECT Que_1_5_Ters_Stok_Ad.yer, Que_1_5_Ters_Stok_Ad.model, Que_1_5_Ters_Stok_Ad.G_A, Que_1_5_Ters_Stok_Ad.C_A, Que_1_5_Ters_Stok_Ad.Stok_Adedi
FROM Que_1_5_Ters_Stok_Ad
WHERE (((Que_1_5_Ters_Stok_Ad.Stok_Adedi)<0));



Ayrıca,

frm_2_cikis isimli formdaki, model isimli açılan kutunun güncelleştirme sonrasında olayına

Visual Basic Code
1
2
3
4
5
6
7
8
9
Dim GStokSayisi As Integer

GStokSayisi = DCount("[adet]", "tbl_stok", "[model]='" & Me.model & "'")

If GStokSayisi = 0 Then

    MsgBox ("Bu ürüne ait stok bulunmamaktadır")

End If


kodu eklerseniz, model seçtiğinizde stoktaki verisi 0 ise mesaj kutusu görünür.

adet isimli açılan kutunun güncelleştirme sonrasında olayına

Visual Basic Code
1
2
3
4
5
6
7
8
9
Dim GStokSayisi As Integer

GStokSayisi = DCount("[adet]", "tbl_stok", "[model]='" & Me.model & "'")

If GStokSayisi < Me.adet Then

    MsgBox ("Bu ürüne ait stokta " & GStokSayisi & " adet bulunmamaktadır")

End If


kodu eklerseniz, stokta 5 ürün varsa ve siz 6 yazarsanız yine mesaj kutusu görünür.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

aliyuzen

Aktif Üye
24363
Al.... Yü....
 41
 40
 153
 02/09/2010
0
 İstanbul
 Müşteri Hizmetleri
 Ofis 2019 64 Bit
 09/05/2019,17:03
Hocam,

Desteğiniz için çok teşekkür ederim.

Yalnız aşağıdaki şekilde uyarladım. Ancak, mesajdaki adetler doğru dönmedi.



frm_2_cikis isimli formdaki, model isimli açılan kutunun güncelleştirme sonrasında olayına

Kod:
1
2
3
4
5
6
7
8
9
Dim GStokSayisi As Integer

GStokSayisi = DCount("[adet]", "tbl_stok", "[model]='" & Me.model & "'")

If GStokSayisi = 0 Then

    MsgBox ("Bu ürüne ait stok bulunmamaktadır")

End If


kodu eklerseniz, model seçtiğinizde stoktaki verisi 0 ise mesaj kutusu görünür.

Doktor Muayene Örtüsü için kayıt girdiğimde bana yanlış adet döndürdü.
Adet yerine sanki toplam kalan stok adedini kontrol etmesi gerekmez mi hocam...



adet isimli açılan kutunun güncelleştirme sonrasında olayına

Kod:
1
2
3
4
5
6
7
8
9
Dim GStokSayisi As Integer

GStokSayisi = DCount("[adet]", "tbl_stok", "[model]='" & Me.model & "'")

If GStokSayisi < Me.adet Then

    MsgBox ("Bu ürüne ait stokta " & GStokSayisi & " adet bulunmamaktadır")

End If


kodu eklerseniz, stokta 5 ürün varsa ve siz 6 yazarsanız yine mesaj kutusu görünür.

Doktor Muayene Örtüsü için kayıt girdiğimde bana yanlış adet döndürdü.



aliyuzen

Aktif Üye
24363
Al.... Yü....
 41
 40
 153
 02/09/2010
0
 İstanbul
 Müşteri Hizmetleri
 Ofis 2019 64 Bit
 09/05/2019,17:03
Ozan Hocam,

Yaptığınız formülde işlem türü bazında toplamıyor... Giriş ve çıkış adetlerini bir topluyor.
Bu yüzden gerçek sonuçları alamıyorum. Nasıl yapabiliriz?



ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.058
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
Merhaba, 


Visual Basic Code
GStokSayisi = DCount("[adet]", "tbl_stok", "[model]='" & Me.model & "'")


şeklindeki kodu aşağıdaki ile değiştirerek deneyiniz. Verdiğim DCount hatalı, Dsum olması lazım. 



Visual Basic Code
GStokSayisi = DSum("[adet]", "tbl_stok", "[islem_turu]= '" & "Giriş" & "' And [model]= '" & [model] & "'") - DSum("[adet]", "tbl_stok", "[islem_turu]= '" & "Çıkış" & "' And [model]= '" & [model] & "'")


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

aliyuzen

Aktif Üye
24363
Al.... Yü....
 41
 40
 153
 02/09/2010
0
 İstanbul
 Müşteri Hizmetleri
 Ofis 2019 64 Bit
 09/05/2019,17:03
(17/10/2018 17:27)ozanakkaya Adlı Kullanıcıdan Alıntı: Merhaba, 


Visual Basic Code
GStokSayisi = DCount("[adet]", "tbl_stok", "[model]='" & Me.model & "'")


şeklindeki kodu aşağıdaki ile değiştirerek deneyiniz. Verdiğim DCount hatalı, Dsum olması lazım. 



Visual Basic Code
GStokSayisi = DSum("[adet]", "tbl_stok", "[islem_turu]= '" & "Giriş" & "' And [model]= '" & [model] & "'") - DSum("[adet]", "tbl_stok", "[islem_turu]= '" & "Çıkış" & "' And [model]= '" & [model] & "'")



Hocam,

düzeldi. Desteğiniz için teşekkürler.
Konuyu kapatabiliriz.




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Stok Üretim Modülü Hk. Dekdurmaz 3 124 19/05/2019, 00:01
Son Yorum: Dekdurmaz
Çözüldü Stok Bakiye Depoya Göre Seçilerek Arama ahmetbal 1 156 06/05/2019, 21:26
Son Yorum: C*e*l*o*y*c*e
Çözüldü İnternet Adresinden Stok Ve Fiyat Kontrolü Yapma kokotuna 2 209 11/02/2019, 20:00
Son Yorum: kokotuna
Çözüldü Stok Durumu Sorgusu 001hacker 26 1.103 16/12/2018, 21:13
Son Yorum: haliliyas
Çözüldü Depo Stok Durumu Sorgusu 001hacker 8 569 20/11/2018, 00:02
Son Yorum: 001hacker

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.