اشكرك جزيل الشكر استاذ محمد طاهر ان جميع الامثلة تخزن الصورة عن طريق تخزين المسار ، وهذا معلوم بفضل الله ومن ثم فضل هذا المنتدى واعضاءه ولكني اريد ان اصل الى مربع استعراض في جمل واحدة ثم اضغط على الصورة التي اريدها فتدرج وهذه الشفرة لاتعمل كما هو مطلوب لدي وتظهر لي رسالة الخطأ
2793
On Error GoTo Officena
' employee_pic اسم كائن صورة الموظف هو
Me.employee_pic.Action = acOLEInsertObjDlg
ExitProcedure:
Exit Sub
Officena:
Select Case Err.Number
Case 2001 'هذا الإجراء يقوم بإلغاء العملية السابقة
Resume ExitProcedure
Case Else
MsgBox "خطأ رقم " & Err.Number & ": " & "الرجاء ابلاغ المبرمج بالمشكلة", vbOKOnly + vbInformation, "Officena"
Resume ExitProcedure
End Select