إن شاء الله يفي هذا الكود بالغرض ...
حيث تضع هذا الكود لحدث النقر لزر الأمر وسوف يقوم بفتح المربع الخاص بايجاد الصورة إن شاء الله
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
مع التحية