shekojetli
09-03-2007, 11:50 AM
السلام عليكم ورحمة الله وباركاته
اولا ان بعمل على برنامج مرقبة مخزون ويوجد جزء عويص لا استطيع ان اعمل بيه وهو انقاص الكمية من ملف الاصناف وزيادتها ايضا فى حالة اخراج فاتورة او عمل شراء للصنف
ارجو المساعدة بقالى اكثر من اربع شهور بحاول فى هذه المشكلة ولا استطيع ان احلها
سوف ارسل الملف ويوجد بيه قاعدة البيانات والجداول وعمل العلاقة وايضا عمل جزء بالفيجوال الخاص بهذه المشكلة ارجو ارجو منكم ان تنظروا الى هذا البرنامج وقولولى ماهو الخطاء فى هذا حتى استطيع ان استكمله وجزاكم الله خيرا؟
هذا هو ماتوصلت اليه:
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
اولا ان بعمل على برنامج مرقبة مخزون ويوجد جزء عويص لا استطيع ان اعمل بيه وهو انقاص الكمية من ملف الاصناف وزيادتها ايضا فى حالة اخراج فاتورة او عمل شراء للصنف
ارجو المساعدة بقالى اكثر من اربع شهور بحاول فى هذه المشكلة ولا استطيع ان احلها
سوف ارسل الملف ويوجد بيه قاعدة البيانات والجداول وعمل العلاقة وايضا عمل جزء بالفيجوال الخاص بهذه المشكلة ارجو ارجو منكم ان تنظروا الى هذا البرنامج وقولولى ماهو الخطاء فى هذا حتى استطيع ان استكمله وجزاكم الله خيرا؟
هذا هو ماتوصلت اليه:
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