Check Boxes in forms

[jammula]

Hi all,

Forms version 6i and database 8i
I have a situation that I have a Table name "EMP"

I need to do create a multilevel items and display 20 records per page

My layout is execute all records

Checkbox Empno, Empname, Sal, Hiredate and Scrollbar
1
2
3
4
5
6
Delete---Button

If user selects like checkboxes next to 2,3,5

when user press the Delete button those 3 records which are checked should be deleted from database based on Empno

any code is helpful

Thanks

[stecal]

You can use this code snippet to get an idea how to loop through records - this is from a form that assigns roles to users.

     -- Changing a role only
        IF (:user_acc.password IS NULL AND failed_validation = FALSE) THEN
           good_password := 0;  
        END IF;
        -- Check for at least one User Role assignment
        go_block( 'user_roles' ); 
    
        -- Loop thru records and make sure at least one is checked
        First_Record;
        LOOP
           IF (:user_roles.assigned = 'Y' ) THEN
              role_set := TRUE;
           END IF;
           EXIT when :system.last_record = 'TRUE';
           Next_Record;
        END LOOP;
    
        -- If all roles were deleted raise Alert
        IF (role_set = FALSE ) THEN
           RAISE no_role;
        END IF; 

        First_Record;  
        LOOP  -- Loop thru each role assignment
            -- If user CHECKS a Role --> box ON
            IF ( :user_roles.assigned = 'Y' and :user_roles.old_assigned = 'N') THEN
                
                forms_ddl( 'grant ' || :user_roles.role || ' to ' || :user_acc.user_acc );
                IF not Form_Success THEN
                  MESSAGE ( 'ERROR: GRANT ' || :user_roles.role || ' TO USER ' 
                          || :user_acc.user_acc || ' FAILED !!!' );
                  RAISE form_trigger_failure;
                END IF;
                 
             EXIT when :system.last_record = 'TRUE';
             Next_Record;

             -- If user UNCHECKS box
             ELSE
                IF ( :user_roles.assigned = 'N' and :user_roles.old_assigned = 'Y' ) THEN
                      
                   forms_ddl( 'revoke ' || :user_roles.role || ' from ' || :user_acc.user_acc );
                      IF not Form_Success THEN
                         MESSAGE ( 'ERROR: REVOKE ' || :user_roles.role || ' FROM USER ' 
                                    || :user_acc.user_acc || ' FAILED !!!' );
                         RAISE form_trigger_failure;
                      END IF;
                END IF; 
                EXIT when :system.last_record = 'TRUE';
                Next_Record;  
             END IF; 
         END LOOP;
         validate_all_blocks;
         change_default_license;
         go_item ( 'user_acc.user_acc' );
         IF (good_password > 0 OR failed_validation = TRUE OR role_set = FALSE) THEN
                MESSAGE ('Account for user ' || :user_acc.user_acc || ' was not modified.');
         ELSE
                MESSAGE ('Modified user ' || :user_acc.user_acc || ', transaction complete.');
         END IF;
             
             
  ELSE
     MESSAGE ( 'ERROR: USER ' || :user_acc.user_acc || ' DOES NOT EXIST !!!' );