[مخالف]لو سمحت حد يحلى مشكلتى هذه هى الاكواد

اريد انقاص الكمية من جدول الاصناف فى حالة خروج فاتورة

ادى اخر ماتوصلت اليه واريد احد يساعدنى وشكرا؟

هذه هى الاكواد وان مرفق ملف بيها قاعدة البيانات ووالجزء الخاص بهذه المشكلة.

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