مساعده لادراج نوع الملف المرفق في المسار

[ABUTALAL2015]

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

 

اخواني الكرام ... ساشرح ماريد .. كما يوجد مرفق يوضح طلبي للاطلاع عليه وفهم المطلوب ..

على البرنامج الخاص بي .. اقوم بارفاق ملفات متنوعه مثل (pdf  و  jpg  و  rar  و الخ .. ) وملفات متنوعة .. 

المطلوب : عند جلب مسار الملف الى قاعدة البيانات من خلال الضغط على زر ---> Attachments

 

وبعد مايظهر لي رابط المسار في الحقل المقابل  كما في الصورة :

 

الحين المطلوب هو .. عند ادراج الرابط في الحقل اعلاه .. اريد ان يظهر لي في الخانة الثاني نوع الملف اللي هو موجود في الربط بعد النقطه :

Microsoft Access قاعدة بيانات جديد.accdb

[ابو ياسين المشولي]

منذ ساعه, ABUTALAL2015 said:

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

 

اخواني الكرام ... ساشرح ماريد .. كما يوجد مرفق يوضح طلبي للاطلاع عليه وفهم المطلوب ..

على البرنامج الخاص بي .. اقوم بارفاق ملفات متنوعه مثل (pdf  و  jpg  و  rar  و الخ .. ) وملفات متنوعة .. 

المطلوب : عند جلب مسار الملف الى قاعدة البيانات من خلال الضغط على زر ---> Attachments

 

وبعد مايظهر لي رابط المسار في الحقل المقابل  كما في الصورة :

 

الحين المطلوب هو .. عند ادراج الرابط في الحقل اعلاه .. اريد ان يظهر لي في الخانة الثاني نوع الملف اللي هو موجود في الربط بعد النقطه :

Microsoft Access قاعدة بيانات جديد.accdb

ا

اتقضل تم استخدام هذا الكود اخر كود الاضافه
c = Right([Mail_Attachment_Path], 4)
واذا ارته بدون الدوت اي بدون النقطه
c = Right([Mail_Attachment_Path], 3)

 

Microsoft Access قاعدة بيانات جديد.accdb

تم تعديل أكتوبر 17, 2018 بواسطه ابو ياسين المشولي

[ABUTALAL2015]

في ١٧‏/١٠‏/٢٠١٨ at 03:28, ابو ياسين المشولي said:

ا

اتقضل تم استخدام هذا الكود اخر كود الاضافه
c = Right([Mail_Attachment_Path], 4)
واذا ارته بدون الدوت اي بدون النقطه
c = Right([Mail_Attachment_Path], 3)

 

Microsoft Access قاعدة بيانات جديد.accdb

اخي ابو ياسين المشولي وفقه الله 

اشكرك .. جزيل الشكر على ردك .. 

وهذا الكود تم استخدامه مسبقاً .. وواجهت فيه مشكله ان اسم الملف في بعض الاحيان يتكون من 5 احرف بعد النقطة .. مثل (jpeg)  وفي هذه الحالة فإن الكود لايظهر النقطة .. في الخانة (c) ..

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

 

وشكرا لك 

[رمهان]

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

= Right(filepath, Len(filepath) - InStrRev(filepath, "."))

ضع المسار كامل بدلا ل filepath

ومعناته خذ من اليمين مقدار طول المسار مطروحا منه عدد مكان وجود النقطة من اليمين وهو هنا سيصبح مابعد النقطة

بالتوفيق

[ABUTALAL2015]

الاخ الفاضل رمهان 

اشكرك من القلب .. ونعم تم حل المشكله فضل الله سبحانه ثم بفضلك .. وفقك الله ورعاك