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 Go to next message
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 Go to previous message
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

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:
  


Current Time: Tue Dec 06 00:19:24 CST 2016

Total time taken to generate the page: 0.14060 seconds