+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: kritik stok yardım (/konu-kritik-stok-yardim.html)
Cvp: kritik stok yardım - sadikcoskun - 22/02/2011
cevaplarınız için gerçekten çok teşekkür ederim zahmet ettiniz fakat ben sıkıntıyı izzah edemedim sanırım, özür dilerim
benim amacım sipariş giriş çıkışı yapmak değil
sadece STOKDURUM formunda 1 adede düşen ürünler sipariş listesine otomatik olarak kaydedilsin (barkod no ve ürün adı olarak) ben de akşam dükkanımı kapatırken bu sipariş listesinden bir çıktı alayım yeterli.
Aslında asıl sorum kritiğe düşen ürünleri rapora veya tabloya yazan bir kod var mı ? olmalıydı sanırım...
sayın schworse ;
sizin ilk gönderdiğiniz dosyadaki uyarı yazısı ekranı çok güzeldi (sipariş ver & tamam butonlu) sipariş ver'e tıkladığım anda o ürün sipariş listesine atılabilse
Cvp: kritik stok yardım - Yandemir - 22/02/2011
benim dediğim Kritik alanını eklediyseniz rapor almak çok kolay Kritik<GirenAd listele.
Cvp: kritik stok yardım - sadikcoskun - 22/02/2011
ekledim ama kodlarla aram peki iyi olmadığı için beceremedim sanırım, çalışmadı.
nereye ve nasıl eklenmesi hususunda çok acemiyim özür dilerim
Cvp: kritik stok yardım - Yandemir - 22/02/2011
biraz bekleyin örneğinize ekleyeyim
Cvp: kritik stok yardım - sadikcoskun - 22/02/2011
bu şekilde sanırım ama işe yaramıyor
Cvp: kritik stok yardım - okileturc - 22/02/2011
Aşağıdaki kodu istediğiniz
bir event ta kullanabilirsiniz
Prensip kritik seviyenin altındaki ürünleri
tespit edip mesajla uyarmak. Mesaja evet
derseniz geçici bir tabloya yazıp sipariş
raporu üretmek
Private Sub Form_Open(Cancel As Integer)
If DCount("[stokad]", "stoklar", "[stok_adet]<=[stok_seviye]") > 0 Then
Dim siparisyaz As Integer
siparisyaz = MsgBox("Kritik seviye altına düşmüş" & vbCrLf & _
"ürünleriniz var. Sipariş föyü" & vbCrLf & _
"oluşturulsun mu ?", _
vbInformation + vbYesNo + vbDefaultButton2, _
"Kritik seviye")
If siparisyaz = 6 Then
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE siparisler.stokad FROM siparisler;", 0
DoCmd.RunSQL "INSERT INTO siparisler ( stokad, stok_adet, stok_seviye )SELECT stoklar.stokad, stoklar.stok_adet, stoklar.stok_seviye FROM stoklar WHERE (((stoklar.stok_adet)<=[stok_seviye]));", 0
DoCmd.SetWarnings True
DoCmd.Close acForm, Me.Name
DoCmd.OpenReport "rapor1", acViewPreview
End If
End If
End Sub
Access penceresi kapalı örneklerden nefret ettiğim için
kendi örneğimi yaptım, uyarlaması sizden
Kolay gelsin