Foksh

انشيء استعلام تحديث واختر من الجدول الحقول التي تريد تفريغها ، واجعل نوع الاستعلام استعلام تحديث ، وعند قيمة ( تحديث إلى ) ضع علامتي التنصيص "" فقط . وعند اي حدث مثلاُ اجعله ينفذ الاستعلام جرب وأخبرني بالنتيجة

يعني مثلاُ انت تريد ان تختار مستند من مجلد اسمه 1 ثم بنفس الخطوة تختار مستند آخر من مجلد آخر اسمه 2 ...... وهكذا ؟؟

تفضل اخي الكريم مثال بسيط Try 2023 PDF.accdb لا تنسى ، اذا انتهت المشكلة ولله الحمد ، فقط اختر الإجابة كأفضل إجابة

هذا مرفق بسيط تفضل Try 2023.accdb لا تنسى ، اذا انتهت المشكلة ولله الحمد ، فقط اختر الإجابة كأفضل إجابة

اخي الكريم استخدم هذه الدالة لعدد الأيام بين تاريخين DateDiff("d", [تاريخ البداية], [تاريخ النهاية])

أخي الكريم , إما أن تتأكد من مسار قاعدة الجداول ، أو ترفق الملف لحل مشكلته

ولك بالمثل أخي الكريم ,,

جرب هذه الفكرة ، واستغلها حسب حاجتك Try Print.accdb

