[تمت الاجابه]طريقة عمل معادلة عند وصل سن الموظف 50 او سنوات عمل خدمة 10سنوات يتم كتابة 24 فى مربع نص

ارفق مثال

عبده الطوخى كتب:

عندى برنامج اجازات عاوز اعمل مربع نص يكتب فيه انه عند بلوغ الموظف سن الخمسين يكتب فى مربع النص 24 او عند اتمام سنوات خدمة عمل بالشركة 10 سنوات يكتب فى مربع النص 24 ( حيث انه موجود مربع نص لسن الموظف ومربع نص لسنوات الخدمة ) اريد من الاخوة المشرفين والاخوة الاعضاء بعمل معادلة او كود برمجى انه عند بلوغ الموظف سن الخمسين فى حقل السن يتم كتابة 24 فى حقل ايام الاجازات وكذلك عند بلوغ الموظف 10 سنوات خدمه فى حقل سنوات العمل يتم كتابة 24 فى حقل رصيد سنوى db1.rar

الاخ الفاضل

هناك الكثير من الحقول

ارجو تعليم الحقول المطلوب وضع الكود لها و فى اي نموذج من النماذج الثلاثة

tbazh كتب:

الاخ الفاضل

هناك الكثير من الحقول

ارجو تعليم الحقول المطلوب وضع الكود لها و فى اي نموذج من النماذج الثلاثة

الاخ العزيز اسم النموذج Holiday_Balance واسم الحقل او مربع النص رصيد سنوية

وتم ارفاق النموذج مره اخرى

ارجو ان اجد الحل وجزاك الله خير

db1.rar

الاخوه الكرام مشرفى المنتدى لست الوم عليكم ولكن لى حق عليكم فى الاجابة عن سؤالى الذى طرحته بالمنتدى وهل يوجد حل ام لا يوجد كلمات بسيطة جداً تكفى كى لا اشغل بالى بالموضوع وتم رفع المثال حسب طلب اخى الكريم بالمنتدى وحتى يومنا هذا لم اتلق اى رد

ولكم جزيل الشكر والاحترام

عبده الطوخى

db1.rar

ضع هذا الكود فى حدث فى الحالى للنموذج

If DateDiff("yyyy", Me.Emp_BirthDate, Date) >= 50 Or DateDiff("yyyy", Me.Appointment_dt, Date) >= 10 Then
   Me.txt = 24
End If

حيث اسم مربع النص المطلوب عرض الايام به هو txt

او غيره بالكود الى ما تريد

أتمنى أن يكون فى ذلك مساعدة على الحل

ألق نظرة على الاستعلام Holiday_Balance_Inquiry

أعتذر أستاذنا أبو يوسف لم أرى ردك .. لك كل تحية

db22.rar

Abo_Yossof كتب:

ضع هذا الكود فى حدث فى الحالى للنموذج

If DateDiff("yyyy", Me.Emp_BirthDate, Date) >= 50 Or DateDiff("yyyy", Me.Appointment_dt, Date) >= 10 Then
   Me.txt = 24
End If

حيث اسم مربع النص المطلوب عرض الايام به هو txt

او غيره بالكود الى ما تريد

الاخ العزيز Abo-Yossof

تم تجربة الكود وهو شغال تمام ولكن فى ملحوظة ان الكود يحسب 9 سنوات و 2 شهر و 20 يوم على انهم 10 سنوات وكذلك الوضع بالنسبه الى السن ارجو ان يكون هناك حل للملحوظة ولك منى الف شكر

omar19-3 كتب:

أتمنى أن يكون فى ذلك مساعدة على الحل

ألق نظرة على الاستعلام Holiday_Balance_Inquiry

أعتذر أستاذنا أبو يوسف لم أرى ردك .. لك كل تحية

الاخ العزي 'omar19-3'

لك من الف تحية وشكر

بالنسبة الى التعديل الموجود فى الاستعلام فهو يعطى الكل نتيجة واحدة وهى 24 سواء اقل من 10 سنوات يعطى نتيجة 24 وكذلك الامر بالنسبة الى السن

وشكرا للرد السريع على موضوعى

اليك اخى التعديل المطلوب

If Val(Format(Me.Age, "yy")) >= 50 Or Val(Format(Me.Emp_Space, "yy")) >= 10 Then
   Me.txt = 24
End If

Abo_Yossof كتب:

اليك اخى التعديل المطلوب

If Val(Format(Me.Age, "yy")) >= 50 Or Val(Format(Me.Emp_Space, "yy")) >= 10 Then
   Me.txt = 24
End If

الاخ العزيز

مرفق المثال لعمل الكود عليه

حيث اننى جربت ولم اصل الى النتيجة النهائية

ولك منى جزيل الشكر والاحترام

db1.rar

تفضل اخى

db1.rar

Abo_Yossof كتب:

تفضل اخى

شكرا لك اخى Abo_Yossof

على طول صبرك معى

وان المثال بعد التعديل هو المطلوب

الف الف الف شكر