سحب اسماء الملفات من مجلد ما الى حقل اكسيس

[abdhamid]

اعضاء المنتدى الكرام

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

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

نشكر لسيادتكم الفضل 

emp.rar

[husamwahab]

تفضل التعديل حسب فهمي لطلبك

emp2.rar

[abdhamid]

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

باسماء الصور القديمة بينما المطلوب ادراج اسماء الملفات من المجلد بالاسماء الحقيقية لها

كذلك اذا كانت سجلات حقل pict فارغ يعطي رسالة خطا

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

emp2.rar

[husamwahab]

اعتذر استاذ abdhamid

لان فهمت الموضوع بصورة غير صحيحة

تفضل التعديل ارجو ان يكون طلبك

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

الكود منقول  من احد المواقع 

emp3.rar

[abdhamid]

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

[husamwahab]

رحم الله والديك

وانا بالخدمة استاذي العزيز

[abdhamid_nasr]

الف شكر

تم تعديل أبريل 17, 2021 بواسطه abdhamid_nasr

[abdhamid_nasr]

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

subscribe out of range

والخطا فى سطر 

For i = LBound(aFiles) To UBound(aFiles)

ارجو الافادة اعلم انى اثقلت عليكم

emp3.rar

[husamwahab]

اذا امكن ارسال الملف الذي حدثت فيه المشكلة بعد التعديل

مع توضيح اكثر لطلبك

[abdhamid_nasr]

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

subscribe out of range

والخطا فى سطر 

For i = LBound(aFiles) To UBound(aFiles)

ارجو الافادة اعلم انى اثقلت عليكم

emp3.rar

[husamwahab]

تفضل التعديل استاذي العزيز

وانا بخدمتك

 

emp4.rar

[abdhamid_nasr]

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

[figo82eg]

ممكن اخى الكريم الملف بصيغة  2003