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

للرفع

للرفع

أرجو الرد للأهمية

في الجدول قم بعمل حقل بنوع ( نص Text ) الهدف منه حفظ مسارات الصور ليكن اسمه ThePath.

في النموذج في عرض التصميم أضف صورة عادية غير مرتبطة ، ستنفتح أمامك تلقائياً نافذة فتح الملفات ، قم باختيار أي صورة ثم موافق ، في خصائص الصورة احعل اسمها Pic

أضف الحقل الجديد (ThePath) إلى النموذج ، إحفظ التغييرات.

افتح استعلام جديد في عرض التصميم ،اختر الجدول المعني ثم اختر اسم الحقل الجديد ، ثم من شريط الأدوات اختر ( نوع الإستعلام Query Type ) اختر( استعلام تحديث Update Query ) في الخانة تحت اسم الجدول (تحديث إلى Update to) اكتب ما يلي :

"D:\TheFolder\"&""&TheTable!TheKey&""&".bmp"

ثم اضغط زر ( تشغيل Run ) ، سوف يتأكد منك برسالة ( أنت على وشك تحديث كذا و كذا .... ) اضغط موافق على مسؤوليتي .

هذا بالنسبة لكل السجلات القديمة . تمام ؟!

أما من أجل عرض الصور في النموذج و من أجل السجلات الجديدة :

افتح ماكرو جديد في عرض التصميم في خانة ( إجراء Action) اختر من القائمة المنسدلة (SetValue) في أسفل الماكرو في خانة ( عنصر Item ) أكتب التالي

[ThePath]

في خانة( تعبير Expression ) أكتب التالي :

"D:\TheFolder\"&""&[TheKey]&""&".bmp"

مرة أخرى في السطر الثاني من الماكرو اختر إجراء (SetValue ) في أسفل الماكرو في خانة

( عنصر Item ) أكتب التالي

[Forms]![TheForm]![Pic].[Picture]

في خانة( تعبير Expression ) أكتب التالي :

[ThePath] المقصود به اسم الحقل أي مسار الصورة

ملاحظة :

TheFolder يمكنك تغييره إلى اسم المجلد الذي بداخله الصور

TheTable يمكنك تغييره إلى اسم الجدول.

TheForm يمكنك تغييره إلى اسم النموذج المطلوب

ThePath يمكنك تغييره إلى اسم الحقل الجديد الذي يحفظ مسارات الصور

TheKey يمكنك تغييره إلى اسم حقل تعريف الموظف الذي تحدثت عنه

Bmp يمكنك تغييره إلى امتداد الصور المحفوظة لديك مثل jpg – gif – tiff

و لا تظن النقطة السابقة لها خطأ مطبعي !! .bmp - .jpg

"" لا يوجد فراغ بينهما

"& لا يوجد فراغ بينهما

باختصار : لا يوجد أي فراغ في أي معادلة إطلاقاً.

الآن

في خصائص النموذج في صفحة ( إجراء Event) اختر الماكرو الجديد من القائمة المنسدلة أمام خانة

( في الحالي OnCurrent ) انتقل إلى العرض العادي و قل لي ما رأيك ؟؟؟!!!

ملاحظة أخيرة : الماكرو يغنيك عن الاستعلام .

يمكنك استخدام الملف المرفق و لكن عليك تغيير الأسماء المذكورة حسب متطلباتك .

أغلب الأوامر الواردة في ردي هذا قد تكون معلومة لديك و لكن آثرت كتابتها لمن يحب أن يعرف.

PicsFromFolder.zip

اخي العزيز صلاح جزاك الله كل خير علي

إهتمامك

هذا ما كنت اريده

شكرا لك

أتمنى صادقاً أن يكون هذا الحل نافعاً ، جرّبه ، إن نجح فلله الحمد من قبل و من بعد ، إذا لم ينجح فأرجو ألا تتردد في إعلامي بالمشكلة و سنجد لها الحلّ إن شاء الله.

استاذ / صلاح

رائع ألف شكر قدمت لي خدمه جليلة ...

ولكني لازلت أواجه مشكله في نشر البرنامج حيث يتم تحميل الصور في السيدي الخاص بالبرنامج

وعند تحميل البرنامج قمت بوضع أمر لفك ضغط الصور على مجلد c:\photo لتوقعي بأن كثير من الأجهزة

لا يوجد بها قرص فرعي يحمل اسم \:D ولكن للأسف في كل محاولة لا تتعرف قاعدة البيانات على السورس

الخاص بمجلد الصور .. إلى الآن لم أتوصل إلى حل ...!!!!

ألف تحية لك :D

يمكنك عمل مايكرو ثاني بحيث يكون السورس الدرايف سي

مثلاً : C:\photo

وفي قاعدة البيانات تجعل تشغيل المايكرو عن طريق الأوامر في شاشة الكوماند على الشكل التالي

docmd.runmacro

وتضيف سطر الخطأ حيث أنه اذا لم يتعرف على الدرايف D يقوم بنفس الأمر على المايكرو الثاني لتشغيله من الدرايف C

تحتاج منك لبعض الحيلة حتى تنجح هذه الطريقة.. :)