rudwan

الأكسس يتميز بأنه قاعدة بيانات بمعنى أن يسهل عليك العمل و يقوم باجراء الحساب نيابة عنك عندما تعطيه معادلات صحيحة لذلك فان اعادة صياغة البرنامج بما يتيح لك الحصول على الأرصدة تلقائيا من خلال استعلام خير لك من هذه العملية التي تقوم بها كل مرة , و هي عملية غير سليمة من ناحية المنطق البرمجي لذلك اترك موضوع الاستعلام هذا و حاول شرح ماتريد فعله حتى تتمكن من اعادة صياغة البرنامج

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

بناء اي ملف يمر بعدة مراحل : أولا : التعرف على آلية العمل على أرض الواقع ثانيا : كيفية نقل تلك الآلية الى أتمتة عبر البرنامج ثالثا : تخطيط البرنامج رابعا : البدء بانشاء الجداول ثم العلاقات ثم الاستعلامات و أخيرا النماذج و التقارير حسب المطلوب لذلك ابدأ بالخطوة الأولى

الأمر لم يعد واضحا الآن الأفضل أن ترفق ملف اكسل فيه أمثلة رقمية عن اجازات عدة موظفين في جميع الخيارات حتى نعرف كيف نبني قاعدة صحيحة لحساب الاجازة

ألف مبروك فأنت تستحق ذلك و عسى أن تضاعف مشاركاتك و ردودك القيمة و الشكر موصول للأستاذ أبو خليل حفظه الله

ألف مبروك و الى المزيد من التقدم

قبل كل شيء أخي تفضل بشرح تفاصيل الموضوع على أرض الواقع و هو مايسمى تحليل النظام من حيث الآلية و كيفية سيرها و كيفية الحساب ثم قم بشرح تفاصيل ملفك حتى نتمكن من مساعدتك

بعمنى لو موظف أمضى 18 شهرا , ستحسب له 45 يوما ؟ اذا كان الأمر كذلك , يجب أن نحول الآن اساس حساب الاجازة الى اساس شهري و ليس سنوي ؟

أريد أن اعرف تفاصيل الجداول في ملفك و الغرض من كل واحد منها

هل هناك مشكلة أخرى بعد أن زبط الحل معك ؟ اشرح ماتريد بشكل أكثر تفصيلا ووضوحا و من ناحية ثانية , أعتقد أن الجداول بحاجة لاعادة تصميم عادة لا يستحب تحديث الرصيد في الجداول بل من خلال استعلام

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

ممتاز , ابدأ و على بركة الله و نحن نساعدك في اي استفسار تريد وفقك الله

هل هذا سؤال أم طرح معلومة ؟ و هل يتعلق بالاكسل ؟

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

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

يجب أن تحدد قانون استحقاق الاجازة بشكل دقيق الموظف التحق في يوم معين من السنة , متى يحق له أن يأخذ الاجازة ؟ هل هناك حد أدنى لابد من تحقيقه , مثلا يجب أن يمضي ثلاثة اشهر أو شهر , أم ماذا ؟ في شركتنا مثلا لابد أن يمضي سنة كاملة حتى يستحق الاجازة , و الا تكون على حسابه أي بلا راتب اذا لم يتم تحديد المعايير بدقة فبالطبع ستواجهك في المستقبل مشاكل أخرى و الأفضل أن تحصرها كلها بوقت واحد

أفضل طريقة للتعلم هي العمل بذاتك و تأكد أنك لن تنساها قم بتعديل الجداول حسب المقترح الأخير من حيث : 1- اختيار التقويم المعتمد / هجري / أو ميلادي 2-تعديل تنسيق الحقول ثم ارفع الملف بعد تحديد ماهو المطلوب بالضبط حتى نقترح عليك طريقة العمل المناسبة و بالله التوفيق

