مساعدة في عمل حقل يظهر عمر الجهاز

[Ahmed.IQ]

السلام عليكم ورحمة الله

اخوان لدي استفسار ..

عندي واجهة يوجد فيها بيانات مثل اسم الموظف وهكذا من ضمن هذه البينات شيء اسمه تاريخ التسليم .. انا لدي فكرة هيا ان اعمل حقل صغير يظهر فيه عمر الجهاز يعني مثلاً لو جيت على هذا الجهاز بعد ستة اشهر يظهر في الحقل الي في الواجهة عمر الجهاز 6 اشهر واذا قمت بتعديل تاريخ التسليم لا يتأثر بعد ذلك لانه الجهاز اصبح مستخدم وليس جديد لهذا يبقى يحسب عمر الجهاز مستمر ..

واذا ممكن اضع جنب حقل عمر تاريخ التسليم حقل صغير يكون فيه ضوء اخضر واصفر واحمر حينما يصل عمر الجهاز 7 سنوات يكون ضوء احمر وعندم يكون عمر الجهاز بين 4 و 7 يكون اصفر وبين 1 و 4 يكون اخضر.

تم تعديل أبريل 3, 2016 بواسطه Ahmed.IQ

[Ahmed.IQ]

up

[عبد الله قدور]

اضف عمود جديد سميه تاريخ بدء عمل الجهاز وضع التاريخ الذي تريد الحساب منه وهذا التاريخ لا تقم بتغيره ابدا وليس له علاقة بتاريخ التسليم

وهذا العمود يجب ان يكون في جدول الاجهزة

 

[Ahmed.IQ]

انا فكرت ان اعمله على شكل زرار عندما يضغط عليه اضيف التاريخ لكن الكود الذي سوف يتم حسب العمر يعني يبداء بعد السنين التي عمل فيها الجهاز ..

اما الشق الثاني الخاص بالضوء يمكن عمله عن طريق مراجعة بعض الاوامر 

[عبد الله قدور]

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

طبعا الحساب سيكون من تاريخ بدء العمل الى تاريخ اليوم

Function dat(bir As Date)
If IsNull(bir) = True Then
dat = Format("00", "00") & "-" & Format("00", "00") & "-" & Format("00", "00")
Else
Dim nday As Integer, nmon As Integer, nyea As Integer
Dim bday As Integer, bmon As Integer, byea As Integer
bday = Day(bir)
bmon = Month(bir)
byea = Year(bir)
nday = Day(Date)
nmon = Month(Date)
nyea = Year(Date)
If bday > nday Then
nday = nday + 30
nmon = nmon - 1
End If
If bmon > nmon Then
nmon = nmon + 12
nyea = nyea - 1
End If
Dim dd, mm, yy
dd = nday - bday
mm = nmon - bmon
yy = nyea - byea
dat = Format(yy, "00") & "-" & Format(mm, "00") & "-" & Format(dd, "00")
End If
End Function

 

[Ahmed.IQ]

شكراً لك اخي عبدالله .. طيب وماهوا رئيك انا لدي عمر افتراضي للجهاز امده عمره سبع سنوات فا كنت افكر ان اضع مربع صغير فيه الوان ثلاثه اذا كان عمر الجهاز بين 1 و 4 سنوات يكون لون المربع اخضر ومن اربعة الى سبع سنوات اصفر ومن سبع سنوات واكثر احمر

تم تعديل أبريل 3, 2016 بواسطه Ahmed.IQ

[عبد الله قدور]

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

أما بشأن الاسم فأنا عبد الله ولست مصطفى وجزاك الله كل خير

 

[Ahmed.IQ]

اعتذر منك واشكرك وبارك الله بك 

[Ahmed.IQ]

اخي عبدالله اسف تعبتك معي ...

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

يعني كيف اضعة في بورم ال computer لان اذا تدخل على فورم الكومبيوتر لاتقي الحقل الخاص بالعمر والشهر عليهم علامات استفاهم ولم تربط مع استعلام العمر

عمر الجهاز.rar

[عبد الله قدور]

 

السلام عليكم

قمت بتغير مصدر النموذج الى الاستعلام بدل الجدول

عمر الجهاز.rar

[Ahmed.IQ]

اخي عبدالله سؤال اذا ممكن كيف ابني معادلة تغير لون مربع معتمد على عمر الجهاز بالسنين

تم تعديل أبريل 4, 2016 بواسطه Ahmed.IQ

[كرار صبري _ أبو جنى]

34 دقائق مضت, Ahmed.IQ said:

اخي عبدالله سؤال اذا ممكن كيف ابني معادلة تغير لون مربع معتمد على عمر الجهاز بالسنين

اخي ابحث في المنتدى عن التنسيق الشرطي أو افتح موضوع جديد ... 

[Ahmed.IQ]

ان شاء الله اخي

[عبد الله قدور]

السلام عليكم

تفضل اخي

 

عمر الجهاز.rar

[Ahmed.IQ]

شكراً اخي عبدالله وبارك الله بك