AbuuAhmed

أتمى يكون هو المطلوب لأن سؤالك غير واضح

جديد_01.xlsx

الإكسل ليس تخصصي ولكن عاشق له ، جرب حلي:

New Microsoft Excel Worksheet_01.xlsx

جرب الملف بعد التعديل وقد قمت بتغيير شفرة التفقيط

قضية الاساسي 2022 اخر حاجة بدون تقريب - للنت_02.rar

لم تفتح معي قاعدة البيانات

للحصول على مدة الشهر يمكن استخدام هذه المعادلة:

mmDays = Day(DateSerial(yy, mm + 1, 0))

هذه المشكلة تتكرر في التعيين وفي المغادرة/الفصل وفي بداية الإجازة وفي المباشرة بعد العودة من الإجازة.

وهناك اقتراحين لتفادي هذه المشكلة.
إما بإستخراج متوسط الراتب اليومي بقسمة راتب الشهر على مدته دون التعديل في الأيام.
أو باستخراج متوسط الراتب اليومي بضرب الراتب في 12 ثم قسمته على 365 للسنة البسيطة أو 366 للسنة الكبيسة وبدون التعديل في الأيام، وهو الأفضل.
موفقين

جرب هذا المثال

نقر مزدوج لفتح الرزنامة

تحويل التاريخ ميلادي لأم القرى والعكس_02.rar

اسمح لي أخي @محمد مرسي السيد الحل في الملف غير صحيح محاسبيا وإن طبقته راح تظلم فيه الموظفين.

حساب الأيام والمبالغ غير صحيحة.
إذا لا تستطيع أن تقيم الحلول المقدمة فاستعن بمحاسب.

ملاحظة صغيرة: أيام الخمس سنوات مدتها 1826 يوم وليس 1825.

48 دقائق مضت, طاهر الوليدي said:

لم يعمل  المثال معي ويظهر رسالة خطاء

يفترض أن تخبرنا بالرسالة
أعتقد أن المشكلة أنك تستخدم 64 بت.
أنا عدلت على المثال ليعمل على 32 و 64 بت.
علما المثال ليس لي.

وسؤال لك لو سمحت هل تستخدم هجري النظام أم تقويم أم القرى؟

Cal_20211231.rar

جرب هذا المثال
المصدر : https://sites.google.com/view/abuhadi/ms-access

Cal_20211231.rar

9 ساعات مضت, aboeyad2007 said:

هناك استعلام فيه السطر هذا Between 44778 And 44778

مامعنى الارقام هذي

هذا الأرقام التسلسلية للتاريخ وهي الأصل كقيمة وكتخزين وما نراه على شكل تاريخ ما هو إلا تنسيق شكلي له.
عموما هذه القيمة أنا أبدلها بتمرير عبارة SQL عند أمر فتح التقرير باستخدام خاصية OpenArgs

مساهمة أخرى مع الإعتذار لمن سبقني بتقديم الحل.

Vacations_01.xlsx

دالة Nz ، دالة قوية وتغنيك عن استخدام عبارة الـ if ، أو دالة IIf
علما لم أطلع على كل الأكواد ولم أقرأ جميع الردود ولما علقت لم أركز على كاتبها ، ونحن في منتدى نتعلم كل يوم شيء جديد وكثير من الأحيان أبدل فيه طريقتي التي اعتدت عليها لما أرى طريقة جديدة دون التدقيق كثيرا في كاتبها. 
لكم كل الود والتقدير. 

بعد التعديل
كلامك صحيح عن التاريخ

مصدر أكواد تقويم أم القرى ومنتقي التاريخ:
https://sites.google.com/view/abuhadi/ms-access

Gyab_New_02.rar

22 دقائق مضت, aboeyad2007 said:

انيا لاحظت ان الطالب مهما اضفنا له من غياب يبقى الحذف لليوم رقم 9

حتى اني جربت طالب اخر واظفت له الغياب وعند الحذف يخبرني انه سوف يحذف يوم 9 مع ان اليوم المسجل له هو يوم اخر

أنا استخدم نفس التاريخ ونفس الإسم كما الإضافة تماما ، حاول مرة أخرى وخبرني بالنتيجة.

بالنسبة للتقرير بدل مصدر الحقل إلى um.

3 ساعات مضت, aboeyad2007 said:

بالنسبة للفورم اللي اسمه Cal هل يمكن اضافة زر له بحيث اضغط عليه يعيدني الى تاريخ اليوم

لا أنصحك بالتعديل على عمل غيرك ، وإن اضطررت للتعديل فلا تقم بنشره وغالبا لن تستطيع فمع الوقت سوف تنسى وتقوم بنشر عمل "مشوه" إن صح التعبير قد يسيء إلى كاتبه.

المثال بعد التعديل
حتى أستطيع أن أتم العمل قمت بحدف كل الأكواد التي رأيتها أنا غير مطلوبة وبدلت جل الأسماء للجداول والأدوات وبدلت في تركيب الجداول وإعادة ربطها وكثير لا أتذكر كل شيئ الآن.
لم أفتح مثالك الأخير.

يمكن اختصار:
 

n = IIf(IsNull([Text0]), 0, [Text0])

إلى:

n = Nz(Me.Text0), 0)

ويمكن لمزيد من الاختراز تبديل:
 

If IsNull(fld.Value) Then

إلى:
 

If Trim(Nz(fld.Value, "")) = "" Then

مع الإعتذار لكاتب الأكواد فهي صحيحة ولكن صيغت أولها للإختصار والأخرى لمزيد من الإحتراز.

أنهيت 95% من المطلوب
الليلة أرفع لكم المثال إن شاء الله

أضرب الوقت في 24 ستحصل على الرقم العشري
والعكس اقسم الرقم العشري على 24 ثم استخدم تنسيق الوقت.

هل تمانع من تخزين تواريخ الغياب بالميلادي؟ 
مع إبقاء الإدخالات بتقويم أم القرى