OraFAQ Forum: Forms » navigation in tabular form must stop at last record

Home » Developer & Programmer » Forms » navigation in tabular form must stop at last record (

) 1 Vote

Show: Today's Messages :: Polls :: Message Navigator
E-mail to friend

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

Report message to a moderator

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..

Code: [Select all] [Show/ hide]

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

Previous Topic:	how to extract the time value from date field and store the same in another date field?
Next Topic:	Developer 6i forms

Goto Forum:

-=] Back to Top [=-

[ Syndicate this forum (XML) ] [

]

Current Time: Sun Mar 09 18:08:42 CDT 2025