طاهر اوفيسنا

فكل شئ يعتمد على هذا النموذج. 02- مالغاية من أنشاء نموذج فرعي FrmCridi_sub_OLD انا عندما اغير شئ في برنامج ، دائما احتفظ بالاصل ، واطلق عليها OLD ، حتى اعرفه ، ويمكن في النهاية حذفه. 03 - الإستعلام qry_Loans ينقصة الباقي الشهري وهذا هو " لب المطلب " الذي تطرقنا له منذ البداية المسألة سهلة ولكننا لم نصل اليها: 1. عند دفع كل شهر ، فسنكتب في خانة Payment_Made في النموذجfrm_Loans ، القيمة المدفوعة لذلك الشهر (وهذا ينطبق على الموظف الذي يريد ان يدفع اي مبلغ يحب في ذلك الشهر) ، 2. عندها ، كل الذي يجب عمله هو جمع حقل Cridi وحقل Payment_Made في الاستعلام qry_Loans ، ونطرحهم من بعض لنحصل على الباقي الشهري Remaining . 04- النموذج الفرعي FrmCridi_sub2 الدي هو دمج بين Cridi و Elec عند فتحة لا نلاحظ شيئا به بالرغم أني سجلت معلومات ب Elec انا صغرت الحقول لكي يتسع المكان لبقية حقول ElectroM الاضافية ، ولكني لم اصل اليها. (ولكني ضبطته بحيث تستطيع استبداله مكان FrmCridi_Sub ، وسيعمل بالطريقة الصحيحة) ، ولكن ، قد نلغي فكرة دمج النموذجين ، فعندها تستطيع ان تنسخ الكود من النموذج Cridi الى النموذج ElectroM لعمل الازم. 05- زر سداد المبلغ بنموذج Cridi لا يعمل هذا الزر يجب ان يفتح النموذج frm_Loans للقرض/السجل الذي تكون عليه في Cridi ، وانت بعد ذلك تدخل مبلغ السداد للشهر المطلوب (لاحظ 03.1 و 03.2 اعلاه لمعرفة طريقة الحساب). 06- عند تجربة قرض ومن بعد يتم حذفه نلاحظ انه يحدف من الجدول Cridi ولا يحذف من الجدول tbl_Loans اعمل علاقة بين الجدول Cridi والجدول tbl_Loans كما في الصورة المرفقة: 11.4.Clipboard01.jpg آمل ان توفق في إنشاء كود للباقي "Remaining" في الإستعلام qry_Loans رجاء مراجعة 03.1 اعلاه أخي كريمو انت الآن تستطيع ان تملئ الفاراغات التي انا لم اكملها ، فالموضوع الآن اصبح واضحا لطريقة عمل الجدول tbl_Loans ، نعم قد نحتاج حقل خاص لـ Payment_Made_Cridi و Payment_Made_Elec ، ولكن سنعرف هذا الشئ لما نوصل الى Elec ، والذي انت تستطيع ان تعمله ، بواسطة نفس الكود الموجود في Cridi. رجاء ملاحظت اني في اي للتاريخ ، فاني أغير اليوم واجعله" اول الشهر" (لهذا السبب كنت تحصل على خطأ في الكود في النموذج frm_Avoid سابقا). جعفر السلام عليكم أخي جعفر رأيتك غايب عن المنتدى منذ 07 ماي أتمنى ان تكون في صحة جيدة يارب ونرى بصماتك والله لا يعدمها ابدا من هذا المنبر النير 01- الصعوبة التي لقيتها مرة واحدة ومن بعد اني لم الاحظها " ربما كما اشرت 'فإني أغير اليوم واجعله 'اول الشهر' (لهذا السبب كنت تحصل على خطأ في الكود في النموذج frm_Avoid سابقا)' " 06- أما بخصوص الربط بين جدول cridi و الجدول tbl_Loans فقد تم وفقا للصورة ولكن اثناء تحرير قرض في النموذج cridi وخاصة عند كتابة تاريخ بداية الخصم يظهر هذا الميساج خاصة عند قرض 1 و قرض 4 و قرض مالي إستعجالي (سبحانة الله مرة يظهر هذا الميساج ومرة لا) *- اما الباقي فكله تمام *- اما بخصوص ملء الفراغات التي انت لم تكملها مافهمت اين هي في الجدول tbl_Loans *- واخير ارجو ان ارى الباقي الشهري Remaining في الإستعلام qry_Loans كما تفضلت بطرحه في 3-2 الذي قلت عندها ، كل الذي يجب عمله هو جمع حقل Cridi وحقل Payment_Made في الاستعلام qry_Loans ، ونطرحهم من بعض لنحصل على الباقي الشهري Remaining . *- وفي الأخير لقد حاولت زرع كود القرض في elec مع تغيير الأسماء ولكني لم أوفق

