استفسار عن تثبيت قيمة ليبول او تكست بوكس

[Ashraf Ehab]

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

الاخوة الاعزاء والاساتذة الافاضل 

احب ان استفسر عن امكانية تثبيت قيمة ليبول او تكست بوكس التفاصيل كالاتي

انا عامل ليبول مخفي بيستدعي مجموع المشتريات ويطرح منها مجموع المبيعات 

ومخلي ليبول ظاهر بيستدعي بيانات الليبول المخفي بهذا الكود 

Me.Label3.Caption = Val(Me.Label3.Caption) + Val(Me.de.Caption)

المطلوب ان اذا انتهي اليوم علي قيمة معينه في label 3 يثيت هذه القيمة في اليوم الجديد ويجمعها مع متغيرات de

ولكم جزيل الشكر والعرفان

de.xlsm

[أ / محمد صالح]

أعتقد ينبغي الاحتفاظ بقيمتها في خلية معينة وليكن aa1 في حدث قبل إغلاق النموذج

وفي بداية تحميل النموذج يتم وضع قيمة الخلية في التسمية label3

بالتوفيق

[Ashraf Ehab]

شكرا لك يا استاذ محمد 

ولكن كيف انفذ هذا الكود وهناك شئ اخر النموذج يمكنه ان يغلق ويفتح اكثر من مرةفي نفس اليوم وقتها سيضيف قيمتها اكثر من مرة وانا احتاجها تحتفظ باخر قيمة لها قبل اليوم الجديد حتي ولو بخمس دقائق

 

[أ / محمد صالح]

في هذه الحالة يمكنك تخزين التاريخ في خلية وقيمة الليبل في خلية

وفي حدث عن الإغلاق يتم تحديث الخليتين

وفي حدث بداية النموذج يتم فحص خلية التاريخ إذا كانت أقل من تاريخ اليوم يضع قيمة الخلية في الليبل وإلا فلا يفعل شيئا

بالتوفيق

[Ashraf Ehab]

شكرا لك استاذ محمد على مجهودك معي لقد تم الامر بناء علي توجيهاتك