Eng.Qassim

اليك الطريقتين ..وعن طريق الاستعلام ايضا العربية.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

يا اخي ..الله هداك ..انت تعطينا بالقطارة ضع الكود التالي: Private Sub VerCcp_Click() DoCmd.OpenForm "FrmVerment", acNormal Forms![FrmVerment]![FrmVerment_Sub]![TheValueCcp ] = Me![loan_other] Forms![FrmVerment]![FrmVerment_Sub]![TxtMonth] = Me![Auto_Date] End Sub وفي النموذج الفرعي FrmVerment_Sub.. في حدث عند التحميل تضع Private Sub Form_Load() DoCmd.GoToRecord , , acNewRec End Sub

اذا كان النموذجين في نموذج رئيسي واحد اسمه مثلا frmMain ضع الكود التالي عند الضغط على VerCcp Private Sub VerCcp_Click() If Me.VerCcp = True Then Forms![frmMain]![FrmVerment_Sub].SetFocus DoCmd.GoToRecord , , acNewRec Forms![frmMain]![FrmVerment_Sub]!loan_other = Me.loan_other Forms![frmMain]![FrmVerment_Sub]!Auto_Date = Me.Auto_Date Else End If End Sub

بعد اذن استاذي @kkhalifa1960 لماذا لا تضيفه مباشرة من مربع التحرير الخاص بالبحث..ان كان لديك مربع تحرير ..استخدم الكود التالي Private Sub cboNumber_NotInList(NewData As String, Response As Integer) Dim strTmp As String strTmp = "Add '" & NewData & "' as a new EmpNumber?" If MsgBox(" هذا الرقم لم يتم تسجيله", vbCritical + vbYesNo, "تنبيه") = vbYes Then strTmp = "INSERT INTO Employee ( EmpNumber ) " & _ "SELECT """ & NewData & """ AS EmpNumber;" DBEngine(0)(0).Execute strTmp, dbFailOnError Response = 0 Me.cboNumber = "" Me.Requery Else Response = 0 Me.cboNumber = "" End If End Sub ولاتنسى.. limit to list=yes