Home » Developer & Programmer » Forms » navigation in tabular form must stop at last record
( ) 1 Vote
navigation in tabular form must stop at last record [message #189906] |
Mon, 28 August 2006 07:33  |
kamar_19
Messages: 52 Registered: June 2005 Location: pakistan
|
Member |
|
|
aoa,
i m using oracle forms 6i. i have a tabular form n when i used down key for next record,it should stop at the last record, but it didnt.it continues its navigation to the blank records.
plz give me solution.
regards
qamar
|
|
|
Re: navigation in tabular form must stop at last record [message #190000 is a reply to message #189906] |
Tue, 29 August 2006 00:24  |
sameer_am2002
Messages: 129 Registered: September 2002
|
Senior Member |
|
|
This is scroll control procedure you can tailor it acc. to your toolbar buttons...Call this procedure on when-new-record-instance
of the block where you want it to happen..
PROCEDURE Proc_Scroll_Control
IS
BEGIN
IF Name_In(':system.last_record') = 'TRUE'
AND Name_In(':system.cursor_record') = '1' THEN
Set_Item_Property('toolbar_blk.scroll_up',Icon_Name,'PRVREC_DISABLE');
Set_Item_Property('toolbar_blk.up',Icon_Name,'PRVBLK_DISABLE');
Set_Item_Property('toolbar_blk.DOWN',Icon_Name,'NXTBLK_DISABLE');
Set_Item_Property('toolbar_blk.scroll_down',Icon_Name,'NXTREC_DISABLE');
Set_Item_Property('toolbar_blk.SCROLL_UP',Enabled,Property_Off);
Set_Item_Property('toolbar_blk.UP',Enabled,Property_Off);
Set_Item_Property('toolbar_blk.DOWN',Enabled,Property_Off);
Set_Item_Property('toolbar_blk.SCROLL_DOWN',Enabled,Property_Off);
ELSIF Name_In(':system.last_record') = 'TRUE' THEN
Set_Item_Property('toolbar_blk.scroll_up',Icon_Name,'PRVREC');
Set_Item_Property('toolbar_blk.up',Icon_Name,'PRVBLK');
Set_Item_Property('toolbar_blk.DOWN',Icon_Name,'NXTBLK_DISABLE');
Set_Item_Property('toolbar_blk.scroll_down',Icon_Name,'NXTREC_DISABLE');
Set_Item_Property('toolbar_blk.SCROLL_UP',Enabled,Property_On);
Set_Item_Property('toolbar_blk.UP',Enabled,Property_On);
Set_Item_Property('toolbar_blk.DOWN',Enabled,Property_Off);
Set_Item_Property('toolbar_blk.SCROLL_DOWN',Enabled,Property_Off);
ELSIF Name_In(':system.cursor_record') = '1' THEN
Set_Item_Property('toolbar_blk.scroll_up',Icon_Name,'PRVREC_DISABLE');
Set_Item_Property('toolbar_blk.up',Icon_Name,'PRVBLK_DISABLE');
Set_Item_Property('toolbar_blk.DOWN',Icon_Name,'NXTBLK');
Set_Item_Property('toolbar_blk.scroll_down',Icon_Name,'NXTREC');
Set_Item_Property('toolbar_blk.SCROLL_UP',Enabled,Property_Off);
Set_Item_Property('toolbar_blk.UP',Enabled,Property_Off);
Set_Item_Property('toolbar_blk.DOWN',Enabled,Property_On);
Set_Item_Property('toolbar_blk.SCROLL_DOWN',Enabled,Property_On);
ELSE
Set_Item_Property('toolbar_blk.scroll_up',Icon_Name,'PRVREC');
Set_Item_Property('toolbar_blk.up',Icon_Name,'PRVBLK');
Set_Item_Property('toolbar_blk.DOWN',Icon_Name,'NXTBLK');
Set_Item_Property('toolbar_blk.scroll_down',Icon_Name,'NXTREC');
Set_Item_Property('toolbar_blk.SCROLL_UP',Enabled,Property_On);
Set_Item_Property('toolbar_blk.UP',Enabled,Property_On);
Set_Item_Property('toolbar_blk.DOWN',Enabled,Property_On);
Set_Item_Property('toolbar_blk.SCROLL_DOWN',Enabled,Property_On);
END IF;
END Proc_Scroll_Control;
[Updated on: Fri, 08 September 2006 00:16] by Moderator Report message to a moderator
|
|
|
Goto Forum:
Current Time: Sun Mar 09 18:08:42 CDT 2025
|