التنبية قبل شهر والجمع لحقول الراتب - نظام موظفين

[Doyazen]

السلام عليكم

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

أخواني قمت بعمل ملف لشئون الموظفين مبسط ولكن هناك مشكلتان بسيطتان

الأولى : يوجد لدي في نموذج employees حقل الراتب الأجمالي وأريده أن يجمع تفاصيل الراتب من بقية الحقول وحفظها في حقل الراتب الأجمالي في الجدول ( Employees )

الثانية: لدي في نفس النموذج حقول لتاريخ انتهاء صلاحية الجواز والإقامة وبطاقة العمل وأريد أن يتم اعلامي عن أحد الصلاحيات سوف تنتهي بعد شهر ويفضل أن يتم طباعة ذلك على تقرير

لتنزيل الملف على هذا الرابط

http://www.arabship.net/wood.rar

وجزاكم الله كل خير

مع تحياتي

[biskra]

بالنسبة لسؤالك حول جوازات السفر و بقية الوثائق هذا مصمم خصيصا لجوازات السفر و الذي ينبهك بحلول انتهاء صلاحيته قبل شهر و يمكنك من معاينة السجل و طباعته.

كل الشرح موجود على النموذج الرئيسي يمكنك اعتماد نفس الطريقة بالنسبة لبقية الوثائق.

________.rar

[Doyazen]

مشكور أخي biskra

سأقوم بمراجعة الملف الذي رفقته

وأرجوا من البقية المساعدة على الجزء الأول

مع تحياتي

[rudwan]

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

Private Sub Form_Current()
Me.TotalSalary = Me.BasicSalary + Me.Commidation + Me.ExtaPayment + Me.Food + Me.Transports


End Sub

أما اذا كان الادخال يتم من خلال نفس هذا النموذج , ممكن أن يكون الكود كما يلي :

Private Sub ExtaPayment_Exit(Cancel As Integer)
Me.TotalSalary = Me.BasicSalary + Me.Commidation + Me.ExtaPayment + Me.Food + Me.Transports

End Sub