اظهار صورة دلالة او عبارة اذا لم يكن للطالب صورة في الملف

[أبو محمد عباس]

السلام عليكم ورحمة الله وبركاته

الاساتذة الكرام والاخوة الاعزاء يسر الله لكم اموركم في الدنيا والاخرة

كما تساهمون وتيسرون  لنا امورنا مما افاض الله عليكم من نعمة العلم والمعرفة

اساتذتنا الكرام لدي نموذج تظهر في صور الطلبة ولما يكون الطالب ليس لديه صورة

في ملف الصور تبقى صورة اخر طالب موجودة حتى النهاية

طلبي حفظكم الله ورعاكم هو انه عندما لاتكون للطالب صورة ان تظهر صورة خاصة

وضعتها في الملف وهي مكتوب عليها ( لايوجد صورة ) او تكون على شكل عبارة ( لاتوجدة صورة للطالب)

او اي حل يمكن يوصل الفكرة لمدخل البيانات ان الطالب ليس لديه صورة في الملف

لطفا منكم وكرما ان لايكون الجواب بشكل رساله لان هذا سيؤخر مدخل البيانات بالغاء الرساله في كل مرة

جزاكم الله خيرا وزادكم من فضله علما ونفع بعلمكم

كود جلب الصور هو  للاستاذ والاخ العزيز جعفر جزاه الله خيرا 

دمتم برعاية الله وحفظه

 

اظهار صورة الطالب.rar

 

 

[ابوخليل]

وعليكم السلام ابا محمد  تفضل :

استبد الكود  الخاص بجلب الصورة بهذا

On Error GoTo err_Form_Current
    Me.Student_Img.Picture = Application.CurrentProject.Path & "\Imags\" & Me.id & ".jpg"
Exit Sub
err_Form_Current:
    If Err.Number = 2220 Then
      Me.Student_Img.Picture = Application.CurrentProject.Path & "\Imags\NoPicture.jpg"
      End If

[أبو محمد عباس]

السلام عليكم ورحمة الله وبركاته

الاستاذ الفاضل والاخ الحبيب ابا خليل وفقكم الله ورعاكم

كود في قمة الابداع والروعة

جزاكم الله خيرا وجعله في ميزان حسناتكم

تقبلوا وافر احترامي وتقديري

تم تعديل مارس 28, 2015 بواسطه أبو محمد عباس