Desteğiniz için çok teşekkür ederim.
Yalnız aşağıdaki şekilde uyarladım. Ancak, mesajdaki adetler doğru dönmedi.
frm_2_cikis isimli formdaki, model isimli açılan kutunun güncelleştirme sonrasında olayına
Kod:
Dim GStokSayisi As Integer
GStokSayisi = DCount("[adet]", "tbl_stok", "[model]='" & Me.model & "'")
If GStokSayisi = 0 Then
MsgBox ("Bu ürüne ait stok bulunmamaktadır")
End If
kodu eklerseniz, model seçtiğinizde stoktaki verisi 0 ise mesaj kutusu görünür.
Doktor Muayene Örtüsü için kayıt girdiğimde bana yanlış adet döndürdü.
Adet yerine sanki toplam kalan stok adedini kontrol etmesi gerekmez mi hocam...
adet isimli açılan kutunun güncelleştirme sonrasında olayına
Kod:
Dim GStokSayisi As Integer
GStokSayisi = DCount("[adet]", "tbl_stok", "[model]='" & Me.model & "'")
If GStokSayisi < Me.adet Then
MsgBox ("Bu ürüne ait stokta " & GStokSayisi & " adet bulunmamaktadır")
End If
kodu eklerseniz, stokta 5 ürün varsa ve siz 6 yazarsanız yine mesaj kutusu görünür.
Doktor Muayene Örtüsü için kayıt girdiğimde bana yanlış adet döndürdü.