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