• الإعلانات

    • فيصل الحربي

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

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

samy_alshamy

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

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

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

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

0 عادي

عن samy_alshamy

  • الرتبة
    عضو جديد

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

  • الجنس ذكر
  1. الرجاء المساعدة في كتابة الكود . في تكرار السنوات بعدد معين لسنوات معينة . حيث أني أرغب في تصميم برنامج لحساب خدمة الموظف في الشركة أو الإدارة ومنها هذه العلاوات السنوية للراتب الموظف  وهذا يتطلب حساب السنوات التي قضاها من بداية خدمة حتى تاريخ نهاية خدمة في الشركة . ومنها حساب العلاوات السنوية من بداية عملة في الشركة حتى تاريخ اليوم الحالي فكتبت الدوك التالي : Private Sub تدقيق21_Click() Dim m m = 0 Do While m < DateDiff("yyyy", DMin("[المباشرة]", "البيانات الوظيفية"), Date) DoCmd.GoToRecord , , acNewRec [السبب].SetFocus [السبب] = "علاوة سنوية دورية" [المباشرة] = DateSerial(DatePart("yyyy", DMin("[المباشرة]", "البيانات الوظيفية")) + 1, 1, 1) m = m + 1 Loop End Sub تاريخ المباشرة وهو بداية الخدمة . ولكن العلاوات السنوية يقوم بزيادة سنة ويقوم بتكرار هذه السنة دون الزيادة للسنة الثالثة والربابعة وهكذا الشكل التالي الأستعلام   لاحظ العلاوات السنوية مكررة وهذه هي المشكلة المطلوب السنوات المتسلسلة المتتالية 1434 و من ثم 1435 و 1436 و 1437 وهكذا أرجوا المساعدة ولكم جزيل الشكر والتقدير