Foksh

لم تتم التجربة بنجاح ، هل يجب التسجيل أولا بـ Google Workspace ؟؟

لم تفلح المحاولة في ربط الـ Gmail مع برنامج الـ Outlook للأسف

لم اقم بالتجربة ، ولكن غداً إن شاء الله سأحاول واتواصل معك متابعاً

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

تفضل هذا التعديل كما طلبت ، عند بداية كل سنة سيقوم بحذف السجلات التي حددتها فقط . Reset_Tbl.accdb

اعمل نسخة احتياطية من الداتا ان كانت مهمة جداً ، وقم بالتجربة على العلاقات حسب التغييرات ، لإنه من كلامك لن تستطيع ارفاق القاعدة لرؤيتها

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

جرب هذه الفكرة في هذه المشاركه

في النموذج الرئيسي الذي يعمل أول نموذج في مشروعك قم بإدراج مربع نص مصدره ()Date واجعل الحدث عند فتح النموذج جملة شرطية إنه اذا كانت قيمة مربع النص ( التاريخ ) يساوي 1/1/2024 أن يعمل الإستعلام فقط. أيضاً كفكرة جرب هذه الجملة الشرطية في النموذج الذي يعمل كأول نموذج في مشروعك ... If Year(Date()) = year(date())+1 Then DoCmd.OpenQuery "اسم_الاستعلام" End If حيث ()date الثانية تمثل حقل فيه تاريخ سابق تم تسجيله في جدول للمقارنة بين التاريخ الحالي لليوم وتاريخ سابق. وغداً إن شاء الله وكان في العمر بقية ، سأرفق لك ملف كما طلبت

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

يعني مثلاُ انت تريد ان تختار مستند من مجلد اسمه 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 ، وليس من طبعي أن يستعصي موضوع مثل هذا دون البحث عنه ومعرفة آلية إنشاء كهذا الملف والذي صار أشبه بملف مضغوط على هيئة ملف آكسيس 🤔

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