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

أخي الحبيب،، مربع النص الذي تقصده هو مربع خاص للبحث عن الملفات ،، وكذلك أنت عملت أمر الطباعة للنموذج نفسه وهذا خطأ .. للطباعة ينبغي تصميم تقرير منفصل عن النموذج ويعتمد في بياناته على نفس استعلام النموذج .. وقد أصلحت لك ذلك بإنشاء تقرير جديد للطباعة .. ويمكنك الآن تنسيق التقرير كما تحبه أن يظهر عند الطباعة .. Database1.rar

وعليكم السلام ورحمة الله وبركاته .. يمكنك ذلك عن طريق استعلام إلحاق -----> تلحق الموظف بجدول الأرشيف وبعد ذلك استعلام حذف ------> لحذف الموظف من جدول الموظفين . ستحتاج لفورم تكتب فيه رقم الموظف المراد إلحاقه وذلك لتعتمد الاستعلامات عليه في الحصول على رقم الموظف المقصود .. وبعد ذلك زر يشغل لك الاستعلامين بالتتالي : ( إلحاق >> ثم حذف) ويمكنك الاستغناء عن عمل جدولين للموظفين وللأرشيف .. بإضافة حقل [نعم/لا] في جدول الموظفين وتسميها الأرشيف مثلا ،،،، وبعد ذلك يبقى جميع الموظفين في نفس الجدول فقط ستحتاج لزر يشغل لك استعلام تحديث لكي يضع علامة صح للموظف لإخافائه من قائمة الموظفين الحاليين ،،، طبعا ولا تنسى جعل نموذج الموظفين يعتمد على استعلام يظهر لك الموظفين الذين ليس عليهم علامة صح فقط ..

تفضل أخي العزيز .. تكتب رقم الملف وتضغط على [عرض] لفتح الملف المطلوب Database1.rar

ما شاء الله طريقة سهلة وسريعة ورائعة .. والأجمل أنها لا تظهر للمستخدم نافذة الخيارات .. تزيل الشريط العلوي للبرنامج . وكذلك تعطل فتح القاعدة بزر الشفت Shift . بدون أكواد وبدون كثير إعدادات .. أحييك على هذا الطرح .. 😊 لو أنك دعمته بالصور لحضي باهتمام أكبر .. 👍🏼😉 الفكرة باختصار : هي تغيير ملحق الملف من accdb إلى accdr فيصبح شكل الملف هكذا : وهذا تطبيقي :

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

عند الفتح : عند التشغيل :