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

[alawael]

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

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

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

[Ahmed_J]

السلام عليكم

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

تفضل

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

تم تعديل مارس 15, 2022 بواسطه Ahmed_J

[awael5]

اعتذر ولكن لم يكن المطلوب واشكرا على جهدك 

[Ahmed_J]

اخي العزيز

انا فهمت انه اذا  كان تاريخ اليوم اكبر او يساوي تاريخ نهاية الضمان

اكتب اللي تريده بالضبط زي ما انا كتبته

تحياتي

 

[أبو عبدالله الحلوانى]

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

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

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

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

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

 

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

[alawael]

الف الف شكر اتمنى لكم دوام التقدم والنجاح