السلام عليكم ورحمة الله وبركاته
الاخوة الكرام انا بحاجة كبيرة لمساعدة وبأسرع وقت وانا اثق بكم كثيراً ، لقد عملت بمؤسسة حديثاً وطلب مني عمل برنامج لنظامها عندما اقوم بكتابة الكود التالي :
اقتباسDim Dbcs As DatabaseDim DRS As Recordset
Set Dbcs = Currentdb()
Set DRS = Dbcs.OpenRecordset("Assessment", DYNASET)
DRS.AddNew
DRS!AssessmentNo = 25
DRS.Update
DRS.Close
Dbcs.Close
يعطيني خطء على الجملة رقم 4 وهي الجملة :
Set DRS = Dbcs.OpenRecordset("Assessment", DYNASET)
ورسالة الخطء تقول :
run-time error 13 :
Type mismatch
مع العلم بأن ADO مفعله من قائمة المراجع
انا بإنتظار الاجابة بأسرع وقت
مع خالص الشكر والتقدير
بشار ابوشمعه
