السلام عليكم
لدي CombBox يتم ملؤها من قاعدة بيانات اكسس عن طريق ADO وهي لحقلين فقط هما ال ID وال NAME
أريد عندما يقوم المستخدم ياختيار احدى القيم انقل قيم موجودة بنفس السجل المرتبط ..
بمعنى آخر عندما يختار المستخدم قيمة ما من القائمة المنسدلة يقوم الكود بقرأة قيمة حقل ثالث مثلا MARK ويتم عرضها في Label موجود على النموذج.
الكود الذي استخدمه الآن ينجح مع اول سجل وآخر سجل ولكن مع باقي القيم الموجودة في القائمة المنسدلة لايتم اعطاء اي نتجية
وفي حال قمت بحذف هذا السطر : If Not rs.EOF Then فإنه يعطي الخطأ التالي :
Either BOF or EOF is True,or the current record has been deleted.
Requested operation requires a current record.
وهذا هو الكود المستخدم :
If rs.State = adStateOpen Then rs.Close
rs.Open "SELECT * FROM [invst] WHERE [id] = " & tempid, MyDb, adOpenDynamic, adLockOptimistic
'If Not rs.EOF Then
lblmark.Caption = "المجموع:" & "" & rs.Fields("mark")
Set rs = Nothing
lblmark = combst.Text
'End Ifانتظر مساعدتكم اخواني