jafar089

السلام عليكم في المرفق عملت برنامج عند الضغط على زر حفظ يحفظ قيمة mojammad ( نعم ) في الجدول Proces الخاصة بالعميل عن طريق رقم ( بطاقة الأحوال ) ولكن عند التنفيذ يتم فقط حفظ أول سجل له . المطلوب / أن يتم حفظ القيمة لكل سجل خاص بالعميل يحتوي على رقم ( بطاقة الأ…

بعد إذن الأستاذ أبو يوسف مرفق برنامج لتمكين وإلغاء الشفت En-Dis-SHIFT.rar

سلمت يداك ... مشكووور .

يعني إذا لم يطابق أي رقم موجود في الجدول

السلام عليكم المطلوب عند عدم تطابق ما يتم إدخاله للرقم عند تشغيل البرنامج فإنه يتم الخروج نهائياً من البرنامج db5.rar

مشكور أستاذ أبو يوسف الله يعطيك العافية

a1.rar

الله يعطيك العافية ولكن أريد التعديل على الكود التالي حيث أن هذا الكود يضيف القيمة لجميع العملاء والمطلوب إضافة القيمة للعميل المختار من القائمة : CurrentDb.Execute "UPDATE a1 SET a1.amount = a1.amount +" & Me.a2 & ";"

السلام عليكم كيف يتم حفظ المبلغ الخاص بالعميل في الجدول a1 a1.rar

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

المقصود هو : عند اختيار محصل ثم عميل ثم من القائمة نضغط على البيانات ثم يذهب المؤشر إلى خانة التاريخ ثم إلى خانة المبلغ ثم خانة رقم الشيك فخانة البنك ثم إذا ضغطت انتر فسينتقل المؤشر ( التركيز ) إلى المحصل بعدها جرب اضغط على زر حفظ فستظهر الرسالة التالية : sa22…

جزيت خيرا .. ولكن في الملاحظة الأولى المطلوب ليس إظهار رسالة بالفراغات وإنما المطلوب أن يسمح بالحفظ حتى من دون رقم الشيك أو البنك أي ممكن أن يكونا فارغين ( لأنه ممكن يكون الدفع نقدا ) . أيضا كما قلت سابقاً بعد كتابة المبلغ ومن ثم الضغط على انتر حتى الوصول إلى …

لقد لاحظت على كود الحفظ ما يلي : 1- إذا تم ترك خانة رقم الشيك أو البنك فارغة أو تم نقل التركيز إلى خانات أخرى كالمحصل مثلا تظهر الرسالة التالية : مشكلاً على الكود : x2 = Me.a2 * DLookup("Qest", "a2", "TotalPaid=" & 0 & " and n=" & Me.NoFile) / DLookup("Amount"…

رائع .. مشكووور جزيلاً . إذا أردت أن يكون الربح تراكميا ، أي أنه في كل مرة يكون فيه ربح يتم إضافته على القديم لا أن يحل محله كما هو الآن فكيف يتم ذلك ؟

أينك يا أستاذ ؟!!

كما قلت سابقاً بالنسبة للعملاء يكون التوزيع على أساس رأسمال Capital في جدول a1 ويوجد بالمثال السابق عميلين الأول رأسماله 500 والثاني 400 ريال . وكذلك بالنسبة للمحصلين على أساس النسبة المعطاة لهم وهي 5% لكل محصل كماهي موجودة في Rebh% في الجدول mo . أي لو افترضن…

أحسنت أستاذي وماذا عن توزيع الأرباح على المساهمين والمحصلين ؟

تم عمل الكود التالي لحفظ المطلب الأول وهو القسط كامل : If MsgBox("هل تريد بالتأكيد حفظ البيانات", vbInformation + vbYesNo, "حفظ") = vbYes Then CurrentDb.Execute "UPDATE a2 SET a2.qpaid = " & Me.a2 & ", AqsadQard.cheqno = " & Me.a3 & ",AqsadQard.qplace = '" & M…

في المثال المرفق بعد اختيار المحصل والعميل تظهر بيانات العميل والمبلغ المستحق عليه وتظهر على اليسار قائمة الأقساط مرتبة شهريا المطلوب بعد كتابة المبلغ المدفوع ( القسط ) والضغط على حفظ يتم حفظ المبلغ في جدول a2 في حقل TotalPaid بناء على ترتيب الأقساط وان يتم تو…

مشكور والله يعطيك العافية على هذا المجهود الرائع .