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

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

قام بنشر (معدل)

هل بالامكان تحديث مسار  الصور داخل المجلدين فى وقت واحد

تحديث الصور فى المجلدين.rar

تم تعديل بواسطه cckills2010
قام بنشر (معدل)

بجد انا كنت محتاج لهذه الطريقه الشكر كل الشكر

كده لو عندى 100 مجلد اقدر اعمل التحديث عليهم صح

husamwahab 

هل بالامكان شرح الطريقه للعمل عليها

   MsgBox ("مبروك ... تم تصحيح مسار الصور في الجدول1")

   MsgBox ("مبروك ... تم تصحيح مسار الصور في الجدول2")
اريد اضافة اكثر من مجلد   

   MsgBox ("مبروك ... تم تصحيح مسار الصور في الجدول2")
تم ايجاد الطريق العفو

Public Function zaCorrectPath3()
Private Sub CmdGO_Click()
Call zaCorrectPath
Call zaCorrectPath2
Call zaCorrectPath3
DoCmd.SetWarnings False
DoCmd.OpenQuery "Table"
DoCmd.SetWarnings True
End Sub
 

تم تعديل بواسطه cckills2010
تم الحل
قام بنشر

الشكر لله استاذي العزيز وانا بالخدمة

نعم الطريقة هي انشاء دالة ثانية للمجلد الثاني مع مراعاة الامتداد لكن لا اخفيك سرا هي طريقة غير عملية خصوصا بوجود الكثير من المجلدات 

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

قام بنشر

نعم الطريقة هي انشاء دالة ثانية للمجلد الثاني مع مراعاة الامتداد لكن لا اخفيك سرا هي طريقة غير عملية خصوصا بوجود الكثير من المجلدات 

هذا هو ماتم معى اخى husamwahab عند اضافة رابط اخر فى نفس الجدول هل موجود حل  انا اعمل على برنامج ارشفة 

واستخراج الامتداد  وهناك الكثير من الصور والملفات المرفقه فى البرنامج اريد عند وضعه على اى جهاذ ان يتم التشغيل بدون اخطاء  هل لى بالمساعده 

 

dfg.png.2e586d1d5b30d6b9110eabadefa6abb5.png

ht.rar يرجى النظر على هذا المرفق.rar

قام بنشر

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

وتغنيك عن كود اعادة تعيين المسار

ملاحظة : في الحقيقة انا لم اكون صورة واضحة لطبيعة برنامجك 

لكن هناك طريقة وهي ان تجعل الكود يقوم بكل شيء اي يقوم بانشاء المجلدات ويقوم بتسميتها ويضع المرفقات اللازمة لكل مجلد وايضا هو الذي يقوم بتسميتها 

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

وعذرا للاطالة وانا بخدمتك

قام بنشر

اشكر اهتمامك بالموضوع

ملاحظة : في الحقيقة انا لم اكون صورة واضحة لطبيعة برنامجك  البرنامج ارشفه واستخراج امتداد الملفات

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

وتغنيك عن كود اعادة تعيين المسار

لا اريد ارهاق قاعدة البيانات بكثره الملفات فى المرفقات نظرا لحجم القاعده

كن هناك طريقة وهي ان تجعل الكود يقوم بكل شيء اي يقوم بانشاء المجلدات ويقوم بتسميتها ويضع المرفقات اللازمة لكل مجلد وايضا هو الذي يقوم بتسميتها  

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

يقسم الى مجلدات.rar

قام بنشر
20 minutes ago, cckills2010 said:

لا اريد ارهاق قاعدة البيانات بكثره الملفات فى المرفقات نظرا لحجم القاعده

اقصد مرفقات خارج قاعدة البيانات في مجلدات خارجية

قام بنشر (معدل)

مثال لو امكن المثال ده ممكن يكون هو اللى انا محتاج اليه بس محتاج بعض التعديلات

يقسم الى مجلدات.rar134.27 kB · 2 downloadsالتعديلات 

اولا لايقبل جميع الامتدات اريد ادراج اى امتداد

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

تم تعديل بواسطه cckills2010
قام بنشر

الكود لا يكتب المسار بصورة مباشرة

الكود يعمل بالطريقة التالي : عند اختيار صورة الكود يقوم بانشاء مجلد باسم uname ثم يضع الصورة في هذا المجلد 

باسم sn المقابل له مع الشارحة مع اسم المجلد الذ هو اسم uname

ويقوم بالقراءة بنفس الطريقة ليظهر الصور

لذا عليك ان تنشا مجلدات بنفس اسم uname

وتضع فيها الصور المطلوبة وبالاسم الذي بين اعلاه

بالنسبة لبقية الامتدادات لم اتتبع الكود جيدا لكن اعتقد انه لا يتعامل مع بقية الامتدادات واعتقد يمكن التعديل عليه ليقبل بقية الامتدادات لكن المشكلة بطريقة عرضها

1 hour ago, cckills2010 said:

 البرنامج ارشفه واستخراج امتداد الملفات

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

  • Thanks 1
قام بنشر

husamwahab

لم افهم القصد من كلمة ارشفة واستخراج امتداد الملفات 

  فيديو يوضح طريقه عمل

برنامج اكسس ارشفه واستخراج امتداد الملف ومعرفة برنامج تشغيل الامتداد

 

 

 

