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

اخواني ماهو الكود الخاص المفترض كتابته تحت check box لتتقوم بوضع علامة صح على جميع السجلات.

بمعنى آخر
عندي فورم layout الخاص فيه tabular وفيه عمود نوعه check box اريد وضع item يقوم بعمل check على جميع السجلات مثل select all
فماهو الكود..؟

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

يمكنك وضع هذا الكود فى Button

Begin
Go_Block('Block_Name');
First_Record;
Loop
Chk_Item = 1;
Exit When :System.Last_Record = 'TRUE';
Next_Record;
End Loop;
End;

ازيك ياباشا

انا عملت الفورمة دى عشان خاطر عيونك

واى طلب احنا فى الخدمة

بص كدة

انا عامل راديو بوتون

واحد منهم هيخليك تعمل شيك على كل الريكورد

والتانى هيشيل الشيك من على كل الريكورد

واى استفسار احنا فى الخدمة

واللنك اهوة

http://www.4shared.com/file/7853274/93e125ea/check.html

متنساش انا عامل الفورمة دى على يوزر
scott

تم تعديل 24 ديسمبر 200619 سنة بواسطة mw_wageeh

شكرا للحبايب المتجاوبين..

وجاري تجربة كل المثالين ............

بعد التجربة إتضح التالي:

بالنسبة للاخ Moh_Ora الكود صحيح لكن مايعمل تشييك للكود الأخير بسبب
Exit When :System.Last_Record = 'TRUE
يعني لو عندي ثلاث سجلات راح يشيك على اثنين والاخير مايشيك عليه..!!

بالنسبة للاخ mw_wageeh برضوه الكود صحيح لكن هناك مشكله وهي اضافة سجل جديد فارغ بسبب
Exit When :System.record_status= 'new
يعني لو عندي ثلاث سجلات راح يشيك عليها كلها ويضيف لي سجل جديد فارغ وهذا شيء بالنسبة للفورم اللي أنا عاملها مايصير لانه بس المفترض من اللي يعمل على الفورم هذي بس يعمل تشييك فقط على السجلات بدون اضافة..

فياليت لو يكون هنالك حل وسط بينكم اما Moh_Ora يزيد لنا تشييك أو mw_wageeh ينقص لي سجل واحد لان الفورم لاتسمح باضافة سجل جديد ولا حذف سجل

** عملت حل بس أنا متأكد من انه ماهو صحيح 100% بس يؤدي الغرض**
وهو بالنسبة لكود الأخ "وجيه" في نهاية begin وضعت delete_record وحل مشكلة الزيادة بس قمت بتعديل حالة البلوك لكي يسمح باضة سجل وحذفه وأنا أريد فقط التعديل على البلوك بدون إضافة أو حذف.. فهل يوجد حالة لـ system: تحل لي هذه الفكرة..؟

وعذرا على الاطالة..

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

يمكنك وضع هذا الكود فى Button

Begin
Go_Block('Block_Name');
First_Record;
Loop
Chk_Item = 1;
Exit When :System.Last_Record = 'TRUE';
Next_Record;
End Loop;
End;

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

وذلك لان

Chk_Item = 1;

قبل

Exit When :System.Last_Record = 'TRUE';

الكود النهائي

begin

go_block('xx');
if :select_all = 1 then
first_record;
loop
:check_item = 1;
exit when
:system.last_record = 'TRUE';
next_record;
end loop;
else
first_record;
loop
:check_item = 2;
exit when
:system.last_record = 'TRUE';
next_record;
end loop;
end if;
end;

الكود تحت checkbox_item

WHEN_CHEKBOX_CHANGEED

وشكرا للجميع

تم تعديل 25 ديسمبر 200619 سنة بواسطة Amateur