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

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

aliyuzen

Aktif Üye
Al.... Yü....
 Belirtilmemiş
 29
 102
 02/09/2010
0
 İstanbul
 
 Ofis 2013 32 Bit
 10/01/2019,15:21
Çö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.



Kullanici Avatari

ozanakkaya

Kurucu
Oz.... Ak....
 39
 477
 11.746
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,18:01
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. 

Kullanici Avatari

aliyuzen

Aktif Üye
Al.... Yü....
 Belirtilmemiş
 29
 102
 02/09/2010
0
 İstanbul
 
 Ofis 2013 32 Bit
 10/01/2019,15:21
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ü.



Kullanici Avatari

aliyuzen

Aktif Üye
Al.... Yü....
 Belirtilmemiş
 29
 102
 02/09/2010
0
 İstanbul
 
 Ofis 2013 32 Bit
 10/01/2019,15:21
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?



Kullanici Avatari

ozanakkaya

Kurucu
Oz.... Ak....
 39
 477
 11.746
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,18:01
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. 

Kullanici Avatari

aliyuzen

Aktif Üye
Al.... Yü....
 Belirtilmemiş
 29
 102
 02/09/2010
0
 İstanbul
 
 Ofis 2013 32 Bit
 10/01/2019,15:21
(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 Durumu Sorgusu 001hacker 26 767 16/12/2018, 21:13
Son Yorum: haliliyas
Çözüldü Depo Stok Durumu Sorgusu 001hacker 8 400 20/11/2018, 00:02
Son Yorum: 001hacker
Çözüldü Formdan Girilen Kaydın Aynı Form'dan Sadece O Kayıt İçin Rapor Çıktısı Alamıyorum. Oğuz Türkyılmaz 9 407 20/09/2018, 18:26
Son Yorum: Oğuz Türkyılmaz
Çözüldü Stok Yok Uyarısının Otomatik Kapanması ielmacilar 2 208 26/08/2018, 19:09
Son Yorum: ielmacilar
Çözüldü Access 2013 44 Videoluk Cari Ve Stok Takip Programı kdemirparmak 5 326 22/08/2018, 19:23
Son Yorum: ogzcntrk

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