• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

pms

اعضاء
  • عدد المشاركات

    386
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

109 جيد جدا

عن pms

  • الرتبة
    عضو فعال

طرق الإتصال

  • ICQ 0

معلومات الملف الشخصي

  • الجنس ذكر

أحدث الزائرين لملفلك الشخصي

9,496 زياره للملف الشخصي
  1. تفضل بالمرفق يوجد استعلام Qry1 من نوع (استعلام تحديث) يقوم بما طلبت تحياتي/ أبومحمدfigo82eg.rar
  2. تفضل الحل أنظر الاستعلام الجديد (Qry_Tot_work_hours) تحياتي/ أبومحمد sum_time.rar
  3. أبوعزوز ،،، طيب الله أوقاتك بكل خير ومحبة لا أملك الإصدار الذي رفعت به مثالك بعد الاستعانة (بصديق) تم تحويل المثال للإصدار2003 وتم الحل عليه .. فعذرا منك  1- أنشأت نموذجاً جديدا (QryVrequest) مبني على جدولك السابق (vrequest) عالجت به الجزء المتعلق بالاجازات ((حسب ما فهمت من السؤال)) علما أني أجتهدت وأضفت حقلين للجدول (vrequest) وذلك لتثبيت مدة الاجازة الاعتيادية ومدة الاجازة الاضطرارية فضلا تابع اللقطات: A.   B.   C.   D.   E.   عالجت موضوع الاجازات كل شهر يضيف الكود 3 أيام رصيد أعتيادي للموظف فإذا كان عدد الأشهر = 6 فإن رصيد الأعتيادي :  6*3=18 الرصيد الاضطراري متعلق بالسنة المالية فإذا أستنفدها الموظف أو جزء منها تبقى خيارا له طيلة عام كامل حتى تنتهي فإذا أستجدت سنة جديدة حذف الرصيد الاضطراري السابق وحول إلى صفر ثم يحدث للسنة الجديد (5) أيام أضطرارية   تحياتي: أبومحمد vac+salary.rar
  4. أسعدك الله في مثالك المرفق 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
  5. فضلا أرفق المثال بصيغة 2003 أو 2007 تحياتي أبومحمد
  6. عزيزي .. يمكنك جمع الوقت في الإستعلام كما يمكنك فعل ذلك في النموذج أو في التقرير تستطيع الجمع في جملة SQL أو التنفيذ بالكود VBA   أعتذر لأرفاق مثال عملته لك على أكسس 2003 لأني لا أملك أصدار 2010 في القاعدة يوجد بها جدول [Tbl] يحتوي على حقل [A] نوع بياناته:  تاريخ/وقت أنشأت استعلام [Qry1] مبني على الجدول السابق فصلت فيه الدقائق عن الساعات وحولتها إلى مجموع دقائق أنظر الجدول     بعد ذلك أنشأت أستعلاما جديدا [Qry2]   عكست فيه أتجاه جمع الدقائق وأرجعتها (ساعات ودقائق) أنظر الصورة     بالتوفيق   أبومحمد   PMS_mahdmoddy.rar
  7. تفضل الحل تم التعديل على الاستعلام [QR_Transfer2] باستخدام دالة Mid أنظر النتيجة بالصورة المرفقة     يمكنك التصدير من خلال النموذج [FM_Group]  بالضغط على زر  [تصدير EXCEL]     تحياتي/ أبومحمد   PMS_data.rar
  8. مرحباً (ماجد الأسيوطي) مرحباً (جعفر) آمل تقبل مشاركتي     تحياتي/ أبومحمد   244.TXT.rar
  9. هل هذا ما تبحث عنه؟   مخرجات أجمالي   AAA    باللون الأصفر مخرجات أجمالي   BBB    باللون الأخضر مخرجات أجمالي  CCC    باللون الأحمر     ـــــــــــــــــــــــــــــــــــــــــ لكني لا أعلم الحكمة من طلبك!       تحياتي/ أبومحمد   PMS1_Tst1.rar
  10. تفضل يا عزيزي (وكل عام وأنت بخير - عيد أضحى مبارك)     تحديد تقرير لموظف محدد مهما كانت أيام عمله لعدة شهور   نموذج أختيار الموظف     صورة التقرير     تحديد تقرير لجميع الموظفين خلال شهر واحد إذا كان مجموع أيام العمل (لكل موظف) = 22   نموذج أختيار الشهر     صورة التقرير     بالتوفيق   تحياتي/ أبومحمد   PMS_SNAWNAW.rar
  11. كل عام وأنت والجميع بخير وسعادة عيد أضحى مبارك على الجميع   تفضل المرفق مع أيجاز الشرح   بيانات الجدول:   ثانياً: أنشاء أستعلام تحديد به خاصية (الإجماليات)   1- معيار أستخراج مجموع أيام الغياب الفعلية حسب التعبير التالي: مجموع الغياب: Sum(IIf([absence]=1;Int(1)))2- معيار أستخراج مجموع التأخيرات حسب التعبير التالي: مجموع التأخيرات: Format(Sum(IIf([absence]<1;[absence]));"ثابت")الإستعلام بعد تحديد المعايير:   بالتوفيق   تحياتي/ أبومحمد   PMS_Tst1.rar
  12. تصحيح كود if

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

    وعليكم السلام ورحمة الله وبركاته الأخ/ المهندس أوس علي قرأت سؤالك وفهمت أنك تسأل عن المعيار بين قيمتين (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  
  14. تنسيق التقرير

    وفقك الله +1