قمت بوضع حل أرجو أن ينجح
اولاً قم بإستيراد الجدول الذي في المثال المرفق الى قاعدة بياناتك
وهذا الجدول يقوم بعملية تقدر تقول عليها وساطة بين شكل البيانات عندك والشكل الذي اريده فستلاحظ ان الدرجة (الأولى/أ) يقابلها (11) وهكذا لذا يرجى التأكد من أن طريقة كتابة الدرجات هي كما وردت في الجدول
ثانيا قم بإعادة تسمية الصور بإضافة الرقم المقابل للدرجة في الجدول مثال الرقم 2222 اذا كان في الدرجة الأولى/أ سيكون عنوان الصورة 11222 وهكذا
ثالثاُ قم بتعديل الكود ليكون كما يلي
Private Sub Form_Current()
On Error GoTo ERRPIC
Dim MyDgree as String
MyDgree=Dlookup("DegreeTo","tblDegreesConv","DegreeFrom=Form!الدرجة")
Me.MYPIC.Picture = Trim("C:\PHOTOS\") & MyDgree & Trim(Me.الرقم) & Trim(".jpg")
Exit_FORM_CURRENT:
Exit Sub
ERRPIC:
Me.MYPIC.Picture = ""
End Sub
مع تعديل إسم الحقل (الدرجة) كما هو في برنامجك بالضبط وذلك في السطر
MyDgree=Dlookup("DegreeTo","tblDegreesConv","DegreeFrom=Form!الدرجة")
ارجو ان يكون الشرح واضح ... جرب واخبرني حيث لم اقوم بتجربته
تحياتي,,,