Passing parameters between forms

From: Szymon Bogacz <shymonb_at_poczta.onet.pl>
Date: Fri, 27 Aug 1999 10:15:00 GMT
Message-ID: <Eytx3.3662$ua1.47852@news.tpnet.pl>

I know that this problem was thousands times on the news but I looked at the on-line help, did everything as they wrote and it doesn't seem to work. I have to pass params from one form to another.

So in calling form I do this:

declare
 param_id paramlist;
begin

    param_id:=get_parameter_list('param_slownik');     if id_null(param_id) then
   param_id:=create_parameter_list('param_slownik');    message('Paramlist created', ACKNOWLEDGE);     end if;

    if id_null(param_id) then

        message('Error creating parameter list param_slownik', ACKNOWLEDGE);
        raise Form_Trigger_Failure;
    else
        add_parameter(param_id, 'DZ', TEXT_PARAMETER, 'TEST1');
        add_parameter(param_id, 'K', TEXT_PARAMETER, 'TEST2');
        call_form('d:\data\proj\F_SLOWNIK', NO_HIDE, NO_REPLACE, QUERY_ONLY,
SHARE_LIBRARY_DATA, param_id);
        destroy_parameter_list(param_id);

    end if;
end;

And in called form I do that:

declare

    param_id paramlist;
    paramtype number;
    p_dz varchar2 (255);
    cursor c1 (param_dz varchar2) is

        select tresc from bis.slownik where dziedzina=param_dz; begin

    param_id:=get_parameter_list('param_slownik');     if id_null(param_id) then

        message('Error getting paramlist');     else

        get_parameter_attr(param_id, 'DZ', paramtype, p_dz);
        message(p_dz, NO_ACKNOWLEDGE);

    end if;
end;

And I'm getting a message 'Error getting paramlist'. So my question is why the paramlist couldn't be retrieved?
What am I doing wrong? Of course in both forms I've got params DZ and K defined.

I'm using Developer Form Builder with Forms 6.0

Best regards,
and thanks for quick response.

Shymon Received on Fri Aug 27 1999 - 05:15:00 CDT