فراس محي

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

طب ممكن اطمع شويه بعلم حضرتك وتحلي المشكلة العويصة الي واقع فيها والي هى ان عندما اختار ترميز معين في المبيعات بيجيبلي حقل رقم الكارتون وحق التفاصيل تلقائي من ورقه المشتريات حقيقة تعبت وما وجدت الدالة

السلام عليكم انا عامل برنامج اكسيل لصديق فيه مشتريات ومبيعات ومخزن عاوز من حضراتكم ان لما ادخل ترميز ماده في المشتريات بتزيد الماده في ورقه الرصيد ولما ابيع ماده من المبيعات لترميز معين بيروح لورقه الرصيد وبينزل من رصيد هذه الماده وشكرا لكم جميعا U.194 PL for BAS.xlsx ورحم الله من كان لي عونا وجعلها في ميزان حسناته

السلام عليكم اخوان رفقت البرنامج مشكلتي بالصرف يصرف طبيعي بس اذا الكميه اقل من الرصيد يجعل الرصيد بالناقص ولا يعترض اذ كانت الكميه المصروفه اكبر من الرصيد برنامج hsj.zip

لايوجد حل هل عجزت الاعراب ان تجد حلا لمشكلتي

المشكله ان الكومبو والرصيد بغير جدول مو نفس الجدول الذي مبني عليه الفورم

اخوان ماكو حل معقوله اين عمالقه الاكسس

السلام عليكم اخوان عندي كود صرف رصيد المشكله عند الصرف يقراء الحقل الاول من جدول الكميات ميطابق الاسم مع الكومبو بوكس اريد عند ضغط امر الحفظ يطابق حقل كميه الصرف مع اسم الماده المختاره من الكومبو بوكس الموجودات في جدول الرصيد التراكمي وينقص من رصيد الماده المختاره واذا كانت الكميه اكبر من الرصيد يعترض ويلغي عمليه الصرف ساعدوني يرحمكم الله مشروعي واقف عليها يعني عندي جدول فيه اسم ماده عباره عن كومبو بوكس ياخذ بياناته من جدول الرصيد وتكست بوكس اسمه الكميه اريد عن ضغط على امر حفظ يذهب الى جدول الرصيد الي فيه حقلين اسم الماده ورصيدها ويدقق اذا كانت الكميه المصروفه اكثر من الموجود يعترض واذا كانت اقل ينقص الكميه للماده المختاره من الكومبو بوكس

تم حل المشكله on error resum next

اخوان عندي فورم صرف على نوع نوع معين من تكست بوكس يطابق الاسم في جدول الرصيد بحيث عن الحفظ يتم تنقيص حقل الكميه من تكست الكميه ويجب ان تكون قيمه حقل الكميه اكبر من قيمه حقل الجدول وطيا الكود المستخدم ولاكن لايعمل rs as record-setting, dB, database Set dB = currently Set rsedit=currently.openrecordset("feras") Rsedit.movefirst Do until not refit.eof Refit.movefirst Do until refit.eof If rsedite![wepname] = me.[dre1] and .[dre4]) then val(rsedit![AMO]) > VAL(ME Rsedit.edit Rsedit!amo= val(rsedit!amo)- Val (me.dre4) Rsedit.update Docudrama.save Do my.gotorecord , add new End if Rsedit.movenext Loop Loop Set refit = nothing نظام الاسلحة.zip

ما في حدا بيساعدني

شباب ممكم عمل واجه دخول وواجه صرف للقاعده المرفقه بشرط اذا كانت قيمه الرصيد في الاستعلام اقل من صفر تضهر رساله بعدم الصرف واكون ممنون منكم New Microsoft Access Database.rar

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

السلام عليكم اخوتي ارجو المساعدة بعمل جدول رصيد لعدد الكارتون بحيث ينقص الادخال من الاخراج معتمد على رقم الكارتون باول حقل واسم المودل علما ان الكارتون يحتوي على 3 انواع او اكثر من الموديلات وبا نسخه للتعديل عليها New Microsoft Access Database.rar