Merhaba,
1_3_StokAdedi sorgusunun Sql kodunu aşağıdaki ile değiştirerek deneyiniz.

SELECT Que_1_1_Giris_Adedi.yer, Que_1_1_Giris_Adedi.model, IIf(IsNull([Giris_Adedi]),0,[Giris_Adedi]) AS G_A, IIf(IsNull([Cikis_Adedi]),0,[Cikis_Adedi]) AS C_A, [G_A]-[C_A] AS Stok_Adedi

FROM Que_1_1_Giris_Adedi LEFT JOIN Que_1_2_Cikis_Adedi ON (Que_1_1_Giris_Adedi.yer = Que_1_2_Cikis_Adedi.yer) AND (Que_1_1_Giris_Adedi.model = Que_1_2_Cikis_Adedi.model);

UNION SELECT Que_1_5_Ters_Stok_Ad.yer, Que_1_5_Ters_Stok_Ad.model, Que_1_5_Ters_Stok_Ad.G_A, Que_1_5_Ters_Stok_Ad.C_A, Que_1_5_Ters_Stok_Ad.Stok_Adedi

FROM Que_1_5_Ters_Stok_Ad

WHERE (((Que_1_5_Ters_Stok_Ad.Stok_Adedi)<0));

Ayrıca,

frm_2_cikis isimli formdaki, model isimli açılan kutunun güncelleştirme sonrasında olayına

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.

adet isimli açılan kutunun güncelleştirme sonrasında olayına

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.