السلام عليكم أخي جعفر وشكرا على مد يد العون لقد جربت الفكرة واعجبتني اولا : يبدو ان الطريقة صحيحة واصل لغاية النهاية ولكن فيها بعض الأسئلة وهي : 01- فكرة الترتيب تتم لجميع القروض ويكتب 0.00 في الجدول tbl_Loans للأشهر المعفاة بعدما وجدت صعوبة في قرض2 الى قرض 4 02- مالغاية من أنشاء نموذج فرعي FrmCridi_sub_OLD 03 - الإستعلام qry_Loans ينقصة الباقي الشهري وهذا هو " لب المطلب " الذي تطرقنا له منذ البداية 04- النموذج الفرعي FrmCridi_sub2 الدي هو دمج بين Cridi و Elec عند فتحة لا نلاحظ شيئا به بالرغم أني سجلت معلومات ب Elec 05- زر سداد المبلغ بنموذج Cridi لا يعمل 06- عند تجربة قرض ومن بعد يتم حذفه نلاحظ انه يحدف من الجدول Cridi ولا يحذف من الجدول tbl_Loans آمل ان توفق في إنشاء كود للباقي "Remaining" في الإستعلام qry_Loans

للرفع

المرفق يبين الفرق بينهما مصنف الفرق.rar

شكرا لك اخي جعفر هذه الطريقة عجبتني جربتها ولكن ينقص بالإستعلام الباقي واما قضية الترتيب فإنها لا يتم فيها التنفيذ مانعرف المشكلة اين تكمن كما اشرت لك بالصورة في المشاركة 54 انت تريد ان تعطي الاختيار للمموظف في عملية سداد المبلغ ، وهو يختار الاشهر؟ نعم اذا كان الموضوع كذلك ، فيجب ان تقوم بالعملية يدويا ، فالبرنامج لا يستطيع معرفة الاشهر بهذه الطريقة!! اين المشكلة في يدويا المهم حل يريحني 2. بالنسبة لتوزيع المبلغ ، فاعتقد بأن يوزع على الاشهر ، بقيمة قسط الشهر ، وليس أكثر (هذا سيسهل عملية التقرير ، وكل رقم سيكون بشهره) ، مش مشكلة اما اذا لم نلتزم بتوزيع الاشهر حسب القسط ، فمعناه مثلا: قسط 8-2015 هو 2000 ، ولكنه دفع 4000 ، فمعناه يجب علينا ان نجمع الارقام تراكميا للحصول على الرقم النهائي ، بينما الطريقة الاولى جاهزة وبدون ارقام تراكمية ولكن هذه الطريقة ملزم بها كما اشرت لك سابقا والشرط انها تنقص من الباقي او تعدمه بالنسبة لدمج الجدولين ، فرجاء إخباري (في صورة او اكسل) عن الحقول المتشابهة في الجدولين هذه غدا بحول الله سيتم ابلاغك بذالك عن طريق الإكسل ولو ماعندك مشكلة في ذالك اتركها مقسمة كل على حدى وإذا إقتضى الأمر ووجدت صعوبة في كيفية التعامل فأجرنا على الله ندمجهما معا

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

مثلا: موظف عنده قرض 20,000 ، لمدة عشر اشهر ، بسداد 2,000 لكل شهر. الشهر السداد سدد 2,000 لكل شهر ، وبقي عليه 8,000 ، الآن يريد ان يدفع 5,000 : هل اسدد من النهاية: 8-2015 2000 7-2015 2000 6-2015 1000 او اسدد من الشهر التالي للدفع: 5-2015 0 6-2015 1000 7-2015 2000 8-2015 2000 او كيف؟ جعفر شكر لك نترك الفكرة زوجية احسن من الفردية التسديد الأخير يكون كالتالي 5-2015 4000 وتبقى 4000 هذه الـ 4000 اذا اراد ان تقتطع له خلال الشهر الموالي فتكون 6-2015 4000 ويبقى 0 وإذا اراد ان يتم الإقتطاع وفقا لما كان معمول به يكون 6-2015 2000 ويبقى 2000 7-2015 2000 ويبقى 0 وبعد لا يظهر هذا الموظف في الإقتطاعات لأنه اتم كل الإقتطاعات هذه الإجابة عن الأولى

