pms

تفضل بالمرفق يوجد استعلام Qry1 من نوع (استعلام تحديث) يقوم بما طلبت تحياتي/ أبومحمدfigo82eg.rar

تفضل في الاستعلام Qry1 قاعدة بيانات.rar

تفضل الحل أنظر الاستعلام الجديد (Qry_Tot_work_hours) تحياتي/ أبومحمد sum_time.rar

أبوعزوز ،،، طيب الله أوقاتك بكل خير ومحبة لا أملك الإصدار الذي رفعت به مثالك بعد الاستعانة (بصديق) تم تحويل المثال للإصدار2003 وتم الحل عليه .. فعذرا منك  1- أنشأت نموذجاً جديدا (QryVrequest) مبني على جدولك السابق (vrequest) عالجت به الجزء المتعلق بالاجازات ((حسب ما فهمت من السؤال)) علما أني أجتهدت وأضفت حقلين للجدول (vrequest) وذلك لتثبيت مدة الاجازة الاعتيادية ومدة الاجازة الاضطرارية فضلا تابع اللقطات: A.   B.   C.   D.   E.   عالجت موضوع الاجازات كل شهر يضيف الكود 3 أيام رصيد أعتيادي للموظف فإذا كان عدد الأشهر = 6 فإن رصيد الأعتيادي :  6*3=18 الرصيد الاضطراري متعلق بالسنة المالية فإذا أستنفدها الموظف أو جزء منها تبقى خيارا له طيلة عام كامل حتى تنتهي فإذا أستجدت سنة جديدة حذف الرصيد الاضطراري السابق وحول إلى صفر ثم يحدث للسنة الجديد (5) أيام أضطرارية   تحياتي: أبومحمد vac+salary.rar

أسعدك الله في مثالك المرفق 2003 ،،، تم التالي     على هذا الجدول تم أنشاء أستعلامين جديدين 1- حذف الإستعلام المرفق القديم 2- إنشاء أستعلام جديد [QrySubTim] لتجميع الدقائق لكل سجل على حدة وجمعها لكل عامل     أستخدمت فيه الكود التالي: SubTotal: Sum((DatePart("h";[وقت توقف العامل])*60)+(DatePart("n";[وقت توقف العامل]))) وتم الربط بكود العامل   3- أنشاء أستعلام ((كلي)) لجمع ساعات ودقائق كل عامل مستقلا     أستخدمت فيه الكود: TotalTime: Int([SubTotal]/60) & ":" & [SubTotal]-Int([SubTotal]/60)*60   وذلك لإرجاع مجموع الوقت على شكل hh:nn     تحياتي: أبومحمد   PMS_TotalTime.rar

فضلا أرفق المثال بصيغة 2003 أو 2007 تحياتي أبومحمد

عزيزي .. يمكنك جمع الوقت في الإستعلام كما يمكنك فعل ذلك في النموذج أو في التقرير تستطيع الجمع في جملة SQL أو التنفيذ بالكود VBA   أعتذر لأرفاق مثال عملته لك على أكسس 2003 لأني لا أملك أصدار 2010 في القاعدة يوجد بها جدول [Tbl] يحتوي على حقل [A] نوع بياناته:  تاريخ/وقت أنشأت استعلام [Qry1] مبني على الجدول السابق فصلت فيه الدقائق عن الساعات وحولتها إلى مجموع دقائق أنظر الجدول     بعد ذلك أنشأت أستعلاما جديدا [Qry2]   عكست فيه أتجاه جمع الدقائق وأرجعتها (ساعات ودقائق) أنظر الصورة     بالتوفيق   أبومحمد   PMS_mahdmoddy.rar

تفضل الحل تم التعديل على الاستعلام [QR_Transfer2] باستخدام دالة Mid أنظر النتيجة بالصورة المرفقة     يمكنك التصدير من خلال النموذج [FM_Group]  بالضغط على زر  [تصدير EXCEL]     تحياتي/ أبومحمد   PMS_data.rar

مرحباً (ماجد الأسيوطي) مرحباً (جعفر) آمل تقبل مشاركتي     تحياتي/ أبومحمد   244.TXT.rar

