كود لإظهار اسم الملف وامتداده

[figo82eg]

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

[Moosak]

تفضل أخي @figo82eg 🙂

للحصول على نوع الملف :

=Right([Full];Len([Full])-InStrRev([Full];"."))

للحصول على اسم الملف :

=Left([Full];InStrRev([Full];".")-1)

حيث أن [Full] هو اسم الحقل الذي يحوي أسم الملف كاملا

إمتداد.accdb

[ابو جودي]

طيب كنت احضر المرفق واذا بالرد وصل من الباش مهندس @Moosak 

بس ولانى حضرت المرفق وطبعا عملت حساب كل شئ  

مش راح اشرح اترككم مع التجربـــــة

وراح نشوف رد يضاف للمكتبة 

 

Extract Filename And Extension.zip

[ابو جودي]

14 دقائق مضت, Moosak said:

للحصول على نوع الملف :

طيب ممكن سؤال يا عسل انت عامل اسم الملف كالاتى  FileName.accdb

يا ترى لو فى ملف بدون امتداد وما تسالنى ازاى وليه واسمه FileName

ايه اللى راج يصير وياك 

 

[ابو البشر]

24 دقائق مضت, ابو جودي said:

طيب ممكن سؤال يا عسل انت عامل اسم الملف كالاتى  FileName.accdb

يا ترى لو فى ملف بدون امتداد وما تسالنى ازاى وليه واسمه FileName

ايه اللى راج يصير وياك 

 

@ابو جودي ههههههه .... مثلا هذا الملف ....

 

‎.rar

[ابو جودي]

10 دقائق مضت, ابو البشر said:

مثلا هذا الملف ....

نعم قم بتجربة الملف على المرفق الخاص بى وانظر الى النتيجة

[Moosak]

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

وراح نشوف رد يضاف للمكتبة 

أمااااااااااااااااااااااااال 

خلاص تمت الإضافة  

[Moosak]

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

طيب ممكن سؤال يا عسل انت عامل اسم الملف كالاتى  FileName.accdb

يا ترى لو فى ملف بدون امتداد وما تسالنى ازاى وليه واسمه FileName

ايه اللى راج يصير وياك 

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

يا ترى لو فى ملف بدون امتداد وما تسالنى ازاى وليه واسمه FileName

إحنا مش هنستعبط على البرنامج بأه 😂

[figo82eg]

 

6 ساعات مضت, Moosak said:

تفضل أخي @figo82eg 🙂

للحصول على نوع الملف :

=Right([Full];Len([Full])-InStrRev([Full];"."))

للحصول على اسم الملف :

=Left([Full];InStrRev([Full];".")-1)

حيث أن [Full] هو اسم الحقل الذي يحوي أسم الملف كاملا

اشكرك استاذى الغالى @Moosakولكن يظهر معى مشكلة عند طبيق الحل على النموذج اذا كان لا يوجد مرفقات الملفات مثال الصورة المرفقة فهل من حل لها

[Moosak]

10 ساعات مضت, figo82eg said:

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

تم حل المشكلة أخي @figo82eg 🙂 

بدل الدالتين بهذه ..

لنوع الملف :

=IIf(Not IsNull([Full]) And InStr(1;[Full];".")<>0;Right([Full];Len([Full])-InStrRev([Full];"."));"")

لاسم الملف :

=IIf(Not IsNull([Full]) And InStr(1;[Full];".")<>0;Left([Full];InStrRev([Full];".")-1);[Full])

ولعيون الحبيب @ابو جودي تم حل قضية الخانات الفاضية أو الأسماء الغير صحيحة 😏 :

وعندما تكون فاضية كذلك :

إمتداد.accdb

[figo82eg]

بارك الله فيكم استاذتى الكرام وهو المطلوب  جزاكم الله خير