Delete Multiple record in database block

Question

hi to all,
i have one button. what i want if i press this button all the records that i selected from detail blocks will be deleted.
i used this code but i always received an error : FRM-40102: record must be entered or deleted first.
DECLARE
Num_Total_Records NUMBER;
Num_Loop_I NUMBER;
BEGIN
GO_BLOCK(<BLOCK_NAME>);
FIRST_RECORD;
LAST_RECORD;
Num_Total_Records := TO_NUMBER(NAME_IN('SYSTEM.CURSOR_RECORD'));
FIRST_RECORD;
FOR Num_Loop_I IN 1..Num_Total_Records LOOP
IF <CHECKBOX> = 1 THEN
if <condition> then
else
if <condition> then
else
end if
--condition is satisfied...deleted the selected record
delete_record;
commit;
end if
END IF;
NEXT_RECORD;
END LOOP;
<................................................>
END;

Answer 1

baguhan,
by this if u have selected all records, some records will won;t delete.
because as poelger said, delete_record will already skip 1 record.
so instead of the code u gave , its beter to all else portion in the condition and in the else portion gave the next record.
this is the your code modified
DECLARE
Num_Total_Records NUMBER;
Num_Loop_I NUMBER;
BEGIN
GO_BLOCK(<BLOCK_NAME>);
FIRST_RECORD;
LAST_RECORD;
Num_Total_Records := TO_NUMBER(NAME_IN('SYSTEM.CURSOR_RECORD'));
FIRST_RECORD;
FOR Num_Loop_I IN 1..Num_Total_Records LOOP
IF <CHECKBOX> = 1 THEN
--condition is satisfied...deleted the selected record
delete_record;
commit;
else
NEXT_RECORD;
END IF;
END LOOP;
<................................................>
END;
Regards,
Manu