فراس محي

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

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

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

السلام عليكم 

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

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