خطا بعد نحويل ملف اكسس 2003 الى 2016,العملية لم تتم

[fas.d2004.]

احبتي المطلوب هو عند قيامي بتحويل الملف من اصدار 2003 الى اصدار 2016 لم تعد تعمل يعطي خطا لم اعرف ما هو الخطا الي حصل بعد التحويل
هو عند القيام بادخال الصنف الذي هو اسم القماش سوف يظهر حاليا السعر الاساسي و عند القيام باختيار صغير في حقل العملية يظهر السعر الثاني للصنف مثال عندي اسم القماش 1-103 سعرة الاساسي 500 والسعر الثاني 280 فذا ادخلت اسم القماش حاليا سوف يظهر السعر الاساس ولكن اذا ذهبت الى حقل العملية واخترت صغير يتغير السعر الى 280 الذي هو السعر الثاني ولكن بعد التحويل لم تعمل اتمنى حل الاشكالية لو تكرمتم ورمضان كريم عليكم
مرفق الملف
xvc.rar

[أبوبسمله]

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

اخى الفاضل عدل الكود الى

Private Sub اسم_القماش_AfterUpdate()
Dim rs As dao.Recordset, db As dao.Database
    Set db = CurrentDb
    Set rs = db.OpenRecordset("select [سعر الاساسي],[نوع  الماش] from [اسماء الاقمشة] WHERE [اسم القماش] = '" & Me.[اسم القماش] & "'")
    If Not rs.EOF Then Me.[السعر] = rs![سعر الاساسي]
    Me.نوع_القماش = rs![نوع  الماش]
    rs.Close
    db.Close
End Sub

بالتوفيق ان شاء الله

[fas.d2004.]

اشكرك  عزيزي  على  سرعة  ردك  ولكن اريد  اعرف  ما  هو  الخطا  لو  تكرمت  

[أبوبسمله]

20 دقائق مضت, fas.d2004. said:

اشكرك  عزيزي  على  سرعة  ردك  ولكن اريد  اعرف  ما  هو  الخطا  لو  تكرمت  

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا

السطر الاول فقط تم تعديله

Dim rs As dao.Recordset, db As dao.Database

[fas.d2004.]

جزاك  الله  الف  خير  

 

[jjafferr]

واذا اردت ان تعرف سبب الخطأ ، اي لماذا كان يعمل على اكسس 2003 ولم يعمل على اكسس 2016 :

 

جعفر

[أبوبسمله]

جزاك الله خيرا اخى ومعلمنا العزيز @jjafferr