Foksh

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

بوركت يا أستاذ موسى ، والمحبة من الله زادت لإن اسمك على اسم والدي رحمه الله

أشكرك جداً أستاذي الكريم ,, لكن للأسف يعطي هذا الخطأ ، أولاً ثانياً تخيل من قد ما عقلي اليوم تشتت بسبب العمل ( تاهت الأفكار وانقلبت الأخبار في رأسي ) حتى نسيت كيف أحل هذه النقطة وهي عند الإضافة يضيف أسماء الملفات أو بالمسارات الى الليست بوكس الله وكيلك اليوم جاني جهاز iPhone 12 pro به مشكلة في الواي فاي ( ولأن البورد مكون من طبقتين ) اضطررت لفحص ما يقارب 110 نقاط تقوم بالتوصيل ما بين البوردين لمعرفة أين يكون الفصل وتتبع المسار

للحظة اعتقدت انك تجلس معي على كمبيوتري هههههههههه الا انني فعلاً لم اتمكن من استكمال الفكرة جزاك الله كل خير اخونا ومعلمنا @Moosak ومن باب الطمع في كرمك ؛ وانت من الاساتذة الكبار في منتدانا ، كيف لي ان اجعل عرض المسارات داخل List Box ؟؟؟ Try 2023 (1).accdb

كنت قد بدأت بتطبيق الفكرة ، ولكن صدقا بسبب ضغط العمل توقفت ، سأرفق لك مثال لما وصلت له ، وعل أحد الإخوة يكمل أو يأتيك بفكرة جديدة أفضل.

بعد البحث خرجت بهذه النتيجة:- DBPix هو إضافة (Add-in) لقاعدة بيانات Microsoft Access تُستخدم لتخزين وعرض الصور داخل قاعدة بيانات Access. يمكن استخدامه للتعامل مع الصور داخل قاعدة بيانات Access وتخزينها في السيرفر SQL Server. هذه الإضافة تتيح لك ربط الصور بسجلات قاعدة البيانات وعرضها في نماذج Access. وقد تختلف جودة الصور التي يتم تخزينها باستخدام DBPix اعتمادًا على جودة الصور الأصلية وإعدادات مسح الصور (Scanner) التي تُستخدم. لضمان أفضل جودة للصور، يجب تكوين إعدادات السكانر بعناية. يمكن تعديل إعدادات السكانر للحصول على جودة أفضل، مثل الدقة (Resolution) وتنسيق الصورة (Image Format). ولإنشاء نموذج (Form) داخل قاعدة بيانات Access باستخدام DBPix لخزن الصور من السكانر ونقلها إلى قاعدة بيانات SQL Server، يمكنك اتباع هذه الخطوات: 1. قم بإنشاء نموذج (Form) جديد في قاعدة البيانات. 2. قم بإضافة حقل (Field) من نوع OLE Object إلى النموذج. ستستخدم هذا الحقل لتخزين الصور. 3. اضغط بزر الماوس الأيمن على الحقل الذي أنشأته واختر "عناصر التحكم ActiveX" من القائمة. 4. ابحث عن DBPix Control وأضفه إلى النموذج. 5. قم بتكوين إعدادات DBPix Control للاتصال بقاعدة بيانات SQL Server والتحكم في عرض وتخزين الصور. 6. يمكنك برمجة النموذج للتفاعل مع DBPix Control والتحكم في إضافة الصور من السكانر ونقلها إلى SQL Server. طبعاً يجب أن تقوم ببرمجة النموذج واستخدام VBA (Visual Basic for Applications) لضبط سلوك DBPix Control والتفاعل معه بحسب احتياجات التطبيق الخاص بك. *لم أقم بالتجربة ، ولكن هذا ما فهمته من الشرح 😅

لم تتم التجربة بنجاح ، هل يجب التسجيل أولا بـ 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 بالإعتماد على موقع غير عربي ، وجدت هذا الحل ، جربه وأعطنا ردك