<strong> *********************** * in the calling .prg * *********************** * create array of selected records nRetRec = RECNO() SELECT RECNO() FROM ( goApp.cCUserID + 'UPDAAPVMO1' ) WHERE MARKED INTO ARRAY aRecList IF _TALLY = 0 DIMENSION aRecList(1,1) aRecList(1,1) = nRetRec ENDIF GOTO nRetRec * create EDIT form oEUPDAAPVMO1 = CREATEOBJECT( "UPDAAPVMO1_Edit_Class", aRecList ) ***************************************************** * in the class definition for UPDAAPVMO1_Edit_Class * ***************************************************** *------------------------------------------------------------ PROCEDURE INIT LPARAMETERS aRecList * Parent class sets datasession environment settings ( dele, esca, talk, excl, etc. ) DODEFAULT() THIS.cOpAlias = goApp.cOpAlias * set keys IF ALEN( aRecList, 1 ) > 1 ------> ------> "aRecList is not an Array" ------> </strong>Thanks for any help!