This is my Form.Init Code

LOCAL oform1,oform1page1,oform1page2
oform1=THISFORMSET.lg1form1
oform1page1=oform1.bpage1frame1.page1
oform1page2=oform1.bpage1frame1.page2
SELECT ALLTRIM(userfname)+" "+ALLTRIM(userlname) AS username,usercode ;
FROM gcsharedpath+"usmain" ;
WHERE userstatus=2 AND usersalesperson=.T.;
INTO ARRAY arraysman ;
ORDER BY usmain.userfname,usmain.userlname
IF _TALLY>0
IF _TALLY=0
DIMENSION arraysman[1,2]
FOR lncounter1=1 TO 2
arraysman[1,lnCounter1]=""
ENDFOR
ELSE
DIMENSION arraysman[alen(arraysman,1)+1,2]
=AINS(arraysman,1)
FOR lncounter1=1 TO 2
arraysman[1,lnCounter1]=""
ENDFOR
ENDIF
IF !USED("tmpsman")
CREATE CURSOR tmpsman( username c(40), usercode N(4,0))
ENDIF
SELECT tmpsman
APPEND FROM ARRAY arraysman
RELEASE arraysman
SELECT countryname,countryabb,countryid,countrytime ;
FROM gcsharedpath+"COUNTRY" ;
ORDER BY country.countryname ;
INTO ARRAY arraycountry
IF _TALLY=0
DIMENSION arraycountry[1,4]
FOR lncounter1=1 TO 4
arraycountry[1,lnCounter1]=""
ENDFOR
ELSE
DIMENSION arraycountry[alen(arraycountry,1)+1,4]
=AINS(arraycountry,1)
FOR lncounter1=1 TO 4
arraycountry[1,lnCounter1]=""
ENDFOR
ENDIF
IF !USED("tmpcountry")
CREATE CURSOR tmpcountry( countryname c(50), countryabb c(2), countryid N(4), countrytime N(3,0))
ENDIF
SELECT tmpcountry
APPEND FROM ARRAY arraycountry
RELEASE arraycountry
SELECT clitypdesc,clitypid ;
FROM gcdatapath+"omclityp" ;
WHERE clitypactive=.T. ;
INTO ARRAY arrayclityp
IF _TALLY=0
DIMENSION arrayclityp[1,2]
FOR lncounter1=1 TO 2
arraycountry[1,lnCounter1]=""
ENDFOR
ELSE
DIMENSION arrayclityp[alen(arrayclityp,1)+1,2]
=AINS(arrayclityp,1)
FOR lncounter1=1 TO 2
arrayclityp[1,lnCounter1]=""
ENDFOR
ENDIF
IF !USED("tmpclityp")
CREATE CURSOR tmpclityp( clitypdesc c(50), clitypid c(10))
ENDIF
SELECT tmpclityp
APPEND FROM ARRAY arrayclityp
RELEASE arrayclityp
SELECT sourcedesc,sourceid ;
FROM gcsharedpath+"pusource" ;
WHERE sourceactive=.T. ;
INTO ARRAY arraysource
IF _TALLY=0
DIMENSION arraysource[1,2]
FOR lncounter1=1 TO 2
arraysource[1,lnCounter1]=""
ENDFOR
ELSE
DIMENSION arraysource[alen(arraysource,1)+1,2]
=AINS(arraysource,1)
FOR lncounter1=1 TO 2
arraysource[1,lnCounter1]=""
ENDFOR
ENDIF
IF !USED("tmpsource")
CREATE CURSOR tmpsource( supsoudesc c(50), supsouid c(10))
ENDIF
SELECT tmpsource
APPEND FROM ARRAY arraysource
RELEASE arraysource
SELECT supgendesc,supgenid ;
FROM gcdatapath+"omsupgen" ;
WHERE omsupgen.supgenactive=.T. ;
INTO ARRAY arraysupgen
IF _TALLY=0
DIMENSION arraysupgen[1,2]
FOR lncounter1=1 TO 2
arraysupgen[1,lnCounter1]=""
ENDFOR
ELSE
DIMENSION arraysupgen[alen(arraysupgen,1)+1,2]
=AINS(arraysupgen,1)
FOR lncounter1=1 TO 2
arraysupgen[1,lnCounter1]=""
ENDFOR
ENDIF
IF !USED("tmpsupgen")
CREATE CURSOR tmpsupgen( supgendesc c(50), supgenid c(10))
ENDIF
SELECT tmpsupgen
APPEND FROM ARRAY arraysupgen
RELEASE arraysupgen
IF !USED("tmpsupsou")
CREATE CURSOR tmpsupsou( supsoudesc c(50), supsouid c(10))
ENDIF
THISFORMSET.resetdefaults
ELSE
=THISFORMSET.lg1form1.msgbox1.showmessage(12)
RETURN .F.
IF TYPE("THISFORM.PARENT") = "O"
THISFORMSET.RELEASE
ELSE
THISFORM.RELEASE
ENDIF
ENDIF


>This behaviour may happen if you already set in Form.Init some custom form property to hold object reference before you issue RETURN .F. The fix is to reset all such properties to .NULL. and then fire RETURN .F.
>
>>No, I'M NOT USING THE NOSHOW CLAUSE. AND IF I GO TO THE PROJECT MANAGER AND RUN THE FORM DIRECTLY THE SAME THING HAPPENDS.
>>
>>>Are you using the NOSHOW clause in your DO FORM x call?
>>>
>>>
>>>>Is a modal form and plan to call with a do in a prg. I know that it's still in memory because if I choose the Window option in the menu, I see the name at the bottom part.
>>>>
>>>>>The form is still in memory? How did you call the form (DO FORM x, or CREATE('Form'), etc...) Is it modal or modeless?
>>>>>
>>>>>Mark
>>>>>
>>>>>
>>>>>>Thanks for your quikly answer. Return .F. works but the form is still in memory. I try thisform.release but doesn't work
>>>>>>
>>>>>>
>>>>>>
>>>>>>>Hello!
>>>>>>>Return a false from the Init event:
>>>>>>>RETURN .F.
>>>>>>>
>>>>>>>Mark
>>>>>>>
>>>>>>>>I want to know how to prevent to display a form that has a validation code in the init event. If the validation code fails, the form doesn't appear, otherwise goes thrue. I try nodefault and thisform.release but doesn't work.