ارجو المساعدة فى هذه الاكواد مرفق ملف

السلام عليكم ورحمة الله وباركاته
اولا ان بعمل على برنامج مرقبة مخزون ويوجد جزء عويص لا استطيع ان اعمل بيه وهو انقاص الكمية من ملف الاصناف وزيادتها ايضا فى حالة اخراج فاتورة او عمل شراء للصنف
ارجو المساعدة بقالى اكثر من اربع شهور بحاول فى هذه المشكلة ولا استطيع ان احلها
سوف ارسل الملف ويوجد بيه قاعدة البيانات والجداول وعمل العلاقة وايضا عمل جزء بالفيجوال الخاص بهذه المشكلة ارجو ارجو منكم ان تنظروا الى هذا البرنامج وقولولى ماهو الخطاء فى هذا حتى استطيع ان استكمله وجزاكم الله خيرا؟
هذا هو ماتوصلت اليه:
Private Sub Form_Load()
Dim db As Database
Dim rs As Recordset
Set db = DBEngine.OpenDatabase(App.Path + "\" + "db2.mdb")
Set rs = db.OpenRecordset("name", dbOpenDynaset)

End Sub
Private Sub Text2_GotFocus()
rs.open "select quinty from name where quinty like "
rs(quinty).Value = rs(quinty) - Val(Text2.Text)
rs.Update
End Sub

و عليكم السلام والرحمة
ان شاء الله سوف تجد الحلول هنا
http://www.montada.com/showthread.ph...99#post5355799

الف شكر على الاجابة مستر argonayt فعلا مكتبة كبيرة وجميلة وفيها اكواد الصراحة ان اول مرة اشوفها ان اعقدت ادور فيها بس برده ملاقتيش
وبجد الف شكر على اجابتك انت الوحيد الاجوبتينى
شكرا