ابوخليل قام بنشر أكتوبر 2, 2018 مشاركة قام بنشر أكتوبر 2, 2018 السلام عليكم ورحمة الله اهلاك الاصول الثابتة .. ضروري لكل محاسب في اي منشأة هذا المثال مما تكثر الحاجة اليه ، ويصعب على بعض الاخوة ايجاد طريقة مرنة ومختصرة يوجد اكثر من وسيلة لتحقيق النتيجة كالاعتماد على الاستعلامات الاساسية والاستعلامات الفرعية مع الاستعانة ببعض الاكواد للتنفيذ .. هنا اعرض لكم مع المثال المرفق : كود مختصر يعطي نتائج الاهلاكات لجميع اصناف المشروع دفعة واحدة بضغطة زر داخل الجدول . .. ولو ملكت الوقت الكافي والهمة لأمكن تطويره وانتاجه بطريقة اكثر احترافية . الاحتساب يبدأ من تاريخ الشراء ( التملك) وحتى نهاية السنة الحالية . عمل صغير ارجوا ان يكون فيه الخير الكثير .. ehlakAlosol_1.rar 2 رابط هذا التعليق شارك More sharing options...
حربي العنزي قام بنشر أكتوبر 2, 2018 مشاركة قام بنشر أكتوبر 2, 2018 استاذي الفاضل ابوخليل الله لايحرمنا من شخصكم الكريم والطيب يارب عمل اكثر من رائع جزاك الله خيرا جعله الله جل وعلا في ميزان حسناتك يارب يارب سائلا الله جل وعلا ان يمن عليك وعلى عائلتك الكريمة وعلى بلدكم الاغر بالصحة والعافية والامن والامان يارب يارب رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر أكتوبر 2, 2018 الكاتب مشاركة قام بنشر أكتوبر 2, 2018 آمين واياك وعلى بلادكم وبلاد المسلمين ان اردت اي تعديل على الضوابط انا حاضر رابط هذا التعليق شارك More sharing options...
حربي العنزي قام بنشر أكتوبر 2, 2018 مشاركة قام بنشر أكتوبر 2, 2018 استاذي الفاضل ابوخليل ربي يخليك يارب هناك خطأ بسيط ان شاء الله وهو عندما يكون تاريخ الشراء مثلا 6/5/2005 في البداية يكون الاحتساب هكذا : المتبقي من السنة تقسيم 12 مضروب في الكلفة ثم مضروب في نسبة الاهلاك كمثال : اذا كان تاريخ الشراء 6/5/2005 - والكلفة 1500000 - ونسبة الاندثار 10% - الحل هكذا المتبقي من السنة 7 شهور اذن 7 / 12 * 1500000 * 0.10 = 87500 هذه لنهاية السنة والباقي كله صحيح حسب المعادلات مع وافر التحايا رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر أكتوبر 2, 2018 مشاركة قام بنشر أكتوبر 2, 2018 (معدل) بارك الله فيه استاذي الجليل وجعله الله في ميزان حسناتك ياليت لو كان في تسميات توضيحيه للحقول كي يستفيد منها الكل ولدي ملاحظه في الرقم التسلسلي كلها برقم صفر وبعد اذنك استاذي ابوخليل اضفت للكود هذا rs2!ID = Nz(DMax("[ID]", "TBL2") + 1, 1) فصار بهذا الشكل Dim db As DAO.Database Dim rs1 As DAO.Recordset Dim rs2 As DAO.Recordset Dim jk, ct, thr Dim i, ii, j As Integer Set db = CurrentDb Set rs1 = db.OpenRecordset("TBL1") Set rs2 = db.OpenRecordset("TBL2") rs1.MoveLast rs1.MoveFirst DoCmd.SetWarnings False DoCmd.RunSQL "DELETE TBL2.* FROM TBL2" DoCmd.SetWarnings True For ii = 1 To rs1.RecordCount j = DateDiff("yyyy", rs1!FirstDate, "31/12/" & Year(Date)) ct = rs1!Cost For i = 1 To (j + 1) If i = 1 Then vdate = rs1!FirstDate If Month(rs1!FirstDate) <> 12 Then jk = Month(rs1!FirstDate) / 12 thr = (rs1!Cost * rs1!IndtharRute) * jk Else jk = 1 thr = (rs1!Cost * rs1!IndtharRute) * jk End If End If rs2.AddNew rs2!ID = Nz(DMax("[ID]", "TBL2") + 1, 1) rs2!PrvtCode = rs1!PriavetCode rs2!ShopDate = vdate rs2!t_year = Year(vdate) rs2!t_month = Month(vdate) rs2!Cost2 = rs1!Cost rs2!EndtharYear = (rs1!Cost * rs1!IndtharRute) * jk rs2!End = thr rs2!Rasid = ct - thr rs2!BookValue = thr rs2.Update thr = thr + rs1!Cost * rs1!IndtharRute vdate = "31/12/" & (Year(vdate) + 1) jk = 1 Next i rs1.MoveNext Next ii MsgBox "تم" Set db = Nothing Set rs1 = Nothing Set rs2 = Nothing تم تعديل أكتوبر 2, 2018 بواسطه ابو ياسين المشولي 1 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر أكتوبر 2, 2018 الكاتب مشاركة قام بنشر أكتوبر 2, 2018 اقتباس ياليت لو كان في تسميات توضيحيه للحقول كي يستفيد منها الكل اقتباس اضفت للكود هذا rs2!ID = Nz(DMax("[ID]", "TBL2") + 1, 1) مشكور ابو ياسين .. انا غفلت عن التسميات لو طبقت الكود على المثال ووضعت التسميات ايضا .. وارفقته ,, كنت احسنت الينا والى اخوانك 5 ساعات مضت, حربي العنزي said: كمثال : اذا كان تاريخ الشراء 6/5/2005 - والكلفة 1500000 - ونسبة الاندثار 10% - الحل هكذا المتبقي من السنة 7 شهور اذن 7 / 12 * 1500000 * 0.10 = 87500 جرب احذف رقم 1 من هذا السطر For i = 1 To (j + 1) بحيث يصبح : For i = 1 To j ووافني بالنتيجة 1 رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر أكتوبر 2, 2018 مشاركة قام بنشر أكتوبر 2, 2018 (معدل) 20 دقائق مضت, ابوخليل said: مشكور ابو ياسين .. انا غفلت عن التسميات لو طبقت الكود على المثال ووضعت التسميات ايضا .. وارفقته ,, كنت احسنت الينا والى اخوانك استاذي ابوخليل لوكنت عرفت التسميات كنت فعلتها ولكني انا كمان اجهل التسميات ارجو ان تعذرني اظن الاخ حربي العنزي هو يعرف التسميات تم تعديل أكتوبر 2, 2018 بواسطه ابو ياسين المشولي رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر أكتوبر 2, 2018 الكاتب مشاركة قام بنشر أكتوبر 2, 2018 تم تحديث المرفق اعلاه : 1- اضافة التسميات 2- وادراج سطر الترقيم 3- ازلت الرقم واحد حسب رغبة اخونا حربي رابط هذا التعليق شارك More sharing options...
حربي العنزي قام بنشر أكتوبر 2, 2018 مشاركة قام بنشر أكتوبر 2, 2018 استاذي الفاضل ابوخليل ربي يخليك يارب جربت حذف رقم 1 ووضعت هذه المعادلة For i = 1 To j لكن لم يحدث شيء بقي نفس الشي وان شاء الله سوف اضع التسميات مع وافر التحايا رابط هذا التعليق شارك More sharing options...
حربي العنزي قام بنشر أكتوبر 2, 2018 مشاركة قام بنشر أكتوبر 2, 2018 استاذي الفاضل ابوخليل جزاك الله خيرا يا طيب والله ماقصرت والنعم منك احتساب الاهلاك يبدأ من تاريخ الشراء الى نهاية السنة ومن ثم تمشي الامور كما في البرنامج الذي حضرتك وضعت الاكواد فيه احيانا تاريخ الشراء يكون 1/8/2006 -- اذان باقي على نهاية السنة 4 اشهر راح تكون المعادلة هكذا : 4 / 12 * الكلفة * نسبة الاهلاك مع وافر التحايا استاذي الفاضل رابط هذا التعليق شارك More sharing options...
حربي العنزي قام بنشر أكتوبر 2, 2018 مشاركة قام بنشر أكتوبر 2, 2018 اساتذتي الافاضل السلام عليكم ورحمة الله وبركاته هذا البرنامج في المرفقات بعد وضع التسميات عليه البرنامج من برمجة الاستاذ القدير ابوخليل جزاه الله خيرا وامانه على كل من يستفاد من هذا البرنامج دعوه صالحة بظهر الغيب للاستاذ الفاضل ابوخليل ربي يحميه من كل سوء يارب يارب مع وافر التحايا اسف هذا البرنامج في المرفقات مع وافر التحايا ehlakAlosol1.rar 1 رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر أكتوبر 2, 2018 مشاركة قام بنشر أكتوبر 2, 2018 كي نفهم هذة 4 / 12 * الكلفة * نسبة الاهلاك نرجو تسميتها بسمها بالجدول فستكون 4 / 12 * الكلفة * نسبة الاهلاك كيف نعرف تاريخ الشراء هذة معادله وليس لحقل واحد فيها تاريخ شراء شهر واحد وفيها شهر 3 وفيها شهر اربعه فلابد لها معرفه كيف تقسمها 11 دقائق مضت, حربي العنزي said: اساتذتي الافاضل السلام عليكم ورحمة الله وبركاته هذا البرنامج في المرفقات بعد وضع التسميات عليه البرنامج من برمجة الاستاذ القدير ابوخليل جزاه الله خيرا وامانه على كل من يستفاد من هذا البرنامج دعوه صالحة بظهر الغيب للاستاذ الفاضل ابوخليل ربي يحميه من كل سوء يارب يارب مع وافر التحايا اسف هذا البرنامج في المرفقات مع وافر التحايا ehlakAlosol1.rar ربنا يحفظه ويطول بعمرة ويجعل كل ما يبذله في ميزان حسناته رابط هذا التعليق شارك More sharing options...
حربي العنزي قام بنشر أكتوبر 2, 2018 مشاركة قام بنشر أكتوبر 2, 2018 استاذي الفاضل ابو ياسين ربي يخليك يا طيب مثلا حاجة تم شرءها بتاريخ 6/5/2005 هذه الحاجة نحسب لها اندثار من تاريخ شراءها الى نهاية السنة اذا هي تم شراءها في الشهر 5 من سنة 2005 كم شهر باقي على نهاية السنة يعني الى 2006 7 شهور تمام اذن راح تكون المعادلة كتالي : 7 / 12 * الكلفة ( Cost) * نسبة الاندثار ( IndtharRute ) والباقي كله صح مع وافر التحايا رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر أكتوبر 2, 2018 مشاركة قام بنشر أكتوبر 2, 2018 6 دقائق مضت, حربي العنزي said: استاذي الفاضل ابو ياسين ربي يخليك يا طيب مثلا حاجة تم شرءها بتاريخ 6/5/2005 هذه الحاجة نحسب لها اندثار من تاريخ شراءها الى نهاية السنة اذا هي تم شراءها في الشهر 5 من سنة 2005 كم شهر باقي على نهاية السنة يعني الى 2006 7 شهور تمام اذن راح تكون المعادلة كتالي : 7 / 12 * الكلفة ( Cost) * نسبة الاندثار ( IndtharRute ) والباقي كله صح مع وافر التحايا الى هنا تمام الان بقينا في التاريخ رابط هذا التعليق شارك More sharing options...
حربي العنزي قام بنشر أكتوبر 2, 2018 مشاركة قام بنشر أكتوبر 2, 2018 استاذي الفاضل ابوخليل ربي يحميك من كل سوء يارب هذه صورة للنتائج الصحيحة عندما يكون تاريخ الشراء لهذه الحاجة هو 6/5/2005 --- والكلفة 1500000 --- ونسبة الاندثار 10% مع جزيل الشكر والاحترام لك استاذي الفاضل الصورة في المرفقات ملاحظة : الفترة او تاريخ الشراء نفس المسمى رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر أكتوبر 2, 2018 الكاتب مشاركة قام بنشر أكتوبر 2, 2018 شوف التعديل اذا تمام .. ساعتمد المرفق واستبدل الرئيسي به ehlakAlosol_2.rar 1 1 رابط هذا التعليق شارك More sharing options...
حربي العنزي قام بنشر أكتوبر 2, 2018 مشاركة قام بنشر أكتوبر 2, 2018 استاذي الفاضل ابوخليل ربي يحميك من كل سوء يارب الله عليك استاذي الفاضل نعم هذا هو المطلوب تماما جزاك الله خيرا يا طيب ماقصرت وكلك زود يالطيب ربي يوفقك يارب رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر أكتوبر 2, 2018 مشاركة قام بنشر أكتوبر 2, 2018 8 دقائق مضت, ابوخليل said: شوف التعديل اذا تمام .. ساعتمد المرفق واستبدل الرئيسي به ehlakAlosol_2.rar بارك الله فيك وزادك من علمه رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر أكتوبر 2, 2018 الكاتب مشاركة قام بنشر أكتوبر 2, 2018 لاحظت في مثالي الاخير عمود الاهلاك السنوي انه يكون كامل .. فيما يقابل السنة الناقصة .. هل في هذا اشكالية رابط هذا التعليق شارك More sharing options...
حربي العنزي قام بنشر أكتوبر 2, 2018 مشاركة قام بنشر أكتوبر 2, 2018 استاذي الفاضل ابوخليل ربي يحميك من كل سوء يارب انا ضفت هذا التعديل على معادلتك استاذي الفاضل وكانت الصحيحى jk = (12 - (Month(rs1!FirstDate))) / 12 ربي يوفقك يارب استاذي الفاضل ابوخليل ربي يخليك يارب بقي شيء واحد فقط ويكتمل البرنامج تماما وهو عندما يصل الرصيد الى القيمة صفر تكون القيمة الدفترية واحد هذا كل شيء رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر أكتوبر 2, 2018 الكاتب مشاركة قام بنشر أكتوبر 2, 2018 انا اضفت عمود لعدد الاشهر من اجل الاستئناس 2 رابط هذا التعليق شارك More sharing options...
حربي العنزي قام بنشر أكتوبر 2, 2018 مشاركة قام بنشر أكتوبر 2, 2018 استاذي الفاضل ابوخليل ربي يحميك من كل سوء يارب كهذه الصورة المرفقة واكون شاكرا لك استاذي الفاضل ربي يوفقك يارب رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر أكتوبر 2, 2018 الكاتب مشاركة قام بنشر أكتوبر 2, 2018 طيب والقيم الاخرى السالبة في الاعمدة الاخرى ماذا بشأنها ؟ رابط هذا التعليق شارك More sharing options...
حربي العنزي قام بنشر أكتوبر 2, 2018 مشاركة قام بنشر أكتوبر 2, 2018 استاذي الفاضل ابوخليل ربي يحميك من كل سوء يارب احسنت استاذي الفاضل عندما يصل الى القيمة السالبة الاولى ايضا تعتبر القيمة الدفترية واحد ربي يوفقك يارب كهذه الصورة المرفقة مع جزيل الشكر والاحترام لك استاذي الفاضل والله يساعدك على هذا التعب رابط هذا التعليق شارك More sharing options...
حربي العنزي قام بنشر أكتوبر 2, 2018 مشاركة قام بنشر أكتوبر 2, 2018 استاذي الفاضل ابوخليل يا لطيب الله يكون بعونك على هذا التعب نسبة الاندثار هي تحدد عمر الموجود او الصنف مثلا اذا كانت نسبة الاندثار 10 % اذن عمر هذا الصنف عشرة سنين وبعدها تكون قيمته الدفترية تساوي 1 وهكذا مع بقية نسب الاندثار رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان