if LEN(ALLTRIM(thisform.text25.value)) >= 3 for i=1 to 3 cAlias = ICASE(i=1,'mstr2010',i=2,'mstr2001','mstr2011') text to cSQL noshow pretext 15 TEXTMERGE SELECT no,img1 ,EXPBDATE,SDISC,STYPE,ansdisc,expbno from <<cAlias>> WHERE atc(trim(thisform.text25.value) ,SDISC)>0 INTO cursor TAliascursor1 readwrite ENDTEXT &cSQL thisform.Grid2.RecordSource=" TAliascursor1" IF i = 1 AND _Tally # 0 thisform.Grid2.RecordSource="TAliascursor1" thisform.grid2.visible=.t. thisform.grid2.enabled=.t. thisform.edit2.visible=.t. EXIT ENDIF IF i= 2 AND _Tally # 0 MESSAGEBOX("Found !!") thisform.Grid2.RecordSource="TAliascursor1" thisform.grid2.visible=.t. thisform.grid2.enabled=.t. thisform.edit2.visible=.t. EXIT endif IF i= 3 AND _Tally # 0 MESSAGEBOX("Found !!") thisform.Grid2.RecordSource="TAliascursor1" thisform.grid2.visible=.t. thisform.grid2.enabled=.t. thisform.edit2.visible=.t. EXIT ELSE thisform.grid2.visible=.f. thisform.grid2.enabled=.f. thisform.edit2.visible=.f. * MESSAGEBOX("Not Found") ENDIF NEXT ENDIFthanks