هل هذا ما تبحث عنه؟   مخرجات أجمالي   AAA    باللون الأصفر مخرجات أجمالي   BBB    باللون الأخضر مخرجات أجمالي  CCC    باللون الأحمر     ـــــــــــــــــــــــــــــــــــــــــ لكني لا أعلم الحكمة من طلبك!       تحياتي/ أبومحمد   PMS1_Tst1.rar

تفضل يا عزيزي (وكل عام وأنت بخير - عيد أضحى مبارك)     تحديد تقرير لموظف محدد مهما كانت أيام عمله لعدة شهور   نموذج أختيار الموظف     صورة التقرير     تحديد تقرير لجميع الموظفين خلال شهر واحد إذا كان مجموع أيام العمل (لكل موظف) = 22   نموذج أختيار الشهر     صورة التقرير     بالتوفيق   تحياتي/ أبومحمد   PMS_SNAWNAW.rar

كل عام وأنت والجميع بخير وسعادة عيد أضحى مبارك على الجميع   تفضل المرفق مع أيجاز الشرح   بيانات الجدول:   ثانياً: أنشاء أستعلام تحديد به خاصية (الإجماليات)   1- معيار أستخراج مجموع أيام الغياب الفعلية حسب التعبير التالي: مجموع الغياب: Sum(IIf([absence]=1;Int(1)))2- معيار أستخراج مجموع التأخيرات حسب التعبير التالي: مجموع التأخيرات: Format(Sum(IIf([absence]<1;[absence]));"ثابت")الإستعلام بعد تحديد المعايير:   بالتوفيق   تحياتي/ أبومحمد   PMS_Tst1.rar

أخي الكريم:     وعليكم السلام ورحمة الله وبركاته   أغبطك على رفيع ذوقك وحسن أختيارك   عيد سعيد لك ولأسرتك الفاضلة، أمدكم الباري بعمر مديد وبارك لكم في أعماركم ورزقكم صالح العمل يدخلكم في قبول الرحمن لأعلى الجنان في الفردوس الأعلى ولكل من قرأ هذه الكلمات وأمّن عليها   الفاضل الوجيه: SANDANET سلمك الله من كل شر ،، وأعاد عليك العيد وأسرتكم الكريمة، ترفلون في ثوب الصحة والعافية أخي الفاضل (أخوك) مبتدأ في سلوك طريق التعلم في أكسس (لست محترف ولبس لي خبرة) فقط أنزلني منزلتي الصحيحة بارك الله فيك   أما الأمر (DoCmd.Restore) في حدث عند الفتح فهو أيعاز لتحجيم الصفحة ليس تكبير وليس تصغير   تقبلا تحياتي/ أبومحمد

وعليكم السلام ورحمة الله وبركاته الأخ/ المهندس أوس علي قرأت سؤالك وفهمت أنك تسأل عن المعيار بين قيمتين (Between) كما في مثالك (أصغر أو يساوي مجموع المبالغ SumOfamount) في أستعلام Q3    وَ    أكبر من (صفر) if Me.Text38 <=[Q3]![SumOfamount] And >0 thendocmd....elsedocmd..end ifوتم التصحيح كالتالي Private Sub Text38_AfterUpdate()Dim A As IntegerA = DLookup("[SumOfamount]", "Q3")If [Text38] <= A And [Text38] > 0 Then DoCmd.OpenForm "Frm2", acNormal, "", "", , acNormal DoCmd.Restore Me.Visible = FalseElse DoCmd.OpenForm "Frm3", acNormal, "", "", , acNormal DoCmd.Restore Me.Visible = FalseEnd IfEnd Subكما أني أرفقت لك مثال من عندي أجتهدت به قبل أن أرى ردك الأخير فضلا استخدم مفتاح Tab للتنقل والتحديث علماً بأن مجموع القيم في الإستعلام هي (1860)       عندما تكون القيمة صحيحة (بمعنى بين الصفر ومجموع المبالغ في الإستعلام) يكون الجواب:       وعندما تكون القيمة خاطئة (بمعنى أصغر من أو تساوي الصفر أو أكبر من مجموع المبالغ في الإستعلام) يكون الجواب:     آمل أن تقبلها هدية   تحياتي/ أبومحمد     PMS_SANDANET.rar  

وفقك الله +1