أبو حمزه قام بنشر نوفمبر 24, 2013 قام بنشر نوفمبر 24, 2013 لدى جدول به بيانات الموظفين به تاريخ الميلاد تاريخ التعيين اريد ان تظهر رسالة تفيد باقتراب سن الميعاش للموظف فبلها بسنه او اقل علما بان سن المعاش = تاريخ الميلاد + 21915 Database3.rar 1
أبو آدم قام بنشر نوفمبر 25, 2013 قام بنشر نوفمبر 25, 2013 اخوتي الفضلاء الحلول دائما متاحة ، ولكنكم تستعجلون فنحن نحاول خدمتكم بما يتاح لنا من وقت وصحة بدن ، فاعذرونا أخي اذهب للنموذج بوضع التصميم حقل اسم الموظف (الاسم) 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 ثم نعرف قيمة المتغير الثاني وهي هذه السنة ثم نحدد الشرط وهو اذا كان تاريخ التقاعد مساويا لتاريخ السنة الحالية ، أظهر رسالة تنبيه بذلك بسيطة .... يمكن تعقيد أو تبسيط الكود حسب الحاجة و الخبرة المتاحة ولك عندي بعض النصائح ابتعد عن تسمية الحقول بالاحرف العربية حتى تتجنب الارهاق في الكودات ابتعد عن حفظ القيم المحتسبة في الجداول ( فهذا ليس مكانها) والله من وراء القصد وهو حسبي
أبو آدم قام بنشر نوفمبر 25, 2013 قام بنشر نوفمبر 25, 2013 نصيحة ... عند تنسيق النموذج ، مهم جدا ترتيب الجدولة في منطقة التفصيل التي تتم الحركة بها بين الحقول ........ واليك مثالك معدلا ( انتقل للموظف رقم 4 ) NA_Alert message.rar
أبو حمزه قام بنشر نوفمبر 25, 2013 الكاتب قام بنشر نوفمبر 25, 2013 الكود بعد الاضافه لا يقوم بظهور رسالة عند الفتح اريد ان يظهر فقط الاسماء التى سوف تتقاعد هذا العام ولك جزيل الشكر والتقدير
أفضل إجابة سمير1 قام بنشر نوفمبر 26, 2013 أفضل إجابة قام بنشر نوفمبر 26, 2013 بعد إذن أستاذنا الفاضل أبو أدم أرجو ان يكون هذا ما تريده Data3.rar 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.