أنت لم تحدد أصلا القواعد الخاصة بحساب الاجازة الذي كان لديك هو مجرد ادخال يدوي لرصيد الاجازة دون اي حساب عند تحديدها و تحديد قوانينها يتم اقتراح الكود المناسب للتعديل

هناك حل مبسط يعتمد على الخطوتين التاليتين 1- قم بانشاء جدول من حقل واحد يتضمن كل الأرقام من واحد الى الرقم الذي تريده 2- قم بانشاء استعلام فرق , و ذلك كما يلي : - اختر معالج الاستعلامات - ثم اختر استعلام من نوع unmached query سيطلب منك اختيار الجدول الذي يحوي كل السجلات : اختر هنا الجدول الجديد ثم سيطلب منك اختيار الجدول الذي يحوي البيانات الناقصة : اختر الجدول القديم نتيجة الاستعلام تعطيك الفرق بين الجدولين

أنشأ الدالة التالية في نفس الوحدة النمطية السابقة Function Vac_Bal(emp As Long) As Long Dim Vac_Used As Integer Dim Vac_Entitle As Integer Dim d As Integer Dim hd As Date Vac_Used = Nz(DSum("Vac_Per", "Vac_Trans", "[code_employé] = " & emp)) hd = DLookup("hiredate", "[Employé en arabe]", "[Code_employé] = " & emp) Vac_Entitle = Nz((Year(Date) - Year(hd)) * 30, 0) Vac_Bal = Vac_Entitle - Vac_Used End Function 2- انقل مربع المجموع من النموذج الفرعي الى النموذج الرئيسي 3- ضع الدالة الأخيرة مصدر البيانات لحقل المجموع على الشكل التالي =vac_bal([code_employé])

اذا كان التقرير كما ذكرت مرتبا حسب الاسم ماهي المشكلة في أن يتم عمل استعلام اضافي على جدولك مرتبا حسب المجموع تنازليا ؟ حاول أن تذكر تفاصيل الجدول أو الاستعلام لديك حتى نتمكن من مساعدتك ؟

الأكسس لايقبل ادخال تاريخين بتقويمين مختلفين في نفس الوقت قاعدة البيانات اما تكون هجري أو ميلادي فاذا تم الاعتماد على أن يكون التقويم ميلادي مثلا , فتكون تنسيقات التاريخ الميلادي حقل من نوع تاريخ أما التاريخ الهجري فلا يعترف عليه الأكسس هنا على أنه تاريخ , لذلك يتم تنسيقه من نوع , نص , و ليس تاريخ ثم يتم استخدام دوال لتحويل قيمة التاريخ الميلادي الى تاريخ هجري ثم تخزينها في الحقل الهجري ( و على أساس نص أيضا و ليس تاريخ ) في مثالكم هذا , يتم عمل ما يلي : 1- تعديل تنسيق الحقول الهجرية الى نص بدلا من تاريخ 2- يتم انشاء الدالة التالية في وحدة نمطية جديدة Function DHijri(dtGegDate As Date) As String ' returns a date in Hijri format for a given western date VBA.Calendar = vbCalHijri DHijri = dtGegDate VBA.Calendar = vbCalGreg End Function 3- يتم تحويل قيمة الحقل الميلادي الى هجري باستخدام المعادلة التالية hij: Format(CDate(DHijri(expr1)),"yyyy-mm-dd") وذلك على فرض أن expr1 هو حقل التاريخ الميلادي المراد تحويله الى هجري

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

يجب أن تملأ بيانات تاريخ الالتحاق بالعمل لأن الكود يحسب الأرصدة المستحقة لللاجازة كل سنة 30 يوما من تاريخ التحاقه بالعمل مخصوما منها مدة الاجازة التي قضاها في كل سنة و في هذه الحالة و حتى يكون الحساب صحيحا ينبغي ايضا تعبئة بيانات الاجازات السابقة

نعم معك حق و نسيت أن اقول لك أن تسمي الاستعلام الأخير vac_trans