اذهب الي المحتوي
أوفيسنا

|8| ربط صورة في النموذج بقيمة خلية الجدول


alfareed

الردود الموصى بها

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

الأخوة الأفاضل في هذا المنتدى

لدي قاعدة بيانات جدول + نموذج + تقرير

كل خلية من الجدول لها قيمة و لها صورة .... كيف اظهر الصورة في النموذج عند اختيار الحقل ....

الحقل الدال على اسم الصورة لا يحتوي على الامتداد ....

أترككم مع المثال أوضح

http://www.drr.cc/gen/test.rar

تم تعديل بواسطه alfareed
رابط هذا التعليق
شارك

أخي

أفتح الجدول وأضف حقل جديد وسمه مثلاً الصورة وضعه كائنole

ثم في النموذج أفتح على التصميم وضع الحدث التالي عند النقر على الصورة أو النقر المزدوج

   On Error GoTo Officena
   ' ccاسم كائن صورة  هو
   Me.cc.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

على أعتبار أن اسم الكائن في النموذج cc

رابط هذا التعليق
شارك

  • 8 months later...
زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information