زيادة عدد معين بحلول شهر ما

[كريمو2]

 السلام عليكم اساتذي الكرام

كيف لي ان اعدل على هذا المعادلة

=[Année]*50+[Forms]![Employé_en_arabe]![PreD]

 حيث يكون  ضرب السنة في 50 الا بحلول شهر جويلية من كل سنة فقط

ارجو المساعدة 

تم تعديل يوليو 3, 2017 بواسطه كريمو2

[أبو عبدالله الحلوانى]

6 ساعات مضت, كريمو2 said:

 حيث يكون  ضرب السنة في 50 الا بحلول شهر جويلية من كل سنة فقط

السلام عليكم 

أرجو أن يفيدك هذا

If Month(Date) = 7 then
M = year(Date)* 50 
End If

 

[كريمو2]

شكرا ابو عبد الله على الرد

If Month(Date) = 7 then
M = year(Date)* 50 
End If

ولكن هل يوضع في حدث ام اين

وكيف يتم تنسيقها مع بقية المعادلة 

=[M]![Forms]![Employé_en_arabe]![PreD]

 

[qffffq]

3 ساعات مضت, كريمو2 said:

ع في حدث ام اين

وكيف يتم تنسيقها مع بقية المعادل

بعد اذن اخي ابو عبدالله

هذا مثال لكود اخينا ابو عبدالله تم وضعه في زر يمكن الاطلاع عليه ونقله الى برنامجك

C1.rar

[كريمو2]

الملف معطوب اخي

ممكن رفعه من جديد

 

[qffffq]

ضرب السنة في 50 لشهر جويلية.rar

[كريمو2]

2 minutes ago, qffffq said:

ضرب السنة في 50 لشهر جويلية.rar

 

نفس المشكلة اخي

[qffffq]

تفضل يا اخي

[كريمو2]

لم تصلح الفكرة

والناتج كان 100850

تم تعديل يوليو 4, 2017 بواسطه كريمو2

[أبو عبدالله الحلوانى]

4 ساعات مضت, كريمو2 said:

لم تصلح الفكرة

والناتج كان 100850

 

في 7/3/2017 at 16:55, كريمو2 said:

حيث يكون  ضرب السنة في 50

مبدأيا ناتج ضرب السنة كما أردت (2017 * 50 = 100850) ان كان هذا الناتج غير صحيح وفق مرادك فوضح لنا ماذا تقصد بضرب السنة  هل تقصد عدد الأشهر أم أول رقمين من السنة مثل 17 من 2017 مثلا أم ماذا.

ثانيا هذا تعديل لكودك بعد ادخال الشرط :

=IIf(Month(Date) = 7;(Year(Date)*50)+[Forms]![Employé_en_arabe]![PreD];0)

 

 

[كريمو2]

On 04/07/2017 at 7:19 PM, أبو عبدالله الحلوانى said:

 

مبدأيا ناتج ضرب السنة كما أردت (2017 * 50 = 100850) ان كان هذا الناتج غير صحيح وفق مرادك فوضح لنا ماذا تقصد بضرب السنة  هل تقصد عدد الأشهر أم أول رقمين من السنة مثل 17 من 2017 مثلا أم ماذا.

ثانيا هذا تعديل لكودك بعد ادخال الشرط :

=IIf(Month(Date) = 7;(Year(Date)*50)+[Forms]![Employé_en_arabe]![PreD];0)

 

 

شكرا ابو عبد الله على الرد

المقصود بالسنة "Année" رقم ناتج عن : 

اي :

Année=DateDiff("yyyy";Forms!Employé_en_arabe!Estehkak;[strdate_B])+1
Estehkak=DateSerial(Year([hiredate])+1;1;1)
TotLoh=IIf(Month([Date])=7;(Year([Date])*50)+[Forms]![Employé_en_arabe]![PreD];0)
PreD=Int((([Estehkak]-[hiredate])/30)*4.16)

 علما ان دالة iif لم تفي بالغرض وكانت النتيجة  #Name?

=IIf(Month([Date])=7;[Année]*50+[Forms]![Employé_en_arabe]![PreD];0)

والمرفق يوضح ذالك

حساب اجازة.rar

تم تعديل يوليو 6, 2017 بواسطه كريمو2

[أ / محمد صالح]

2 ساعات مضت, كريمو2 said:

علما ان دالة iif لم تفي بالغرض وكانت النتيجة  #Name?

=IIf(Month([Date])=7;[Année]*50+[Forms]![Employé_en_arabe]![PreD];0)

بارك الله لك أخي الكريم

فعلا دالة iif تفي بالغرض

ولكن لا يوجد لديك حقل يسمى date حتى تضع حوله القوسين المربعين [date]

فقط يبزمك تغيير هذه المعادلة إلى

=IIf(Month(Date())=7,[Année]*50+[Forms]![Employé_en_arabe]![PreD],0)

لاحظ الأقواس الجديدة

وفقنا الله وإياكم لكل ما يحب ويرضى

[كريمو2]

24 minutes ago, أ / محمد صالح said:

فقط يبزمك تغيير هذه المعادلة إلى

=IIf(Month(Date())=7,[Année]*50+[Forms]![Employé_en_arabe]![PreD],0)

لاحظ الأقواس الجديدة

 

شكرا استاذ 

للأسف الشديد لما طبقتها وجدتها لم تفي بالحل اللازم 

اي قبل شهر 7 يرجع مربع النص يساوي 0 وهذا خطأ

والصحيح هو ان تبقى قيمة السنة السابقة * 50

واذا حلت السنة الجديدة وفي شهر 7 بالضبط تزيد تلقائيا 50 يوم 

فكيف التعديل ؟

تم تعديل يوليو 6, 2017 بواسطه كريمو2

[أبو عبدالله الحلوانى]

6 ساعات مضت, كريمو2 said:

لأسف الشديد لما طبقتها وجدتها لم تفي بالحل اللازم 

اي قبل شهر 7 يرجع مربع النص يساوي 0 وهذا خطأ

بسيطة غير القيمة 0 داخل المعادلة الى القيمة التى تريد هكذا ولكن مع الأخذ فى الاعتبار ملحظة أستاذنا محمد صالح فيصبح التعديل هكذا 

=IIf(Month(Date())=7,[Année]*50+[Forms]![Employé_en_arabe]![PreD],[Année]*50)

 

[أ / محمد صالح]

بارك الله لك أستاذ أبا عبد الله

المعادلة الأولى كانت تقوم بوضع صفر في كل الشهور غير شهر ٧

لكن حسب المطلوب الجديد يمكن اختصار المعادلة التي تكرمت بها إلى

=IIf(Month(Date())=7,[Forms]![Employé_en_arabe]![PreD],0)+[Année]*50

[كريمو2]

شكرا لكم جميعا على المساعدة

والان  

Unmhsop: DSum("aja_B";"TB_Ath6rary";"IDmozf=" & [IDmozf] & "And ejazaID>200")

  المطلوب زرع معادلة 

Unmhsop 

في المعادلة

ConH

بعد

nz

ConH:IIf(IsNull([aja_B]);"";Nz(DSum("[aja_B] ";"TB_Ath6rary";"[IDmozf] = " & ([IDmozf]) & "  And [strdate_B]<= # " & [strdate_B] & "#");0))

[كريمو2]

للرفع ......