Degerli arkadaşlar hepinize kolay gelsin
Stokta, (bu ürün [0 ve 0 dan küçükse]yoktur) diye bir uyarı almak istiyorum ve işlem yapmasın yani mükerrer kayıt yaparken aldıgımız uyarı gibi (bu kişiye ait kayıt daha önce girilmiş gibi) forumda mükerrer kayıt kodlarını inceledim ama nasıl uygulayacagımı tam yapamadım yardımlarınızı ve fikirlerinizi rica ediyorum
ekli programda müşteri aradan müşteriyi secip secilen müşteriye ürün satısı yaparken ve hızlı satış formunda satış yaparken barkodu girdiğimizde (bu ürün stoklarımızda yoktur) uyarısı almak istiyorum ilgili formların adı Frmsatıs ve Frmmusteri
STOK Sorgusunda alınan satılan ve kalan degerleri ni elde ettim
bu konuda yardımlarınızı bekliyorum

Ek Dosyalar

örnek 28.02..2012.rar(363.82 KB)

Satış formunun veri kaynağını bir sorgudan alarak sorguya STOK sorgusundan Stok alanını da ilave etmelisiniz. Bir ürün seçildiğinde nasıl adı fiatı geliyorsa tıpkı bir değer olarak Stok adeti de gelmeli. Form üzerine bu değer geldikten sonra geriye sadece if..then ile veya IIF ile basit bir yapı kurup sorgulamak kalır. Ben bunları yapayım dedim ama formlarınızın hepsi kalıcı ve açılan olduğu için tasarım ekranına geçmek için her seferinde bir sürü formu kapatmak zorunda kalıyorum. Hele bir form var ki kapatınca tüm program kapanıyor. Shift ile açınca da ilk önce açılacak formu açmadığı için hata veriyor. Bir de sizin neyi nereye koyduğunuzu, hangi bilgiyi nerden aldığınızı bulmak gerekiyor. Uzun iş yani. Yine en iyisi ya zamanı bol birisi oturup uğraşacak ya da siz yapacaksınız bunu.

Kolay gelsin.

mehmet hocam teşekkür ederim daha ne olsun bu fikir benim için yeterli bazen insanın hafızası duruyor bir ışık arıyor siz bu ışığı yaktınız her şey için teşekkür ederim

sorun çözülmüştür mehmet hocanın önerileri dogrultusunda
konuyu cözülmüşler bölümüne taşyabiliriz teşekkürler

Degerli arkadaşlar mehmet hocanın önerileri dogrultusunda stokta ürünün 0 ve 0 dan küçük oldugunda STOKTA BU ÜRÜN YOK sorunu çözdüm sayılır bunuda resimlerle anlatmaya çalıştım burada yapamadıgım eger stoktaki ürün o(sıfırsa) ikaz veriyor gene kayıt yapıyor alt satıra bilgileri atıyor burada eger sıfırsa kayıt yapmadan girilen barkodu silip yeni ürün girilecek duruma gelmesi kayıt yapmamasını nasıl saglarız
tabi her iyigidin bir yoğurt yemesi var ben bu şekilde tasarlayabildim ama programı inceleyip başka bir yoldanda yapılabilirmi fikir ve önerilerinizi bekliyorum

Ek Dosyalar

örnek 01.03..2012.rar(874.44 KB)

If stok=0 then

 me.undo

 msgbox "Stok sıfır olduğundan işlemler geri alındı"

Else

 ' Kaydetme işlemleri vb.

End If

Access penceresi gizlenmesi vs. gibi şeylerden bende inceleyemediğimden bu şekilde yazmak zorunda kaldım.

Degerli arkadaşlar sagolsun sayın alpeki hocamız sorunu çözdü mesaj 4 de resimleri ile dosyayı gönderdim bir nebze sorunun çözmüştüm ama tam istediğim gibi olmamıştı stokta 0 ürün var mesajı aldıgım halde gene ürünü satış a kaydediyordu sagolsun alpeki hocamız barkod giriş ilişkisiz metin kutusuna yazdıgı kod la olayı çözmiştür stokta ürün 0 (sıfırsa) kayıt yapmıyor ve stoklarda ürün yoktur satamazsınız uyarısı alıyorum lazım olanlar ve bilgenmek isteyenler için kodları ekliyorum
......
barkod giriş metin kutusunun güncelleştirme sonrası kodu

Private Sub barkod_AfterUpdate()

Dim girisler, cikislar As Integer



 girisler = Nz(DLookup("gelenadet", "tblgelenmal", "barkodno='" & Me.barkod & "'"), 0)

 cikislar = Nz(DSum("satisadet", "tblsatis", "barkodno='" & Me.barkod & "'"), 0)

 

 If girisler - cikislar <= 0 Then

 MsgBox "STOKLARDA BU ÜRÜNDEN KALMADI SATAMAZSINIZ!!!"

 Else

 barkod_islemi

 End If

 

End Sub

-----------------------
ve barkod_islemi kodu

Private Sub barkod_islemi()

Me.bar = Me.barkod

Me.kontrol = Me.bar.Column(4)

If Me.kontrol >= 1 Then

Call Komut39_Click

Me.barkodno = Me.bar.Column(0)

Me.urunadi = Me.bar.Column(1)

Me.Beden = Me.bar.Column(2)

Me.satisfiyati = Me.bar.Column(3)

Me.satisfiyati1 = Me.bar.Column(4)

Me.firmaid = Me.bar.Column(5)

Me.urunid = Me.bar.Column(6)

Me.Metin69 = Me.bar.Column(7)

Me.musteriid = ""

Me.personelid = Forms![frmgiris]![personelid]

Me.satistarihi = Date

Me.toplamsatis = Me.satisadet * Me.satisfiyati

Me.toplamsatis1 = Me.satisadet * Me.satisfiyati1

Me.barkod = " "

Call Komut55_Click

Me.barkod.SetFocus

Else

MsgBox "BU ÜRÜN BARKOTUNU KONTROL EDİN..!! BU ÜRÜN YOK..!!", vbCritical, "EKREM ÇEVİK"

End If

End Sub

--------------
sorunlarınızda hepinize bana yardımcı olan hocalar nasip etsin

Ek Dosyalar

STOKTA ÜRÜN YOK.rar(375.14 KB)

Sorun çözülmüştür sayın hocalarımız konuyu Access Cevaplanmış Soruları taşıyabilirler