ابوآمنة

كل شهر للموظف إجازة لمدة 3 أيام بالتالي في السنة يكون رصيد الإجازة السنوي 36يوم معادلة حساب رصيد الإجازة السنوية Expr1: DateDiff("m";[EmpD];[dateNow])*3 معادلة حساب سنوات الخدمة ' حساب السنة y: DateDiff("yyyy";[EmpD];Date())+(Date()<DateSerial(Year(Date());Month([EmpD]);Day([EmpD]))) 'حساب الشهر trueM: IIf(DateDiff("d";DateAdd("m";DateDiff("m";[EmpD];Date());[EmpD]);Date())<0;DateDiff("m";DateAdd("yyyy";[y];[EmpD]);Date())-1;DateDiff("m";DateAdd("yyyy";[Y];[EmpD]);Date())) 'حساب الأيام DAY: IIf(DateDiff("d";DateAdd("m";IIf(DateDiff("d";DateAdd("m";DateDiff("m";[EmpD];Date());[EmpD]);Date())<0;DateDiff("m";[EmpD];Date())-1;DateDiff("m";DateAdd("yyyy";[y];[EmpD]);Date()));[EmpD]);Date())>30;DateDiff("d";DateAdd("m";DateDiff("m";[EmpD];Date());[EmpD]);Date());DateDiff("d";DateAdd("m";IIf(DateDiff("d";DateAdd("m";DateDiff("m";[EmpD];Date());[EmpD]);Date())<0;DateDiff("m";[EmpD];Date())-1;DateDiff("m";DateAdd("yyyy";[y];[EmpD]);Date()));[EmpD]);Date())) وهذا المثال من المنتدى

جرب الآن إخفاء أو إظهار التقرير.accdb

انظر المرفق لعله يفيد في احصاء سنوات الخدمة والإجازات بالتوفيق رصيد الإجازات التراكمي.accdb

انظر المرفق لعله يكون المطلوب إخفاء أو إظهار التقرير.accdb

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

برنامج مساقات للمحاسبة للأستاذ الكبير : محمد أجول قام بشرح البرنامج خطوة بخطوة في عدة دروس في قناته على اليوتيوب التالية :- ملفات العمل لبرنامج المساقات المحاسبي : https://goo.gl/My9F7x ملفات العمل للبرنامج الثاني مساقات أولاين : https://drive.google.com/drive/u/2/fo... ما يميز البرنامج مساقات المحاسبي "المرفق" اعتماده في الغالب على الحقول غير المنضمه ولا يتعمد على الحفظ التلقائي من الأكسس يستخدم مكتبة DAO يمكننا تنزل البرنامج واستعراض الأكواد للاستفادة منها في أعمالنا . مساقات_للمحاسبة,_نسخة_قابلة_للتعديل.accdb

من أفضل البرامج لتصوير الشروحات بصيغة GIf ويدعم اللغة العربية على الرابط : https://www.screentogif.com/ https://www.screentogif.com/downloads.html

شكرا استاذي الغالي ابوعارف طريقتك ممتازة وصححت معلوماتي ، وشكرا لك ع هذه المعلومات القيمة .

مشاركة مع أخي عبداللطيف أفضل طريقة لاستخراج الاسبوع بدقة دون دخول الاسبوع السابق ولا اللاحق استخدم الدالة الموضحة : أما طريقة الأخ الغالي عبداللطيف تظهر لك نتائج 7 أيام من اليوم الحالي كما هو موضح وليس الأسبوع الحالي . بالمرفق بعد التعديل xx.accdb

وعليكم السلام كي تعمل قاعدة البيانات على النسختين يجب وضع كلمة PtrSafe قبل Function كما هو موضح في الكود التالي : #If VBA7 Then 'نسخة 64 Public Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long #Else 'نسخة 32 Public Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long #End If بالمرفق الملف بعد التعديل SAMEH2.rar

ولتعم الفائدة للجميع هذه أوامر فتح مجلدات النظام على الرابط التالي : https://docs.rainmeter.net/tips/launching-windows-special-folders/

تفضل بالمرفق برنامج أكسس تستطيع بواسطته : إغلاق الكمبيوتر . إعادة التشغيل . وضع الإسبات . تسجل الخروج . اغلاق الكمبيوتر.rar

تابع الموضوع التالي :

تستخدم في برنامج أكواد إضافية يلزم إضافة مرجعها من مكتبة الفجوال بيسك .

شكراً لك اخي عبداللطيف

شكرا جزيلا هذا هو المطلوب نفع الله بكم وبارك فيكم

أرجو التطبيق على المثال لو تكرمت دائن / مدين دائنون / مدينون رصيد الصندوق

رائع جدا ومبهر معلمنا وحبيبنا الفاضل @صالح حمادي لقد وضعت النقاط على الحروف ونفذت ما تمنيت بحترافية كبيرة شكرا لك من الأعماق .

شكرا جزيلا @ابو عارف هذا المطلوب سلمت يمينك

وتابع هذا

http://arabteam2000-forum.com/index.php?/topic/245890-نقاش-نعم-لاكسس-2003-ولا-لاكسس-2007-لماذا/ نقاش ممتع

شكراً لك معلمنا @ابو عارف لكن هل يمكن حفظ كل موظف أو كل صفحة بملف pdf مستقل . بشرط أن يحمل كل ملف pdf الرمز الوظيفي

سأجرب فور وصولي للمنزل شكرا لك معلمنا ابوعارف

أخي محمد صلاح تحية طيبة هل اطلعت على هذا الموضوع !!