شكرا لك لك أي واستاذي جعفر لقد لا حظت المرفق وإتضح لي ان تعديلك الا في الجدول tbl_Loans ومن خلال رؤية هذا الأخير ومنح قرض لـ كريمو 1 إتضح لي ان مابي الصورة ومن جهة أخرى طلبت مني إكمال الإستعلام الخاص بذالك فلم اصل الى حل أما التقرير فهو ينتج من الإستعلام أما الفورم frm_Avoid_Dates فقد غطلعت عليه ووجدته لاينفذ تعديل التوقيف ارجو منك ان نمشي خطوة بخطوة واوضح لك ألأمر وشكرا لك أخي عن كل مجهوداتك

للرفع

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

في الأكسس جرب قناع الإدخال عند مربع نص التاريخ

بعد إذن الأساتذة الكرام اخي على مايبدو مشكلتك في إعدادات الجهاز - إعدادات لوحة التحكم

السلام عليكم الى اين وصلت بأفكارك اخي جعفر

نتوكل على الله نتمنى الفكرة تعالج الموضوع

وعليكم السلام نعم يقوم بوظائف اخرى مثلا 1- تسديد المنح (مواليد - وفيات - ختان - حج - نسبة أمراض طبية ..... وغيرها) 2- تسديد الفوترة 3- الأدوات الكهرومنزلية مثلها مثل القروض 4- إقتطاع المشاركات خلال شهري مارس وجويلية من كل سنة ملاحظة : للعلم أن 1 و 2 منفصلا عن العمل المطلوب و 3 و4 من ضمن العمل المطلوب أرجو منك أخي الكريم تخصيص يوم لي من وقتك الثمين لنتناقش في كل شيء

وعليكم السلام الخطوات المتبعة هي : 01- الدخول على فورم FrmCridi ثم نختار اسم الموظف مثلا رقم 4 "جعفر" ثم نختار من نوع القرض كما في الصورة 01 بعد إختيار قيمة القرض مثلا قرض 3 يكتب تلقائيا في قيمة القرض 30.000.00 ثم يظهر Msbox به هل تريد تثبيت تاريخ القرض لم نضغط على نعم يظهر تاريخ اليوم في شهر القرض كما في الصورة 02 ثم بعد ذالك نختار تاريخ بداية الخصم مثلا 2015/04/01 نرى تاريخ نهاية الخصم يكتت تلقائيا بناءا على كود يقسم مبلغ القرض على عدد الأشهر تاريخ النهاية2015/01/31 كما في الصورة 03 هنا الموظف جعفر إستفاد بقرض مالي قيمته 30.000.00 يحول الى حسابه عن طريق الفورم FrmTransfer وهو غير موجود بالمرفقات ..... هذا غير مهم المهم ان تاريخ بداية الإقتطاعات تبدأ من تاريخ افريل 2015 الى غاية جانفي 2016 كما في الصورة 3 (هذه إقتطاعات شهرية ليس بها أي مشكل ) طبعا الدخول على الفورم FrmDiscountReport هذا خاص بالإقتطاعات الشهرية كما في الصورة 4 02- هذا الموظف جعفر طلب توقيف الإقتطاع لمدة شهرين وهما ماي و جوان 2015 ندخل على نفس الفورم FrmCridi ونختار رقم 04 وهو نفس الموظف "جعفر" كما في الصورة 06 نتبع الترقيم من 01 الى 06 نلاحظ ان 05 تغير من 2015/01/31 الى 2015/03/31 اي زيادة شهرين (وهما شهرين التوقيف) ...... الكل تمام 02- وهنا المشكلة ندخل على الفورم FrmDiscountReport من جديد خلال شهر افريل نلاحظ انه أقتطع له مبلغ 3.000.00 وبقي له 33.000.00 كما في الصورة 07 لاحظ في هذه الصورة زيادة مبلغ 6.000.00 للباقي ......... هذه المشكلة 03- فورم FrmElec هو مثل القروض له مبلغ مالي ينقص منه مبلغ المساهمة ثم يضرب في العدد الموجود في النسبة المئوية ويقسم على 100 نجد المجموع الكلي هو Elec_Value يقسم على 10 ليظهر مبلغ الإقتطاع الشهري DiscountPerMonth وله ايضا تاريخ بداية اقتطاع t1 ونهاية اقتطاع n1 وتوقيف إقتطاع 04- اما فورم FrmMocharaka هذا هو مبلغ مشاركة بقيمة 2.000.00 يقتطع لكل عامل تلقائيا خلال شهر مارس بقيمة 1.000.00 وجويلية بقيمة 1.000.00 من كل سنة وهو لا يدخل إطلاقا في مجاميع الباقي من القروض او الأدوات الكهرومنزلية ويظهرا هاذين المبلغين في اقتطاع أخر في التقرير آمل اني قد وفقت في شرح ماهو معمول وماهو مطلوب وشكرا لك أخي جعفر عن سعة الصدر اي استفسار او شيء غير مفهوم إني موجود وفقك الله لما يحبه ويرضاه

