ابوخليل

السلام عليكم تم التعديل واتمنى يكون هو مطلوبك test5.rar

جرب هذه Private Sub QSold_AfterUpdate() if [QSold]>[QAvilable] then undo MsgBox " الكمية المتاحة لا تكفي" Me.Refresh End If End Sub

انظر التعديل طبعا اختلفت الرؤية حسب الحاجة المهم ان الوحدة المعتمدة في البيع والشراء هي الحبة لما تسجل عدد كرتون في حقل الشراء يجب ان يدرج في حقل الحبة "qtyin" العدد (حبات) والعلبة غير مهم ولما يسجل في جدول البيع كرتون او علبة او حبة يجب ان يدرج في حقل الحبة "qtyout" العدد (حبات) اذا اردت الارصدة حسب كل مخزن فقط ادرج حقل المخزن في الاستعلام رصيد الاصناف4.rar

نعم او يمكنك اخفاء محدد السجلات فقط

وعليكم السلام المطلوب فيه غرابة !!! كيف عند الانتقال يبدأ العد من جديد ، هذا يعني انه يستمر يسجل الرقم 1 وهذا بالضبط مايدل عليه العنوان : عند الانتقال للسجل التالي يبدا حقل العدد بالعد من جديد اي من رقم 1 هل تريد الاستمرار بتسجيل الرقم 1 ؟ ام تقصد ان العدد عند الانتقال يستمر بالزيادة ؟ ، وضح ما تريد مفصلا

الحمد لله .. وشكرا على دعواتك الطيبات .. ولك اخي بمثل ما دعوت ..

اعتقد ليس هذا المكان المناسب للموضوع ساعدينا في البحث عن المنتدى المناسب داخل الموقع كي ننقله اليه واكتفي بتعديل العنوان ..

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

شوف جرب هذا ووافني بالنتيجة البديهي ان المسؤول عن الحسابات سوف يستخرج الاهلاك من التملك الى نهاية السنة الحالية ehlakAlosol_3.rar

يمكن سؤالي غير واضح انا اتكلم عن الاعمدة الاخرى المقابلة للقيمة الدفترية .. التراكمي والرصيد اذا حقل القيمة الدفترية =1 ما المتوقع للحقول الاخرى المقابلة

طيب والقيم الاخرى السالبة في الاعمدة الاخرى ماذا بشأنها ؟

انا اضفت عمود لعدد الاشهر من اجل الاستئناس

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

شوف التعديل اذا تمام .. ساعتمد المرفق واستبدل الرئيسي به ehlakAlosol_2.rar

تم تحديث المرفق اعلاه : 1- اضافة التسميات 2- وادراج سطر الترقيم 3- ازلت الرقم واحد حسب رغبة اخونا حربي

مشكور ابو ياسين .. انا غفلت عن التسميات لو طبقت الكود على المثال ووضعت التسميات ايضا .. وارفقته ,, كنت احسنت الينا والى اخوانك جرب احذف رقم 1 من هذا السطر For i = 1 To (j + 1) بحيث يصبح : For i = 1 To j ووافني بالنتيجة

آمين واياك وعلى بلادكم وبلاد المسلمين ان اردت اي تعديل على الضوابط انا حاضر

السلام عليكم ورحمة الله اهلاك الاصول الثابتة .. ضروري لكل محاسب في اي منشأة هذا المثال مما تكثر الحاجة اليه ، ويصعب على بعض الاخوة ايجاد طريقة مرنة ومختصرة يوجد اكثر من وسيلة لتحقيق النتيجة كالاعتماد على الاستعلامات الاساسية والاستعلامات الفرعية مع الاستعانة ببعض الاكواد للتنفيذ .. هنا اعرض لكم مع المثال المرفق : كود مختصر يعطي نتائج الاهلاكات لجميع اصناف المشروع دفعة واحدة بضغطة زر داخل الجدول . .. ولو ملكت الوقت الكافي والهمة لأمكن تطويره وانتاجه بطريقة اكثر احترافية . الاحتساب يبدأ من تاريخ الشراء ( التملك) وحتى نهاية السنة الحالية . عمل صغير ارجوا ان يكون فيه الخير الكثير .. ehlakAlosol_1.rar

Do While Forms.Count > 0 DoCmd.Close acForm, Forms(0).Name Loop

آآآآآآآآه تريد الذي في التقرير يطابق المعروض في النموذج الفرعي ..... حاضر .. ان شاء الله اتمكن منه .. فقط املك الوقت

اخوي الخطأ عندك من الاندثار المتراكم والاندثار المتراكم موجوجود في جدول 2 يعني البيانات ثابتة وليس خلل في المعادلات ... اتصور ان فيه خلط بيانات في الجدول .. او ان الفكرة غير مفهومة عندي اصلا

وضح على الصورة اين الخطأ ؟ ووضح شو الواجب يكون الناتج

شوف وجرب الآن Prog51.rar

السلام عليكم الاجابة تطول وتتشعب ، للمزيد من التفاصيل والشروحات ابحث في Google عن جملة : "المكتبات البرمجية" أو "ما هي المكتبات البرمجية"

=Round([number1]*[number2];2)