Skip to main content

AccessTr.neT


kritik stok yardım

kritik stok yardım

Çözüldü #7
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
Cevapla
Çözüldü #8
benim dediğim Kritik alanını eklediyseniz rapor almak çok kolay Kritik<GirenAd listele.
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla
Çözüldü #9
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
Cevapla
Çözüldü #10
biraz bekleyin örneğinize ekleyeyim
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla
Çözüldü #11
bu şekilde sanırım ama işe yaramıyor
.rar yedek1.rar (Dosya Boyutu: 475,92 KB | İndirme Sayısı: 5)
Cevapla
Çözüldü #12
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 Img-grin

Kolay gelsin

.rar db1.rar (Dosya Boyutu: 18 KB | İndirme Sayısı: 21)
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task