Moosak

مبارك عليك يا أبا جودي ، الرجل المناسب في المكان المناسب 🤗🎈🎉✨ وأعانك الله على المهمة القادمة وأنت أهل لها بإذن الله 😉

أرفق قاعدة البيانات ..

نعم أخي قاسم .. لكن في كثير من الأحيان وبإقرار من صاحب الموضوع بالإجابة الأفضل إلا أنه ينسى وضع العلامة عليها .. فيبقى الزائر يبحث بين الردود ليعرف أيها الأفضل ..

جزاك الله خيرا أستاذنا @ابوخليل أحسنت وأجملت ..👍🏼 ولي طلب من إدارة المنتدى أيضا ..🌹 حبذا لو يكون لمشرفي المنتدى دور في اختيار الإجابة الصحيحة في المواضيع لما له من تسهيل في الوصول للحل الصحيح للمشكلة ، فكثير من الأعضاء لا ينتبهون لهذه النقطة .. مع جزيل الشكر مقدما 😊🌷

ما اسم التقرير الذي تريد أن توجه له أمر الطباعة ؟

بالتوفيق أخي سالم .. ياليت لو تعلم عليها كأفضل إجابة لتسهيل الوصول إليها من قبل الأعضاء مستقبلا .. 🙂

أخي سالم من نافذة محرر الأكواد ومن قائمة Tools اختر References ثم من القائمة التي ستظهر لك اختر Microsoft office 16.o object علم عليه بإشارة صح.. وإن شاء الله تتفعل معاك ..

تفضل أخي .. فتح ملف خارجي.accdb

صحيح يا باش مهندس .. جزاك الله خيرا .. بس فيه حاجه غلط في تصميم النموذج ... النموذج الفرعي غير مربوط بالنموذج الرئيسي .. !

شكلك رسلت الملف القديم يـ باشه

أنظر هنا : https://www.youtube.com/watch?v=M54Qv_Eh7fw أو هنا : https://www.youtube.com/watch?v=gM_HxBITc2k أو هنا : https://www.youtube.com/watch?v=yoGw9HKp1eU كلها تشرح نفس الفكرة ... 🙂

حياك الله أخي @at_aziz 🙂 تفضل هذا ملف الفوتوشوب مع ملفات الصور PNG .. Form 4 Designs.rar

أهلا وسهلا بك أخي العزيز .. لو تكرمت حدد لي الخلايا التي تريد لها ما ذكرته .. لأن لديك نماذج كثيرة .. ما شاء الله 🙂

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

الملف يشتغل معي بدون مشاكل .. لذلك أعتقد أن المشكلة بسبب إعدادات اللغة بجهازك ، ولحلها اتبع الخطوات التالية : في Windows 10 : انقر فوق الزر ابدأ، ثم انقر فوق لوحة التحكم. انقر فوق "تغيير تنسيقات التاريخ أو الوقت أو الأرقام". يظهر مربع الحوار "المنطقة". على علامة التبويب "تنسيقات"، حدد اللغة العربية (دولتك ) من القائمة المنسدلة. من علامة التبويب "إداري" من تغيير الإعدادات المحلية للنظام تختار العربية ( دولتك ). تعيد تشغيل الكمبيوتر ، وبإذن الله تنحل المشكلة. أو انظر الشرح هنا : https://www.youtube.com/watch?v=sTICO0bsJs8

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

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

كل ما ستحتاجه هو نموذج جديد خاص بالموظفين الذين هم في الأرشيف .. وقد عملته لك .. كان هناك أخطاء في عمل الروابط في عدة نماذج وأصلحتها لك حسب الاستطاعة 🙂 nabilDatabase23.accdb

هل هذا ما تريده أخي العزيز ؟ مربع نص تكتب فيه تاريخ النهاية وآخر يحسبلك المدة بينهما بالأيام وزر طباعة يفتح لك استعلام بالتحاليل التي أخذت أكثر من 5 أيام ، يمكنك تحويلها لتقرير . 2019-01 - 22.rar

تم التعديل أخي العزيز كما فهمت منك .. طبعا مع بداية السنة الجديدة سيبدأ الترقيم من الواحد من جديد مع تغيير السنة الجديدة ولو حذفت جميع السجلات وبدأت من جديد .. أيضا سيبدأ من 1/2022 FO4.mdb

أرفق الملف الذي تعمل عليه أخي وليد ..

شكرا لك أخي العزيز 😊

نعم هو لايقبل التكرار .. لو لاحظت أنني تعمدت الوقوف عند 5/2021 لأريك فقط كيف أن الترقيم يبدأ من 1/2022 تلقائيا مع دخول السنة الجديدة .. والتسلسل كما هو واضح لديك ..

تفضل أخي عبدالعزيز : أضفت لك عمودين أحدهما للترقيم التلقائي لمعرفة الترتيب الحقيقي للسجل ، وحقل آخر Topic لتجربة الترقيم يمكنك استبداله بما تشاء لاحقا .. الكود يعتمد على آخر مدخل ، حيث أن حقل For غير قابل للتحرير ( الكود يضع الترقيم بنفسه) ، وعند بداية سنة جديدة يعيد الترقيم من الرقم 1 كتبت لك هذا الكود ووضعته في حدث قبل الإدراج : Private Sub Form_BeforeInsert(Cancel As Integer) Dim OldN As String Dim Y As Integer Dim NewN As String OldN = Nz(DLast("[for]", "TAB"), 1 & "/" & Year(Date)) Y = Right(OldN, Len(OldN) - InStr(OldN, "/")) If Y = Year(Date) Then NewN = CInt(Left(OldN, InStr(OldN, "/") - 1)) + 1 & "/" & Year(Date) Me.FOR = NewN Else NewN = 1 & "/" & Year(Date) Me.FOR = NewN End If End Sub التقيد بالتسلسل والنمط.mdb

تفضل أخي نبيل : nabilDatabase23.accdb