اذهب الي المحتوي
أوفيسنا

رسالة اقتراب سن المعاش


أبو حمزه
إذهب إلى أفضل إجابة Solved by سمير1,

الردود الموصى بها

لدى جدول به بيانات الموظفين

به تاريخ الميلاد

تاريخ التعيين

 

 

اريد ان تظهر رسالة تفيد باقتراب سن الميعاش  للموظف فبلها بسنه او اقل

علما بان سن المعاش = تاريخ الميلاد + 21915

 

Database3.rar

  • Like 1
رابط هذا التعليق
شارك

اخوتي الفضلاء

الحلول دائما متاحة ، ولكنكم تستعجلون فنحن نحاول خدمتكم بما يتاح لنا من وقت وصحة بدن ، فاعذرونا

أخي

اذهب للنموذج بوضع التصميم

حقل اسم الموظف (الاسم)

on get focus

ضع خلفها الكود التالي

Dim x, x1 As String

x = Me.تاريخ_الميلاد+ 21915
x = Format(x, "yyyy")
x1 = Format(Date, "yyyy")
If x = x1 Then
MsgBox " تقاعد هذا العام " & x
End If


أغلق النموذج بعد الحفظ

وجرب بعد تعديل بعض تواريخ الميلاد لتكون مناسبة لهذه السنة

 

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

 

نعرف اولا المتغيرات كقيم x , x1

ثم نعرف قيمة المتغير الاول وهي سنة التقاعد المحتسبة = تاريخ الميلاد + 21915

ثم نعرف قيمة المتغير الثاني وهي هذه السنة

ثم نحدد الشرط وهو اذا كان تاريخ التقاعد مساويا لتاريخ السنة الحالية ، أظهر رسالة تنبيه بذلك

 

بسيطة ....

يمكن تعقيد أو تبسيط الكود حسب الحاجة و الخبرة المتاحة

 

ولك عندي بعض النصائح

  • ابتعد عن تسمية الحقول بالاحرف العربية حتى تتجنب الارهاق في الكودات
  • ابتعد عن حفظ القيم المحتسبة في الجداول ( فهذا ليس مكانها)

والله من وراء القصد وهو حسبي

رابط هذا التعليق
شارك

نصيحة ...

عند تنسيق النموذج ، مهم جدا ترتيب الجدولة في منطقة التفصيل التي تتم الحركة بها بين الحقول

........

واليك مثالك معدلا  ( انتقل للموظف رقم 4 )

NA_Alert message.rar

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information