زياده وتنقيص الرصيد

[فراس محي]

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

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

[فراس محي]

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

[Eng.Qassim]

اخي العزيز..كيف الواحد يساعدك وانت واضع باسوورد؟