Foksh

أخي الكريم @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

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

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

مافيش مشكلة أبداً صدقني ، لكني قمت بتجربة الفكرة على الصور لوحدها وتمام التمام ، وبعد كدة جربتها على ملفات الـ PDF وكانت ناجحة كمان ، لكن ممكن لو حد جرب ويعطينا رأيه يبقى مشكور

شكله الموضوع غريب ، وأن الأستاذ @murady قد يكون له تفسير بعد تصويبه للخطأ الذي حصل في الرابط

بعد التجربة ، قمت بإزالة برنامج الـ Adobe Acrobat Reader ، وتمت عملية الحذف للمجلد الفارغ بنجاح ، يعني ولله الحمد المشكلة في إنه البرنامج ( Adobe Acrobat Reader ) يحجز متغير يبقى يعمل في الخلفية في الويندوز ، وليس في ملف الآكسيس .

نموذج كليندر تاني ، ومديول واحد بس ولكن !!! هنغير اسم فورم الكليندر ( على فرض انه الإسم التاني frmCalendar1 ) ؛ DoCmd.OpenForm "frmCalendar1", windowmode:=acDialog, OpenArgs:=strTitle وهنعمل تعديل بسيط على فورم الكليندر التاني عند زر ( OK ) وهنخليه يعمل اغلاق للنموذج بعد اختيار التاريخ ، وفي المرفق تم التطبيق ولك حرية التعديل C.accdb

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

أختي الكريمة ، بما إنك فضلتي طريقة عرض الكليندر داخل النموذج ( بالإستغناء عن ظهورها كنموذج منبثق ومنفصل ) كما هو الحالي في الفكرة التي نفذتيها حضرتك ؛ فإنك لن تحتاجي لللأزرار التي تم اخفائها ( Today , Ok , Cancel ) من نموذج الكليندر ، أما ما تبقى فهو بنفس الطريقة ؛ مع الإنتباه لإسم مربع النص التي تريدين إدراج التاريخ فيه ( A ) .

أخي @jo_2010 ، هذا ما استطعت الوصول إليه ، واتمنى ان يكون طلبك ولكن واجهتني مشكلة وأن شاء الله يكون لها حل ولكن ضيق الوقت أخي الكريم ، وهي أنه بسبب استعراض النموذج لملفات الـ PDF فأعتقد أنها كانت مشكلة في حذف الملف من المجلد عند تنفيذ أمر الحذف , تأكد منها علها تكون عندي المشكلة في الكمبيوتر .. TESTEdit.accdb

تم اجراء تعديلات على نموذج الرزنامة ، وبعض التعديلات على الموديول الخاص بها .. تفضلي B.accdb