Depo programında tanımlar hakkında

[murat_06]

Arkadaşlar merhaba, şu an üzerinde çalıştığım depo stok takip programı var bu çalışmada yapmak stediğim "DEPOGİRİŞLERİ" formunda ürünün son kullanma tarihini ve son kullanma tarihine kalan süreyi gösteriyorum. Bu kalan süre 15 gün veya altında ise uyarı verip formun rengini değiştirmesini istiyorum ama bunu kod sayfasında sabit değerlerle yapmak istemiyorum. Bunun için tanımlar formu yaptım son kullanma tarihine kalan süre bu tanımlar formundaki değerlerden birisiyle uyuşuyorsa o sayının uyarısını vermesini istiyorum. Bu konuda yardım edersiniz çok sevinirim.

 

[Taruz]

Merhaba..

Formun Geçerli Olduğunda olayındaki kodu

If Nz(Metin53, 0) - Nz(Metin55, 0) <= 15 Then
Me.Ayr&#305;nt&#305;.BackColor = "2366701"
Else
Me.Ayr&#305;nt&#305;.BackColor = "-2147483633"

şeklinde değiştirin istediğiniz olur..

 

[murat_06]

Sn.Taruz eğer formun geçerli olduğunda kısmında ki koda bakamışşsanız o kodu ben girmiştim ama o 15'i kodda sabitlemek istemiyorum. Tanımlar formundan kıstasları belirlemek istiyorum yani bu süre 15 olabilir 20 veya 30 da olabilir. Programı kendim kullanmayacağım için o kısmı kullanacak kişi için serbest bırakmak istiyorum.

 

[Taruz]

Merhaba..

TANIMLAR tablonuza yeni bir alan ekleyip kullanıcının uyarı rengini de seçmesini sağladım..

Formunuzun kaynağını değiştirip alt sorgular kullanarak değişken uyarı zamanları ile son kullanma tarihine kalan süreyle eşleşen değerleri, uyarı metinlerini ve renkleri buldum..:

SELECT 
            (SELECT FIRST([UYARI RENGI]) FROM TANIMLAR AS A WHERE Son_kullanma_tarihine_kalan_süre <=A.SURE) AS RENK, 
            (SELECT FIRST(SURE) FROM TANIMLAR AS A WHERE Son_kullanma_tarihine_kalan_süre <=A.SURE) AS SURE, 
            (SELECT FIRST(UYARI) FROM TANIMLAR AS A WHERE Son_kullanma_tarihine_kalan_süre <=A.SURE) AS TANIM, 
GİRİŞ.ID, GİRİŞ.[MALZEME ADI], GİRİŞ.barkod, GİRİŞ.MALZEME_MİKTARI, GİRİŞ.BİRİM, GİRİŞ.[GİRİŞ TARİHİ], GİRİŞ.FİYATI, GİRİŞ.[SATICI FİRMA], GİRİŞ.[SATICI FİRMA YETKİLİSİ], GİRİŞ.[SATICI FİRMA TELEFON], GİRİŞ.AÇIKLAMA, GİRİŞ.Min_stok_durumu, GİRİŞ.Son_kullanma_tarihi, GİRİŞ.Son_kullanma_tarihine_kalan_süre, GİRİŞ.süre_durum
FROM GİRİŞ;

Formun Geçerli Olduğunda olayındaki kodu da

If IsNull(RENK) Then
Me.Ayrıntı.BackColor = "-2147483633"
Else
Me.Ayrıntı.BackColor = RENK
End If

şeklinde oldu..

 

[murat_06]

Sn.Taruz elinize ve emeğinize sağlık çok güzel olmuş ama bir şey daha var formda yeni kayıt ekleyemiyorum, veya mevcutlar üzerinde değişiklik yapamıyorum.Neden olabilir ?

 

[murat_06]

Sn.Taruz yardımınızı bekliyorum. Acaba Depogirişleri veriyi sorgudan aldığı için mi yeni kayıt ekleyemiyorum veya değişiklik yapamıyorum.

 

[Taruz]

Dün tüm gün yoğundum; anca..

 

[murat_06]

Teşekkürler

Sn.Taruz sıkıştırmak istemedim. Elinize sağlık güzel oldu. Tamamen bitirince örnekler arasına koyacağım. Bir şey sormak istiyorum ilk aldığım örnekte yeni kayıt ekleyemiyordum veya değişiklik yapamıyordum onun sebebi neydi ?

 

[Taruz]

Merhaba..

İlk örnek kaynağını, alt sorgular sebebiyle kilitlenmiş bir sorgudan alıyordu..Şimdi ise formunuz, kayıtları görüntülemek istediğiniz zaman yine o sorgudan, kayıt ilave etmek yada değiştirmek istediğiniz zamanda direkt tablodan alıyor kaynağını.. Bir nevi aç-kapa düzeneği oluşturdum anlayacağınız..