للرفع

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

لللرفع

واذا كان المصدر من الإستعلام وبه معايير والتقرير يفتتح عن طريق نموذج فرعي

شكرا لك استاذ محمد عصامي هل ممكن ينطبق هذا الترقيم المتجدد كل سنة على التقرير

هل تمت معاينة الفيديو اخي جعفر ام يوجد خلال بالتنزيل

أستاذي العزيز جعفر هاهو فيديو يبين تفكيك الكود Remaining من طرف الأستاذ حسام الشامي أرجو ان يكون واضحا https://dub118.afx.ms/att/GetAttachment.aspx?file=31219695-17ca-4739-8b71-e02d3deddf4a.zip&ct=YXBwbGljYXRpb24vemlw&name=T3V0bG9vay5jb20uemlw&inline=0&rfc=0&empty=False&cid=6311f496cf65fbc2&shared=1&biciPrevious=34c02497-d779-46ee-b000-9c0ffb23e1be_01e57988e53_10420&hm__login=taherlaguili&hm__domain=hotmail.fr&ip=10.111.4.8&d=d3193&mf=0&hm__ts=Wed%2c%2015%20Apr%202015%2014%3a59%3a08%20GMT&st=taherlaguili%25hotmail.fr%407&hm__ha=01_7131bb812877b511f17228d1299d0f95c1f059e0dd0225421e9db50b1741c9bb&oneredir=1

قيمة الحقل Remaining (الباقي المدان) من الجدولين Cridi و ElectroMeng وحقولهما : بالنسبة لـ جدول Cridi حقوله Cridi_Value (مبلغ القرض) و DiscountStartDate (تاريخ اول إقتطاع) و DiscountEndDate (تاريخ نهاية الإقتطاع) و DiscountPerMonth (الإقتطاع الشهري) بالنسبة لـ جدول ElectroMeng حقوله Elec_Value (المبلغ الإجمالي) و t1 (تاريخ اول إقتطاع) و n1 (تاريخ نهاية الإقتطاع) و DiscountPerMonth (الإقتطاع الشهري) وسؤال آخر ، هل هناك جدول تسجل فيه الدفوعات؟ لأن هذا المفروض ان يسهل العملية كلها لايوجد جدول تسجل فيه الدفوعات وان رايت انه ضروري اوك نعمله واي استفسار اخر انا موجود بالتوفيق استاذي

Remaining هي في الإستعلام وليست من جهة أخرى Remaining: (Nz((SELECT SUM(nz((dateDiff( 'm' , IIF (([Forms]![FrmDiscountReport]![txtMonth] ) < DiscountStartDate, DiscountStartDate , ([Forms]![FrmDiscountReport]![txtMonth] )) ,CDATE(format(format(DiscountEndDate , 'yyyyMM') & Day(DateSerial(Year(DiscountEndDate), Month(DiscountEndDate) + 1, 0)) , '####/##/##')))) * DiscountPerMonth , 0)) FROM Cridi WHERE Cridi.EmployeeID = Employee.EmployeeID AND ([Forms]![FrmDiscountReport]![txtMonth] ) < DiscountEndDate AND DiscountStartDate IS NOT NULL AND DiscountEndDate IS NOT NULL);0)+Nz((SELECT SUM(nz((dateDiff( 'm' , IIF (([Forms]![FrmDiscountReport]![txtMonth] ) < t1, t1 , ([Forms]![FrmDiscountReport]![txtMonth] )) , CDATE(format(format(n1 , 'yyyyMM') & Day(DateSerial(Year(n1), Month(n1) + 1, 0)) , '####/##/##'))) ) * DiscountPerMonth , 0) ) FROM ElectroMeng WHERE ElectroMeng.EmployeeID = Employee.EmployeeID AND ([Forms]![FrmDiscountReport]![txtMonth]) < n1 AND t1 IS NOT NULL AND n1 IS NOT NULL);0))