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

[أبو حمزه]

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

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

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

 

 

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

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

 

Database3.rar

[أبو آدم]

أولاً : جهز نموذج ليظهر فيه التنبيه !!!

[أبو حمزه]

تم اضافة النموذج

Database3.rar

[أبو حمزه]

الا يوجد حل

[أبو آدم]

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

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

أخي

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

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

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

[أبو حمزه]

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

 

 

اريد ان يظهر فقط الاسماء التى سوف تتقاعد هذا العام

 

ولك جزيل الشكر والتقدير

[سمير1]

بعد إذن أستاذنا الفاضل أبو أدم

 

أرجو ان يكون هذا ما تريده

Data3.rar

[أبو حمزه]

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