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

انا عندي فورم في اربعة ازرار First - Next - Last - Previous

كما في الصوره




انا وضعت الاكواد التالية في كل واحد في when button pressed trigger

First 
BEGIN
FIRST_RECORD;
END;

Next 
BEGIN
NEXT_RECORD;
END;

Last
BEGIN
LAST_RECORD;
END;

Previous
BEGIN
PREVIOUS_RECORD;
END;

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

اذا كنت في ال First Record يكون ال Previous & First button diabled عشان اليوزر مايقدر يضغط عليهم ويطلعله error

واذا كنت في ال Last Record يكون ال Next & Last button diabled عشان اليوزر مايقدر يضغط عليهم ويطلعله error

اتمنى ان يكون سؤالي واضح ؟؟؟؟

بانتظار مساعدتكم

اختكم
lune

السلام عليكم

بامكانك استعمال الكودالتالي في نريجر

WHEN-NEW-RECORD-INSTANCE

IF :SYSTEM.CURSOR_RECORD ='1' THEN
SET_ITEM_PROPERTY('CONTROL.NEXT',ENABLED,PROPERTY_ON);
SET_ITEM_PROPERTY('CONTROL.PREV',ENABLED,PROPERTY_OFF);
SET_ITEM_PROPERTY('CONTROL.FIRST',ENABLED,PROPERTY_OFF);
SET_ITEM_PROPERTY('CONTROL.LAST',ENABLED,PROPERTY_ON);
ELSIF :SYSTEM.LAST_RECORD = 'TRUE' THEN
SET_ITEM_PROPERTY('CONTROL.NEXT',ENABLED,PROPERTY_OFF);
SET_ITEM_PROPERTY('CONTROL.PREV',ENABLED,PROPERTY_ON);
SET_ITEM_PROPERTY('CONTROL.FIRST',ENABLED,PROPERTY_ON);
SET_ITEM_PROPERTY('CONTROL.LAST',ENABLED,PROPERTY_OFF);
ELSE
SET_ITEM_PROPERTY('CONTROL.NEXT',ENABLED,PROPERTY_ON);
SET_ITEM_PROPERTY('CONTROL.PREV',ENABLED,PROPERTY_ON);
SET_ITEM_PROPERTY('CONTROL.FIRST',ENABLED,PROPERTY_ON);
SET_ITEM_PROPERTY('CONTROL.LAST',ENABLED,PROPERTY_ON);
END IF;

moody_4u


شكرا ع الرد اولا

وشكرا ع الكود وانشاء الله بجربه وبرد عليك



اختك
lune

moody_4u

الكـــــــــــــود تمام 100%


شكــــــــــــــــــــــــراااااااااا



------
lune

العفو احنا في الخدمة

ممكن كما طريق اخري هى عمل Triggerعلى مستوي form اسمة on_error تكتب رقم error وبعدة null
وعندها لا يطهر الرسالة

هل هذا الكود ينفع في 6i أنا بستخدمه ما زبط معي
أرجو الافادة ولكم الشكر