اين الخطأ فى كود تحويل الاشارة من سالب الى موجب والعكس

[abouelhassan]

السلام عليكم اخواتى الاساتذة

قمت بالاطلاع على الكثير من المواضيع بالمنتدى ورأيت الافكار وحاولت التنفيذ

صنعت مفتاح وفى حدث كليك وضعت الكود

 

Private Sub Command104_Click()
iAmount = -1 * iAmount
End Sub

ولكن عند التنفيذ قام بالتنفيذ على اول سجل فقط ولم ينفذ على باقى السجلات

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

وفى حاجة كمان عندما نزلت بالماوس واخترت الرقم التالى وضغطت الزر نفذ ايضا

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

بارك الله فيكم

 

[محمد أبوعبدالله]

وعليكم السلام ورحمة الله وبركاته

يمكنك استخدام استعلام تحديث ككا البصورة الموضحة

ملاحظة : وضعت علامة اكبر من صفر حتى ينفذ العمليات على الارقام الموجبة فقط وتجاهل ما هو سالب في الاصل

تحياتي

 

[abouelhassan]

زادك الله من فضله اخى استاذ محمد أبوعبدالله

حفظك المولى اتمنى مساعدتى فى الاستعلام حاولت التنفيذ وفشلت

الفورم المراد تنفيذ عليه اسمةfrmserch هو فورم للتعديل 

بارك الله فيك وبك

 

DATA14.mdb

[محمد أبوعبدالله]

تفضل اخي الكريم

    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE tbl_Items SET tbl_Items.iAmount = [iAmount]*-1 WHERE (((tbl_Items.iAmount)>0));"
    DoCmd.SetWarnings True
    MsgBox "تم تحويل جميع الارقام الموجبة الى سالبة", vbInformation

DATA14.rar

تحياتي

[abouelhassan]

اتقدم اليك بالشكر اخى استاذ محمد أبوعبدالله

بس الكود بيحول كل الارقام الى سالب

اريد عندما اكتب فى خانة بحث بالرقم مثلا 1

سيظهر بيانات الفاتورة1 اريد عند الضغط على الزر هذه الارقام فقط ما يتم تغيرها وليس كل الارقام اخى

الفكرة انى ساعات ادخل ارقام موجبة وهى لابد ان تكون سالبة فاقوم باستدعاء البيانات فى هذا الفورم وافضل اضيف

باليد علامة سالب امام كل رقم

والعكس ساعات ادخل ارقام بالسالب وهى تكون بالموجب فبكتب رقم الفاتورة واستدعى الفاتورة وافضل اغير العلامة لهذه الارقام

ما احتاجه اخى فى الله تنفيذ هذا اوتو

اكتب الرقم للفاتورة واضغط تبديل الاشارة للارقام المعروضة فقط اذا كانت+ تتحول الى - والعكس

زادك الله من فضله وكرمه

اخيك باحترام

[محمد أبوعبدالله]

تفضل اخي الكريم

تم اضافة معيار رقم الفاتورة

forms!frm_search!txtsearch

ليصبح الكود كاملاً كالتالي

    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE tbl_Items SET tbl_Items.iAmount = [iAmount]*-1 WHERE (((tbl_Items.iAmount)>0) AND ((tbl_Items.iBill_Number)=[forms]![frm_search]![txtsearch]));"
    DoCmd.SetWarnings True
    MsgBox "تم تحويل جميع الارقام الموجبة الى سالبة", vbInformation

DATA14.rar

تحياتي

[abouelhassan]

تسلم ايدك يارب استاذ محمد أبوعبدالله ربنا يرضى عنك اللهم امين يارب 

زادك الله علما وخلقا ومالاوانجالا اللهم امين يارب

اشكرك وتقبل احترامى وتقديرى اخيك

[محمد أبوعبدالله]

بالتوفيق اخي الكريم

وبارك الله فيك

تحياتي