كيف انقص رقم معين كل يوم

نرجو التوضيح أكثر

أو ارفاق مثال علي ما تريد

طبعا السؤال غير واضح

ولكن اقول لك انك يجب ان تربط تاريخ انشاء هذا ارقم مع تاريخ اليوم توجد الفرق بينهما بواسطة Datediff

Private Sub Command1_Click()

MsgBox DateDiff("d", #1/1/2000#, Format(Now, "mm/dd/yyyy"))

End Sub

فاذا زاد الرقم او نقص حسي رغبتك تنقص ارقم الذى ترغبه بمقدار 1

واذا وضحت اكثر يمكن ان افيدك اكثر

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

اولاً أشكر لكم سرعة استجابتكم ومحاولة الإجابة على السؤال

ثانياً الرقم هو عدد يعطى للموظف (غير رقمه الوظيفي) وهدا الرقم يعطى في تاريخ معين ثم يخصم من الرقم واحد كل يوم بعد الساعة الثانية عشر ليلاً حتى يصبح الرقم صفراً

هل بإمكانك إجابة التساؤلات التالية:

ماذا تريد أن تفعل بعد انتهاء الأعداد؟

هل تريد إغلاق نموذج مثلاً؟

هل تريد أن يعود العداد للعد من جديد؟

يجب أن تحدد هدفك قبل أن تشرع في عمل ما تريد

اريد ان يحفظ السجل فقط بعد انتهاء التناقص يومياً اي بعد ان يصبح العدد صفراً

للرفع