اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ارجوا المساعدة فى اضافة امر


alawael

الردود الموصى بها

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

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

فترة الضمان.accdb

رابط هذا التعليق
شارك

السلام عليكم

حسب فهمي لطلبك

تفضل

Private Sub Expiry_Date_AfterUpdate()
If Date >= Expiry_Date Then
Beep
MsgBox "لقد تم انتهاء الضمان"
Me.Warranty = 0
Me.Expiry_Date = ""
Me.Refresh
End If
End Sub

 

 

فترة الضمان.accdb

تم تعديل بواسطه Ahmed_J
  • Like 1
رابط هذا التعليق
شارك

7 ساعات مضت, alawael said:

فترة الضمان تكون صفر ويمحى ما بداخل نهاية التاريخ

فترة الضمان تكون صفر تمام مفهومة 

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

جرب هذه الفكرة لعلها تروق لك

 

فترة الضمان.accdb

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information