بحث واظهار المرفقات فى المتصفح

[jo_2010]

السادة الخبراء الافاضل

بعد التحية

اعتذر لكم لكثرة طلباتى ولكن كرم اخلاقكم هو ما يدفعنى للتعلم والاستفادة من خبراتكم

لى اكثر من طلب مدرجين بالصورة

اليكم المرفق للتعديل علية

LAB.rar

[دروب مبرمج]

في البداية لا يجب حفظ المسار كامل في قاعدة البيانات و مع ذلك هذه ليست مشكلة

سوف نقوم بالإعلان عن ثلاث متغييرات لغرض تخزين اسم المجلد و مسار الملف

Dim strPath As String, fileName As String, sFile As String

و هنا سنقوم بإستخلاص اسم المجلد لكل مسار في قاعدة البيانات

strPath = DLookup("[Attachment_Path]", "[tbl_AttachmentList]", "[Attachment_NO]=" & MyList.Column(0))

و هنا سنقوم بإستخراج اسم الملف من المسار المخزن في قاعدة البيانات

fileName = Right$(strPath, Len(strPath) - InStrRev(strPath, "\"))

و الآن نقوم بجمع النتائج اعلاه في مسار واحد 

sFile = CurrentProject.Path & "\MY_Files\" & P_NAMES.Column(1) & "\" & fileName

و الآن سنقوم بإضافة المسار الجديد للمستعرض

[Forms]![Attacheds]![Show_Files]![MY_PDF].ControlSource = "=""" & sFile & """"

و النتيجة

تفضل التعديل

LAB2.zip

[jo_2010]

الخبير الفاضل دروب مبرمج

شكرا لاهتمام حضرتك بمشكلتى 

حضرتك قمت باظهار الملفات فى المتصفح خالص الشكر

ماذا عن باقى المطلوب اللى فى الصورة

اود ان الف نظر حضرتك ان زر حذف المرفقات تعطل عن العمل ارجو المساعدة او تكرمت

[دروب مبرمج]

تفضل التعديل

LAB33.zip

[jo_2010]

12 ساعات مضت, دروب مبرمج said:

تفضل التعديل

LAB33.zip 3.14 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 1 download

الخبير الفاضل المبدع شكرا لك لابداعاتك الرائعة وعمل نموذج بحث رائع

لكن قابلتنى مشكلة عند الحذف يتم الحذف داخل البرنامج من جدول المرفقات ولكنها تبقى فى فولدر MY_Files  اريد عند الحذف يحذف فى الجدول والفولدر واذا كان فولدر MY_Files فارغ يحذف ايضا  شكرا لتعبك ومجهودك جعلة الله فى ميزان حساناتك

[gamal gamal]

أخى جو هل يمكن اتحافنا ببرنامج الصور الرائع هذا وحده !!!

وبالطبع اذا تم تعديل الحذف من الفولدر أيضا سيصبح أكثر روعة 

ولكن

لا توجد خبرة كافية لدى للقيام بذلك 

وعمالقة المنتدى أكيد سيحلوا هذا الأمر ...

[دروب مبرمج]

تفضل التعديل

تم اصلاح حذف الملفات

تم اصلاح حذف المجلد في حال كان فارغ

 

Lab4.zip

[jo_2010]

منذ ساعه, دروب مبرمج said:

تفضل التعديل

تم اصلاح حذف الملفات

تم اصلاح حذف المجلد في حال كان فارغ

 

Lab4.zip 2.65 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 3 downloads

الخبير الفاضل

تعجز الكلمات عن ثقديم خالص الشكر على ابدعاتك وكرم اخلاقك وعلمك الغزير الذى لاتبخل بة على احد  اكرر شكرى لك ولكن يتبقى جزء صغير وهو حذف الفولدر الرئيسى MY_Files اذا كان فارغ عند حدف اخر ملف بة يتم حذف MY_Files

[دروب مبرمج]

تفضل التعديل

 

Lab5.zip

[jo_2010]

الخبير الفاضل دروب مبرمج

خالص الشكر احسنت وابدعت