اخى الكريم انت من صممت برنامجك الخاص
بك لست انا فقط انا اوضح وجهة نظرى ولك مطلق الحرية
وقلت لك قبل ذلك ان عملية التعديل فقط فى الرصيد خطأ محاسبى فادح
فانت تحتاج الى اثبات كل عملية تقوم به سواء شراء او بيع وذلك لظبط مخزنك
اما اما يقوله اخى راعى الغنم فانا قمت بتصميمه فى مرفقى
فى الاستعلام الذى يقوم بطرح المبيعات من المشتريات ليخرج لك الناتج.. فقط انا لم اضع هذا الحقل فى النموذج بصورة مرئية ولكن اخفيته
اخى الكريم ضع هذا الكود فى حدث عند الفتح
او فى اى حدث تريده
Me.مربع نص النتيجة= DCount("*", "اسم الجدول", "الحقل فى الجدول المراد جمعه='" & "حارس متقاعد" & "'")
اخى الكريم مرفق به الاستعلام الذى تريد على حسب نوع الصرف وبين تارخين
هناك زر فى النموذج الرئيسيى مكتوب عليه استعلام فقط اضغط عليه اذا اردت البحث
تنظيم الميزانية.rar
ثم ان انت ذكرت انك عاوز تقرير بحسب نوع الصرف
طب احنا هنضع فى التقرير نوع الصرف بس
لانك لم تذكر ما يريده ان يظهر فى التقرير من بينات
ثم ان لم اجد حرفيا ما يسمى بالايراد الشهرى
فى اى نموذج وفى اى جدول
اخى الكريم انت ستعرض الموضوع للحذف من قبل المشرفين
فلكل له مشغولياته الخاصة به
فمن يجيب يقتطع وقتا خاصا من وقته اللى مفروض يكون بيريح فيه علشان يجاوبك
يعنى اللى بيجاوبوا علينا دول مش مجبورين على الرد
انا اللى فهمته من كلامك ان جدول الاصناف واللى فى حقل يسمى الرصيد هيبقى ثابت
بمعنى انت يوم 16-6-2015 اشتريت 10 ماوس
تم البيع والحمد لله وحقل الرصيد هيبقى صفر
هتيجى انت يوم 20-6 تشترى 10 ماوس تانى وتكتبهم فى حقل الرصيد
ودا محاسبيا غلط لانك لم تثبت حركة الشراء الاولى واكتفيت فقط بتعديل الرصيد
هذا ما اقصده
نعم استعمل if else
بدلا من if then
او ارفق مثالا للتعديل عليه
If condition Then
statements
ElseIf elseifcondition Then
elseifstatements
ElseIf elseifcondition Then
elseifstatements
ElseIf elseifcondition Then
elseifstatements
Else
elsestatements
End If
اخى الكريم وبعد ما البرنامج يظهرلك المسدج بان الكميه نفذت
الطبيعى انك تشترى كمية جديدة
طب انت عندك اصلا رصيد متسجل
فهل هتمسح القديم كله وتضيف الصنف من جديد ولا ايه
بمعنى
انت جبت 10 ماوس شعبى
بعت 3 فى 2 فى 5
كدا الكمية خلصت
هتمل ايه بقى لما تجيب جديد هل هتمسح القدييم بمبيعاته وتضيف الجديد ولا هتعمل ايه
لو هتمسح القديم من الصنف اللى نفذت الكميه منه لحد ما تضيف جديد
كدا مرفقك جاهز بس قولى الاول هتعمل ايه علشان لو مش هتمسح يبقى المرفق بتاعى هيتغير ؟؟؟
اخى الكريم
ضع هذا الكود فى حقل باقى له اخر حقل فى النموذج الفرعى
=IIf([نوعية الإجازة] Between 4 And 10;[TotLoh];IIf(IsNull([TotLoh]);"";Nz([TotLoh];0)-Nz([conH];0)))
اخى الكريم وجدت جدول table11 ولا يوجد فه اى حقول للتاريخ غر تاريخ الميلاد
وان كان ما تسال فيجب ان يكون هناك حقل تاريخ للاستلام
حتى يسهل الاستعلام عنه ام ماذا تريد ؟؟
عقبالى اخى الكريم ابو خليل :dance1:
والعقبى عندكم فى المسرات ان شاء الله
بارك الله فى عملكم
واعذرنى
من حضر القسمة فليقتسم وانا هفتش فى البرنامج حتى اتعلم من اكواده الجديدة التى لم اقابلها بعد