Atleast on echeckbox should be checked

Question

Hi,
User should check atleast one checkbox before any processing can start. It should pop-up message
"Please select atleast one client".
I have tried adding ELSE with Message("Please select atleast one client".) but it falls in loop and keep showing messages instead of letting me select any client.
PROCEDURE proc_bo_process
IS
     v_client_cnt             NUMBER;
     v_return_val             NUMBER:= NULL;
     i_log_group_source_code  VARCHAR2(150) := UPPER('ON_DEMAND_PROCESSING/BO_RELEASE.SQL');
     lv_log_group_source_id   client_log_group_sources.log_group_source_id%TYPE
                              := cmn_log_pkg.get_group_source_id(i_log_group_source_code);
BEGIN
      SELECT count(*)
        INTO v_client_cnt
        FROM client_log_group_sources
       WHERE log_group_source_id = lv_log_group_source_id;
     IF v_client_cnt !=0 THEN
    Message('Another Back Order Process is running,Please exit');
    Message(' ',no_acknowledge);
    ELSE
      go_block('Client');
        first_record;
     LOOP
          IF :Client.Select_Client ; = 'Y' THEN
             INSERT INTO client_log_group_sources
             VALUES (:client.client,lv_log_group_source_id,user,sysdate);
        ELSE
             Message('Please select atleast one Client');
            Message(' ',no_acknowledge);
        END IF;
        EXIT WHEN :system.last_record = 'TRUE';
        next_record;
    END LOOP;
      first_record;
    COMMIT;
     IF form_failure or SQLCODE != 0 THEN
        Message('Error saving records: '||SQLERRM);
        Message(' ',no_acknowledge);
     END IF;
/* some logic*/
      IF v_return_val =0 THEN
    Message('Successful processing');
    Message(' ',no_acknowledge);
                 ELSE
    Message('Process failed with return code 2');
    END IF;
END IF;  
END proc_bo_process; Thanks
Sandy

Answer 1

Might be something like this
  bFound BOOLEAN:=FALSE;
BEGIN
    go_block('Client');
    first_record;
    LOOP
      IF :Client.Select_Client ; = 'Y' THEN
        INSERT INTO client_log_group_sources VALUES (:client.client,lv_log_group_source_id,user,sysdate);
        bFound:=TRUE;
      END IF;
      EXIT WHEN :system.last_record = 'TRUE';
      next_record;
    END LOOP;
    first_record;
    IF NOT bFound THEN
      Message('Please select atleast one Client');
      Message(' ',no_acknowledge);
    ELSE
      COMMIT;
    ....