Before Delete_record I want to check block changes

Question

I want to check if the user made any changes before deleting the record how can I ?
when you update one record and then press delete record it will be deleted directly i want to check before delete if the user change the record data i should give message like ... You want to update or delete your record

Answer 1

Hi!
You have to check each item for changes.
But you do not need to go to the item, just check the database value like:
declare
l_item varchar2(30) := get_block_property ( 'YOUR_BLOCK', first_item );
begin
loop
  if
    get_item_property ( 'YOUR_BLOCK.' || l_item, item_type ) = 'BUTTON'
  then
    null;
  elsif
    get_item_property ( 'YOUR_BLOCK.' || l_item, database_value ) != name_in ( 'YOUR_BLOCK.' || l_item ) OR
     ( get_item_property ( 'YOUR_BLOCK.' || l_item, database_value ) is null AND name_in ( 'YOUR_BLOCK.' || l_item ) is not null ) OR
     ( get_item_property ( 'YOUR_BLOCK.' || l_item, database_value ) is not null AND name_in ( 'YOUR_BLOCK.' || l_item ) is null )
  then
    message ( 'Record is changed. Do you want to to delete or ...' );
    your_code ...
  end if;
  exit when l_item = get_block_property ( 'YOUR_BLOCK', last_item );
  l_item := get_item_property ( 'YOUR_BLOCK.' || l_item, nextitem );
end loop;
exception
when others then message ( l_item || ': ' || nvl ( error_text, dbms_error_text ) );
raise;
end;Regards