أخي الكريم @jo_2010 ، بداية لدي عدة ملاحظات حسب رأيي (وليس خبرتي) :- 1. في القائمة المنسدلة هذه ليست امتدادات ، لإنما هي فحوصات لمختبر ؛ وبالاعتماد على فكرة المشروع والهدف منه فهناك احتمالين لإدراج المرفقات الخاصة بالتحاليل :- إما أن تكون النتيجة عبارة عن صورة أو ملف PDF أو ملف نصي - وبالعودة إلى إحدا مشاركاتي وأعتقد أنها الأخيرة كنت قد جعلت الاختيار يكون لنوع ملفات JPG بناءً على معطيات التصميم عند اختيارك نوع المرفق صورة ، وجعلت الإمتدادات تعرض النوع PDF عند اختيارك تقرير .. إن كنت تذكر ، وهنا عليك بالعودة لهذه الفكرة حتى تسهل على نفسك اختيار المرفقات . 2. اخفاء مربع النص File_Path لعدم حاجتك له ظاهراً ؛ إلا إن كان لك به حاجة وذلك رأي آخر طبعاً . 3. بالعودة إلى مربع النص File_Name ؛ ما هي الغاية منه إن كانت الفكرة نتائج فحص لمختبر مثلاُ ، فالأولى أن يكون اسم الملف تلقائياً مقرون بنوع الفحص List_JO - مجرد رأي 4. مع اختلاف الأكواد وخوفاً من تعارضها ؛ قم بإلغاء الأمر Kill aFile واستبدله بـ Kill File_Path . 5. تابعاً للنقطة 4 ، قم بالإستغناء عن الأسطر التالية :- قمت بحذفهم ولم يحدث اي أخطاء 'aFile = DLookup("[Attachment_Path]", "[AttachmentList]", "[Attachment_NO]=[forms]![Show_Files]![MyList]") 'FolderPath = Left(aFile, InStrRev(aFile, "\") - 1) 'FolderName = Right(FolderPath, Len(FolderPath) - InStrRev(FolderPath, "\")) استبدل كما في النقطة 4 'Kill aFile حذف هذا السطر 'Kill (Me.Attachment_Path = DLookup("[Attachment_Path]", "[AttachmentList]", "[Attachment_NO]=[forms]![Show_Files]![MyList]")) 6. في أحد مرفقاتي الأخيرة لك ، كنت قد اعتمدت على مربع نص اسمه TXT وكانت قيته هي احضار مسار المجلد الذي به المرفق ( إن كان صورة أو PDF .... الخ ) ؛وهو في كود الـ VBA ما زال موجود بالرغم من إنه غير موجود ككائن في النموذج ، وكذلك الأمر ينطبق على مربع النص TxTP وكان الهدف منه في مرفقي القديم هو أن يقوم بعد الملفات داخل المجلد الذي مساره TXT . وفي النهاية ، هذا ما استطعت حصره بشكل سريع والسبب ضغط العمل والحالة الصحية مع اختلاف الجو - والحمد لله

"Open" Adobe Reader Go to "EDIT" Open "Preferences" Ctrl+K Open "General" Select Default PDF Handler Select Adove Product in this case Adove Reader X (10.1.1) Apply Do you want to allow , YES restart your system , YES بالإعتماد على موقع غير عربي ، وجدت هذا الحل ، جربه وأعطنا ردك

الفاضل واالأخ @شايب ، تعلمت في منطقي حياتي أن التجربة أفضل من المعلومة الثابتة والتي سأسير عليها ( داخل نظام الكمبيوتر طبعاً ) ، وانا ما زلت احترم رأيك والآخرين

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

أخي الكريم ، أحترم رأيك بشدة ، وللعلم فقط بأن الملف لو كان بصيغة وورد وغيرت لاحقته الى Accdb فإن الآكسيس لن يستطيع التعرف عليه ؛ وهذا دليل على ذلك :-

استتاذي الفاضل ، انا جربت المرفق الذي ذكرته على برنامج 7Zip تحديداً ، وهذا ما دعاني لطرح الموضوع ، وهذا رابط الملف الذي ذكرته وقد لا يكون بالموضوع المهم جداً ، إلا أني قد استغربته وودت التفسير إن كان له وجود 😊

لم أترك الموضوع وفعلاً توجهت لفكرة تعديل ملف من اصدار أقل لإصدار أعلى ولكن لم يستطع نفس البرنامج تحليل وفتح الملف بصيغة Accdb ، وليس من طبعي أن يستعصي موضوع مثل هذا دون البحث عنه ومعرفة آلية إنشاء كهذا الملف والذي صار أشبه بملف مضغوط على هيئة ملف آكسيس 🤔

منكم نتعلم استاذي الكبير ،، 😊

تفضل هذا مثال على ما طلبت ، وبما أنك لم ترفق مثال فتركت لك حرية التعديل كيفما تشاء Foksh123.accdb

هل هذا طلبك ؟؟ 1234.accdb لا تنسى ، اذا انتهت المشكلة ولله الحمد ، فقط اختر الإجابة كأفضل إجابة

بس عشان نفهم حاجة انا وانت ونتأكد منها ، إزاي بيعرض عندك ملفات الـ PDF من غير ما يكون عندك برنامج اكروبات ريدر !!!!!! وهنا المشكلة إنه بيكون مستخدم المسار بين برنامج عرض الـPDF وبين الآكسيس ؛ والإتصال ده اللي بينهم بيمنع انك تحذف الملف وبيعتمد على إنه لسه ما زال قيد الإستخدام . ( فهمت قصدي )

ما فيش داعي لتكرار النموذج ، فقط اسم مربع النص اللي هتستخدميه للتاريخ زي الـ ( A )

بعتذر منك ، تفضلي التعديل الصحيح D.accdb

اخي الكريم اسعد الله مسائك ،، على ما اعتقد انت طلبت التعديل على حذف المجلد اذا كان فارغ ، والآن بالخط العريض مش قادر تكتشف الجديد لأنه شريط التمرير الرأسي موجود

تفضل وأخبرني بالنتيجة TESTEdit.accdb

جاري التعديل على الأكواد السابقة اللي حضرتك انشأتها في النموذج مع الحفاظ على الوظائف المطلوبة ،، انتظرني

ارفق ملف ليتم العمل عليه اخي الكريم ,