Below is my code, and just below the asterisks is where it's failing and I
don't understand why.
Please help.
Thanks.
Lesley
Declare
v_Listid varchar2(20); --contains contactid user selects in list.
v_contactID number; --contains contacts ID Currently displayed
group_id RecordGroup; --will hold ID of record group I will create
group_name Varchar2(20); --name I will assign the record group
Query_OK Number;
Record_Number Number;
Begin
v_listid := :cocontacts.lst_cocontacts; --contains ContactID
From lst_Cocontact that cursor is on.
v_contactID := :CoContacts.ContactID;
--first create record group & assign name
Group_Name := 'Qry_Contact';
--make sure group doesn't already exist, if it doesn't, create it
otherwise delete it.
Group_ID := Find_Group(Group_Name);
IF ID_NULL(Group_ID) Then
Group_ID := Create_Group_From_Query('Qry_Contact',
'Select * From Vimich.CoContacts Where ContactID = ' || v_ListID);
else
delete_Group('Qry_Contact');
Group_ID := Create_Group_From_Query('Qry_Contact',
'Select * From Vimich.CoContacts Where ContactID = ' || v_ListID);
End if;
--make sure the query is populated without error
Query_OK := Populate_Group(Group_ID);
if Query_OK <> 0 then
RAISE FORM_TRIGGER_FAILURE;
message ('Error in When_List_Changed Event');
end if;
--assign the recordnumber. Must use the fields below where they match.
****THE FOLLOWING LINE IS WHERE IT FAILS**************
Record_Number := Get_Group_Record_Number('Qry_Contact.ContactID',
v_ListID);
--now Force the form to go to that record.
if Record_Number is not null then
Go_Record(Record_Number);
else
Message ('Unable to retrieve record number for this contact, try again');
end if;
end;
"Lesley" <les...@vimich.com> wrote in message
news:934u2...@enews4.newsguy.com...
"Eric Givler" <egi...@flash.net> wrote in message
news:IXt56.36889$bw.23...@news.flash.net...