كيف يمكن ان انقص المخزن عندما ابيع صنف ?

السلام عليكم ورحمة الله وبركاته

اخي العزيز اكيد عند جدول به الكمية فتقوم بالبحث في الجدول عن طريق اسم الصنف او رقمة حسب الجدول

ويقوم بمقارنة الكمية فان توفرت طرح منها العدد المسحوب

فمثلا لو فرضنا ان اسم الجدول snf وحقل الكمية cont وحقل الرقم no وتعمل علي اكسس 97

فتعمل الكود التالي

data1.recordsours="SELECT *FROM S snf WHERE no=" & trim(text1.text) &"

data1,refrsh

with data1.recordset

if .recordcount < 1 then

msg(" not found")

else

if !cont < val(text2.teext) then

msg("less than")

else

.edit

!cont = !cont - val(text2.teext) then

.update

end if

end if

end with

طبعا على اساس ان text1 يمثل رقم الصنف text2 يمثل الكمية

واتمنى ان يكون هذا الحل المطلوب

والسلام عليكم