Moosak

الملف يشتغل معي بدون مشاكل .. لذلك أعتقد أن المشكلة بسبب إعدادات اللغة بجهازك ، ولحلها اتبع الخطوات التالية : في 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 فيصبح شكل الملف هكذا : وهذا تطبيقي :

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

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

باش مهندسنا @ابو جودي عند الفتح تظهر لي رسالتي خطأ : 1 2 وعند محاولة تشغيل المقطع تظهر لدي رسالة الخطأ هذه

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

عملية التفصيص هذه هي عبارة عن محاولة للتعلم وفهم الفكرة .. 😅 ولكن وكما يبدوا أن الطريق أمامي لايزال في أوله 😄

لله درك يا رجل .. 😃 أنَّا لك كل هذا العلم 😁 بسم الله ما شاء الله عليك .. حاولت أفصص وأفكك الدوال والأكواد وما فقهت منها إلا قليلا 😅

أيش أسوي مديرنا .. هم يفتحوا مواضيح جديدة 😅

تفضل أخي العزيز عملتها لك في زر عند النقر على الأزرار الفرعية .. وكذلك عند مرور الماوس مرة تفتح ومرة تقفل 😁 test (2).rar

يمكنك عمل ذلك بدون أكواد .. بالذهاب الى خصائص الحقل في الجدول >> ثم في خيار مفهرس >> تختار نعم (التكرار غير مقبول ) ..

السلام عليكم ورحمة الله وبركاته درسنا اليوم يتكلم عن كيفية تحزيم برنامج الأكسس بعد أن تنتهي من تصميم برنامجك وتكون مستعدا لتحويله إلى ملف EXE وذلك ليسهل عليك تنصيبه في أجهزة الحاسوب سواءا لعملائك أو أجهزة العمل أو غيرها .. كل ما ستحتاجه لتطبيق درس اليوم هو : ملف الأكسس / وأيكونة برنامجك الخاص ( اختياري) / وصورة لشاشة البدء بصيغة BMB ( اختياري) / وبرنامج الوينرار WinRAR . فعلى بركة الله ..