Error frm-40735 ora-01422

Question

Hi,
I have two tables:
dept(
dept_name VARCHAR2(10),
dept_info VARCHAR2(10),
CONSTRAINT dept_pk PRIMARY KEY (dept_name)
location(
loc_name VARHCHAR2(10),
loc_info VARCHAR2(10),
dept_name VARCHAR2(10),
CONSTRAINT loc_pk PRIMARY KEY (loc_name),
CONSTRAINT loc_fk FOREIGN KEY (dept_name)
REFERENCES dept (dept_name)
dept has the values ('dname1', 'dinfo1'), ('dname2', 'dinfo2'), ('dname3', 'dinfo3')
location has the values ('locname1', 'dname1', 'linfo1'), ('locname2', 'dname2', 'linfo2'), ('locname3', 'dname2', 'linfo3'), ('locname4', 'dname3', 'linfo4'), ('locname5', 'dname3', 'linfo5'),
I have a data block based on the location table. I also have a command button with the WHEN-BUTTON-PRESSED trigger:
BEGIN
SELECT loc_name, loc_info
INTO :DATABLOCK.LOC_NAME, :DATABLOCK.LOC_INFO
FROM location
WHERE dept_name = :DATABLOCK.DEPT_NAME;
END;
If I try to do a search for a dept_name that has only one value in location, the Form will work properly and retreive that row. However, if I do a search for a dept_name that has two or more values in the table, I get the FRM-40735 ORA-01422 ERROR. I can tell that the Form will not allow me to retreive more that one row at a time, but what is a way that I can retreive more than one row at a time? I have set the datablock to Tabular and display 10 records, so it could retrieve the right amount of rows. Please help.

Answer 1

I have a data block based on the location table.So do you want to show all the locations in that block which match the given DEPT_NAME ?
If your block is based on the location-table you would just set the WHERE-condition on that block and do a requery, there is no cursor needed for that, so try the following code in your WHEN-.BUTTON-PRESSED-trigger.
SET_BLOCK_PROPERTY('LOCATION', ONETIME_WHERE, 'dept_name=' || DATABLOCK.DEPT_NAME);
EXECUTE_QUERY;If you have to use a select to do something other with the result than populating the block, then for a select returning more than one row, you have to use a cursor, something like:
DECLARE
  CURSOR crDept IS
    SELECT loc_name, loc_info
      FROM location
    WHERE dept_name = :DATABLOCK.DEPT_NAME;
BEGIN
  FOR rec IN crDept LOOP
    IF :SYSTEM.RECORD_STATUS!='NEW' THEN
      CREATE_RECORD;
    END IF;
    :DATABLOCK.LOC_NAME:=rec.LOC_NAME;
    :DATABLOCK.LOC_INFO:=LOC_INFO;
  END LOOP;
END;