قام بنشر
في ١٠‏/١١‏/٢٠٢٠ at 02:38, husamwahab said:

الكود لا يكتب المسار بصورة مباشرة

الكود يعمل بالطريقة التالي : عند اختيار صورة الكود يقوم بانشاء مجلد باسم uname ثم يضع الصورة في هذا المجلد 

باسم sn المقابل له مع الشارحة مع اسم المجلد الذ هو اسم uname

ويقوم بالقراءة بنفس الطريقة ليظهر الصور

لذا عليك ان تنشا مجلدات بنفس اسم uname

وتضع فيها الصور المطلوبة وبالاسم الذي بين اعلاه

بالنسبة لبقية الامتدادات لم اتتبع الكود جيدا لكن اعتقد انه لا يتعامل مع بقية الامتدادات واعتقد يمكن التعديل عليه ليقبل بقية الامتدادات لكن المشكلة بطريقة عرضها

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

الفديو يوضح الفكره 

قام بنشر

السلام عليكم 🙂

 

1 ساعه مضت, cckills2010 said:

فين اللى فى المنتدى ياجماعه

 

سؤال الموضوع كان: 

في ٩‏/١١‏/٢٠٢٠ at 00:22, cckills2010 said:

هل بالامكان تحديث مسار  الصور داخل المجلدين فى وقت واحد

 

وقد قام الاخ حسام بالرد عليه 🙂

 

اما الطلب الاضافي ، فقد تستفيد من هذا الموضوع:

 

 

جعفر

  • Like 1
قام بنشر

السلام عليكم

مشاركة مع استاذي العزيز جعفر

اخ عبد العليم تفضل هذا التعديل المبني على فكرة برنامجك

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

ملاحظة : العمل كل العمل في الجدولين tblExtensions و tblFolders

PathExtension.rar

  • Thanks 1
قام بنشر
6 ساعات مضت, husamwahab said:

السلام عليكم

مشاركة مع استاذي العزيز جعفر

اخ عبد العليم تفضل هذا التعديل المبني على فكرة برنامجك

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

ملاحظة : العمل كل العمل في الجدولين tblExtensions و tblFolders

PathExtension.rar 413.03 kB · 4 downloads

بصراحه هو ده المطلوب بس يوجد خطأعند اختيار اسم ملف طويل 

1.png

2.png

3.png

قام بنشر

السلام عليكم cckills2010

جربت على اسم ملف طويل واسم عربي فلم تحدث مشكلة

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

ممكن ارسال المرفق المسبب للمشكلة

قام بنشر
28 دقائق مضت, husamwahab said:

السلام عليكم cckills2010

جربت على اسم ملف طويل واسم عربي فلم تحدث مشكلة

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

ممكن ارسال المرفق المسبب للمشكلة

هاهو المرفق PathExtension.rar413.03 kB · 4 downloads

قام بنشر (معدل)

 

 

منذ ساعه, husamwahab said:

السلام عليكم cckills2010

جربت على اسم ملف طويل واسم عربي فلم تحدث مشكلة

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

ممكن ارسال المرفق المسبب للمشكلة

 

52vg5XSF.thumb.jpg.4e39402603118998220b1ca0d647ce70.jpg52vg5XSF.thumb.jpg.4e39402603118998220b1ca0d647ce70

 

59a55bd702e45_.thumb.jpg.7811a7a59e111653aa2da25ce8cbbbac.jpg59a55bd702e45_.thumb.jpg.7811a7a59e111653aa2da25ce8cbbbac

تم تعديل بواسطه cckills2010
  • Like 1
قام بنشر

المشكلة ليست بسبب طول الاسم وانما من الكود

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

صادف ان اسم الملف يحتوي دوت ايضا لذا حدثت المشكلة

تم حل المشكلة بكود يبحث من اليمين

PathExtension.rar

  • Like 1
قام بنشر
6 ساعات مضت, husamwahab said:

المشكلة ليست بسبب طول الاسم وانما من الكود

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

صادف ان اسم الملف يحتوي دوت ايضا لذا حدثت المشكلة

قد يكون الاخ عبدالعليم  cckills2010 لم يأخذ النسخة الاخيرة من الملف ، من هنا https://www.officena.net/ib/topic/63134-احضار-محتويات-فولدر-خارجى-الى-البرنامج/?do=findComment&comment=505661

 

فقد تم تعديل مجموعة اشياء فيه ، وكود الحصول على امتداد الملف يقرأ الاسم من النهاية بإستخدام الدالة InStrRev :

FileExt = Mid(strFileNames(i), InStrRev(strFileNames(i), ".") + 1)

.

وصورة الملف الذي به خطأ ، الاسم ليس به نقاط ، مما يجعلنا ننظر الى امرين آخرين ، هل اسم الملف/المسار :

1. فيه الخطأ الموجود كما تم شرحه هنا

 

.

2. بسبب وجود مسافات فارغة في الاسم/المسار ، ولحل هذا الخطأ ، يجب علينا وضع المسار/الاسم بين "" ، هكذا :

File_Path = chr(34) & File_Path & chr(34)

حيث ان
Chr(34) = "

.

جعفر

  • Like 2

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

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

Important Information