Eng.Qassim

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

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

لا ..نظام الاجازات عندنا 3 ايام بالشهر ...و 36 يوم في السنة

اليك الطريقتين ..وعن طريق الاستعلام ايضا العربية.rar

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

عملت استعلام لذلك ..انظر للاستعلام query_km العربية.rar

خالص امتناني لدعائكم الكريم ..وانتم بالمثل يارب

رصيد الاجازات الكلي هو 3 ايام لكل شهر فأذا كانت خدمة الموظف سنة سيكون الرصيد 36 يوم اما الاجازات الممنوحة التي نأخذها من الاستعلام grantedvacationQ فهي تطرح من الرصيد الكلي ليظهر الباقي في حقل (الرصيد الباقي من الاجازات) ثانيا ماهو المعيار الذي تضيف 3 ايام ؟ المعيار هو مدة الخدمة بالاشهر *3 ايام

وعليكم السلام استاذ @ابراهيم_ غيرت عملية الربط في الجدولين لتكون واحد لمتعدد..لان الموظف يأخذ العديد من الاجازات ملاحظة : لديك عدة احتمالات في رصيد الاجازات اذا اردت ان يكون برنامجك احترافي ..وهو عندما تكون الاجازة اعتيادية تطرح من الرصيد فقط ولايؤثر على مدة الخدمة ..واذا كانت الاجازة بدون راتب فتطرح من الرصيد ومن مدة الخدمة (مهمة جدا)..اما الاخرى فلاتؤثر على الرصيد او مدة الخدمة تحياتي الاجازة.rar

كلامك صحيح استاذ خالد ..انا عملت على المطلب فقط ويمكن للاخ صاحب الموضوع الاخذ بملاحظاتك لانها مهمة

مشاركة مع استاذ @kkhalifa1960 Rejected Employee.rar

تفضل التعديل..ارجو ان يكون مطلبك missing years.rar

محاولة بسيطة test2023_1.rar

والله صحيح ..بين علي الكبر كل هذا بسبب عدم انتباهي لحرف ال s...اعتذر كثيرا student.rar

استاذ خالد ..هل فتحت الملف؟ انا غيرت اسم الملف من Database1 الى students الموضوع مختلف تماما ..والله شكيت بحالي اليوم ☺️

سبب الشيخوخة وليس الصيام 😄 هو كان اقتراحي من البداية ..بس الاخ صاحب الموضوع اراد الابقاء على الترقيم التلقائي ..لا اعرف لماذا ؟ هذه المرة الاولى اللي اعدل فيها على الملف 🤔

ممكن التحقق في البداية من وجود اسم الطالب بحقل غير منضم ..ثم اكمال بقية الحقول Students.rar

بالتوفيق يارب ... تقبل الله منكم صالح الاعمال بهذا الشهر الكريم

طيب اشتغل على نسختك .. 1- اضفت حقل يقرأ الشهر وفي الجدول الثاني ايضا : 2- الكود التالي في زر VerCcp Private Sub VerCcp_Click() Dim monthNumber As Integer Dim paymentAmount As Double Dim totalAmount As Double Dim txtDate As Date txtDate = Date monthNumber = Me.PM paymentAmount = Me.Loan_Other If Me.VerCcp = True Then totalAmount = DLookup("TheValueCcp", "Verment", "MON=" & PM) totalAmount = totalAmount + paymentAmount DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE Verment SET TxtMonth=#" & txtDate & "#, TheValueCcp=" & totalAmount & " WHERE MON=" & PM DoCmd.SetWarnings True MsgBox " تم دفع المبلغ" End If End Sub

الكود جميل ويعمل بشكل ممتاز ..فقط الاستدعاء من النموذج: Private Sub Form_BeforeUpdate(Cancel As Integer) Call WriteAudit(Me, ID) End Sub

عذرا..نسيت التاريخ..اعتقد بأنك تريد تحديث التاريخ بتاريخ اليوم المرفق بعد التعديل.. ff2023.rar

احتجت الى اضافة حقل يأخذ رقم الشهر ..حتى تكون الاضافة برقم الشهر..هذا حسب مافهمته جرب المرفق.. ff2023.rar

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

الفكرة ببساطة..اننا نعمل استعلامين..الاستعلام الاول فيه كل بيانات الجدول:سمه ماشئت وليكن Q1 نعمل استعلام ثاني ناخذ فيه من الجدول ال ID و SName ونعمل تجميع حسب اقل رقم او اعلى رقم ..هذا يعود لك كما في الصورة:سمي الاستعلام Q2 ثم نجمع الاستعلامين في استعلام اخر كما في الصورة: ومن جميل جمل ال SQL.. انك تستطيع اختصارها في استعلام واحد كما في مشاركتي السابقة..لتصبح SELECT q.* FROM Students AS q INNER JOIN (SELECT q1.SName, Min(q1.ID) AS MinOfUniqueID FROM Students AS q1 GROUP BY q1.SName) AS sub ON q.ID = sub.MinOfUniqueID;

استاذ @Ahmed_J..هل جربت هذا المرفق بصراحة لم اجربه لان ليس عندي سكانر يعمل بالفيدر ..الرجل عمله بالفيديو وهو شغال تمام 08 MS access (VBA)scan and attach documents سحب سكان من الفيدر.rar