عرض الصور - الصور مرقمة وموجودة في مكان واحد مثال في الأكسس 2002

أضيف بتاريخ 26/8/1423هـ

كما سبق في الأكسس 2002 يمكن عرض الصور مباشرة دون حاجة لاستخدام أكواد لعرض الصور .

خطوات الإنشاء :

1- افتح النموذج في عرض التصميم ثم اضغط زر صورة من شريط أدوات المسمى مربع الأدوات ثم ارسم الصورة على النموذج :

2- سيظهر مربع حوار يطالبك باختيار الصورة الأولية :

اختر الصورة الأولية وهي التي ستعرض أولا .

فكرة : استخدم صورة فارغة بيضاء أو صورة مكتوب فيها سجل جديد عندما يكون النموذج بدون سجلات .

ثم اضغط موافق .

3- ستظهر الصورة كما في الشكل :

 

 

أنا هنا اخترت الصورة المسماة NewRecord.png والتي تجدها مرفقة مع المثال .

الآن سم كائن الصورة الجديد باسم عارض_الصور .

 

4- الآن انقر نقراً مزدوجاً في حدث عند الحالي وسوف تظهر كلمة [إجراء حدث] ثم انقر المربع ذو الثلاث نقط   :

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

 

On Error GoTo err_pic
If Me.NewRecord Then
عارض_الصور.Picture = Application.CodeProject.Path & "\NewRecord.png"
Else
عارض_الصور.Picture = Application.CodeProject.Path & "\" & Me![رقم] & ".jpg"
End If
err_exit:
Exit Sub
err_pic:
If Err.Number = 2220 Then
عارض_الصور.Picture = Application.CodeProject.Path & "\Err.png"
End If
Resume err_exit

 

لكن لاحظ أنني وضعت صورة إذا كان السجل جديد وصورة أخرى عند عدم العثور على الصورة المطلوبة فإذا لم تكن ترغب في هذه الطريقة فاستخدم الكود التالي :

On Error GoTo err_pic
If Me.NewRecord Then
عارض_الصور.Picture = ""
Else
عارض_الصور.Picture = Application.CodeProject.Path & "\" & Me![رقم] & ".jpg"
End If
err_exit:
Exit Sub
err_pic:
If Err.Number = 2220 Then
عارض_الصور.Picture = ""
End If
Resume err_exit

 

وفي هذه الحالة عند كون السجل جديد أو عند عدم العثور على الصورة ستختفي الصورة .

انتهت هذه الطريقة .

 

مثال عن عرض صور GIF :

أمثلة منشورة .

 

 

الأمثلة مضغوطة

تحتاج إلى برنامج فك الضغط

انقر هنا لتحميل البرنامج

مثال بالأكسس 2002