مساعدة : جمع سن التقاعد وجمع تاريخ الترقية

[فيصل الجهني]

اخواني الأعزاء

المشرفين الأفاضل

 

انا مبتدىء في الأكسس وقمت بأنشاء قاعدة بيانات تساعدني في عملي ولكن واجهتني عقبة والخصها بالتالي :

 

لكل مرتبة وظيفية سن للتقاعد محدد سلفاً مثال :

الوظيفة : عامل مهني

سن تقاعدة المحدد : اذا بلغ 50 عاماً

 

لكل مرتبة وظيفية عند الترقية من مرتبة الى مرتبة اخرى سن معين لأبد للموظف ان يقضيها بالخدمة لكي يتمكن من الترقية مثال :

الوظيفة : عامل مهني

المدة الزمنية للترقية اعتبارا من تاريخ ترقيته السابقة : 4 سنين

 

لدي خانتين وهي :

1. تاريخ التقاعد = (( تاريخ الميلاد + سن التقاعد ))

2. تاريخ الترقية= (( تاريخ الترقية السابق+ المدة الزمنية للترقية بالسنين ))

 

المطلوب مساعدتي بالكود المناسب لكي يجمع لي ويضع الجمع الصحيح بكل خانة بناًء على المعطيات

 

شاكراً لكم ذلك ومرفق ايضاً مثال بملف مضغوط

db1.rar

[أبو آدم]

دعوة طيبة لطيب

 

http://www.officena.net/ib/index.php?showannouncement=21&f=89

 

........

[أبو آدم]

قيد النظر ...

 

نصيحة :

إبتعد عن تسمية أسماء مربعات النص و مربعات التحرير و السرد بالأحرف العربية

 

........

[أبو آدم]

لإحتساب ما يدور ببالك نستخدم  DateAdd، ولسان الحال يقول :

الحقل (...)= أضف للتاريخ ، بالسنوات ،محتوى حقل عدد سنوات الخدمة (العامود الأول)، لمحتوى عامود تاريخ الترقية

وذلك في حدث عند الحالي للنموذج :

 

Private Sub Form_Current()
Me.Tup = DateAdd("yyyy", Me.Yrot.Column(1), Me.data_tarqeah)
Me.Tout = DateAdd("yyyy", Me.Yrot1.Column(1), Me.BirthDate)
End Sub


 

[فيصل الجهني]

جعلها الله في ميزان حسناتكم ورزقكم الذرية الصالحة

[أبو آدم]

اللهم آمين

أهلاً وسهلاً بك بين إخوتك يا فيصل

 

والحمدلله الذي بفضله تقضى الحاجات

 

........