السلام عليكم ورحمة الله وبركاته
السادة القائمين على نجاح هذا المنتدى الرائع ارجو الاستفسار عن جزء فى مشروعى وهو كالاتى لدى جدول يحتوى على اسعار منتج معين باربعة اسعار لكل منتج وقمنا بزيادة سعر المنتج بنسبة 5% ارجو ان اعرف كيف استطيع ادخال قيمة ال 5% فى tesxt box والضغط على زر من ثم يقوم بتعديل كل الاسعار فى الجدول بزيادة 5 % واليكم الكود الخاص بالبرنامج قمت بكتابة هذا الكود فى command1 وسياخذ نسبة الزيادة من text1 اسم الجدول هو tb1
Tb1.MoveFirst
Do Until Tb1.EOF
Tb1.AddNew
Tb1("Pr1") = Tb1("Pr1") * Val(Text1)
Tb1("Pr2") = Tb1("Pr2") * Val(Text1)
Tb1("Pr3") = Tb1("Pr3") * Val(Text1)
Tb1("Pr4") = Tb1("Pr4") * Val(Text1)
Tb1.Update
Loop
Exit Sub
ارجو معرفة هل الكود خطاء ام ماذا ينقصه
شكرا لكم جميعا
