Ahmed.IQ قام بنشر أبريل 3, 2016 قام بنشر أبريل 3, 2016 (معدل) السلام عليكم ورحمة الله اخوان لدي استفسار .. عندي واجهة يوجد فيها بيانات مثل اسم الموظف وهكذا من ضمن هذه البينات شيء اسمه تاريخ التسليم .. انا لدي فكرة هيا ان اعمل حقل صغير يظهر فيه عمر الجهاز يعني مثلاً لو جيت على هذا الجهاز بعد ستة اشهر يظهر في الحقل الي في الواجهة عمر الجهاز 6 اشهر واذا قمت بتعديل تاريخ التسليم لا يتأثر بعد ذلك لانه الجهاز اصبح مستخدم وليس جديد لهذا يبقى يحسب عمر الجهاز مستمر .. واذا ممكن اضع جنب حقل عمر تاريخ التسليم حقل صغير يكون فيه ضوء اخضر واصفر واحمر حينما يصل عمر الجهاز 7 سنوات يكون ضوء احمر وعندم يكون عمر الجهاز بين 4 و 7 يكون اصفر وبين 1 و 4 يكون اخضر. تم تعديل أبريل 3, 2016 بواسطه Ahmed.IQ
عبد الله قدور قام بنشر أبريل 3, 2016 قام بنشر أبريل 3, 2016 اضف عمود جديد سميه تاريخ بدء عمل الجهاز وضع التاريخ الذي تريد الحساب منه وهذا التاريخ لا تقم بتغيره ابدا وليس له علاقة بتاريخ التسليم وهذا العمود يجب ان يكون في جدول الاجهزة
Ahmed.IQ قام بنشر أبريل 3, 2016 الكاتب قام بنشر أبريل 3, 2016 انا فكرت ان اعمله على شكل زرار عندما يضغط عليه اضيف التاريخ لكن الكود الذي سوف يتم حسب العمر يعني يبداء بعد السنين التي عمل فيها الجهاز .. اما الشق الثاني الخاص بالضوء يمكن عمله عن طريق مراجعة بعض الاوامر
عبد الله قدور قام بنشر أبريل 3, 2016 قام بنشر أبريل 3, 2016 لحساب عمر الجهاز هي حساب الفرق بين تاريخين ضع هذا الكود في وحدة نمطية ثم استخدمه في مربع نص ضمن النموذج المطلوب وسيعطيك عمر الجهاز بالسنة والشهر واليوم طبعا الحساب سيكون من تاريخ بدء العمل الى تاريخ اليوم 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 1
Ahmed.IQ قام بنشر أبريل 3, 2016 الكاتب قام بنشر أبريل 3, 2016 (معدل) شكراً لك اخي عبدالله .. طيب وماهوا رئيك انا لدي عمر افتراضي للجهاز امده عمره سبع سنوات فا كنت افكر ان اضع مربع صغير فيه الوان ثلاثه اذا كان عمر الجهاز بين 1 و 4 سنوات يكون لون المربع اخضر ومن اربعة الى سبع سنوات اصفر ومن سبع سنوات واكثر احمر تم تعديل أبريل 3, 2016 بواسطه Ahmed.IQ
عبد الله قدور قام بنشر أبريل 3, 2016 قام بنشر أبريل 3, 2016 تمام لا يوجد مشكلة بامكانك فعل ذلك استنادا على العمر الذي سينتتج من الوحدة النمطية أما بشأن الاسم فأنا عبد الله ولست مصطفى وجزاك الله كل خير 2
Ahmed.IQ قام بنشر أبريل 4, 2016 الكاتب قام بنشر أبريل 4, 2016 اخي عبدالله اسف تعبتك معي ... لو تحمل المرفق وتدخل على الاستعلام تلاقي شغال ومضبوط لكن مشكلتي هيا كيف اربطه مع الواجهة ؟ يعني كيف اضعة في بورم ال computer لان اذا تدخل على فورم الكومبيوتر لاتقي الحقل الخاص بالعمر والشهر عليهم علامات استفاهم ولم تربط مع استعلام العمر عمر الجهاز.rar
عبد الله قدور قام بنشر أبريل 4, 2016 قام بنشر أبريل 4, 2016 السلام عليكم قمت بتغير مصدر النموذج الى الاستعلام بدل الجدول عمر الجهاز.rar 1
Ahmed.IQ قام بنشر أبريل 4, 2016 الكاتب قام بنشر أبريل 4, 2016 (معدل) اخي عبدالله سؤال اذا ممكن كيف ابني معادلة تغير لون مربع معتمد على عمر الجهاز بالسنين تم تعديل أبريل 4, 2016 بواسطه Ahmed.IQ
كرار صبري _ أبو جنى قام بنشر أبريل 4, 2016 قام بنشر أبريل 4, 2016 34 دقائق مضت, Ahmed.IQ said: اخي عبدالله سؤال اذا ممكن كيف ابني معادلة تغير لون مربع معتمد على عمر الجهاز بالسنين اخي ابحث في المنتدى عن التنسيق الشرطي أو افتح موضوع جديد ... 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.