تجديد رقم مع بداية كل شهر

[Ahmed.IQ]

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

احتاج الى طريقة اجدد رقم مع بداية كل شهر يعني لو كان الشهر 31/7 وكان الرقم في الحقل 4 او احتاج يرجع الى 0 مع بداية كل شهر

[AlwaZeeR]

 

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

تفضل : يمكنك وضعه في حدث الحالي او الفتح للنموذج الموجود فيه الحقل الذي تريد ارجاعه لصفر

وتلقائيا عندما يكون تاريخ اليوم 1 يقوم بارجاعه لصفر

 

Dim txt0 As Date
txt0 = Format(Date, "dd")
If txt0 = 1 Then txt1 = 0 

حقل txt1 هو الحقل الخاص بك الذي تريد ارجاعه لصفر

 

::

تحياتي

تم تعديل أغسطس 10, 2016 بواسطه alwazeer

[Ahmed.IQ]

تمام ربي يحفظك .. 

بس عندي مشكلة بطريقة جمع سوف ارفق ملف لحضرتك احتاج الى فكرة وهيا كالتالي ...

اذا تفتح الفورم EP1 اكو حقل اسمه مجموع الساعات لهذا الشهر ..

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

الفكرة الثانية الي احتاجها هيا مجموع الساعات المتجاوزه يعني لو الساعات صارت اكثر من 4 ساعات يعني اخذ زمنيات بهذا الشهر 5 ساعات احتاج الن المجموع لهذا الشهر 5 ويروح يضيف 1 بخانة مجموع الساعات المتجاوزة .. ولو جا واخذ ساعة ثانية يصير الساعات في هذا الشهر 6 ويروح يضيف واحد فوق الواحد القديم ويصيرو 2 ولو جا واخذ ايضاً بهذا الشهر ساعتين يصير 8 ساعات فا يروح يجمع الساعتين الجديدة ويضيفها على الساعات المتجاوزة ويصير المجموع 4 ساعات ...

لو غادرنا شهر 8 ورحنا شهر التاسع احتاج ان الساعات المتجاوزة تبقى 4 ساعات ويبدي يحسب الزيادة من جديد يعني لو فرضنا اخذ 5 ساعات في الشهر التاسع يضيف ساعة على 4 القديمة ويصيرو 5 ساعات مجموع الساعات المتجاوزة اتمنى اكون وصلت لك الفكرة

اجازات الموظفين.rar

[Ahmed.IQ]

alwazeer

للتذكير