cAlias = Thisform.DataEnvironment.InitialSelectedAlias && This is generic code in this case it is set to "Sore" Select (cAlias) WITH ThisForm.pageframe1.page2 *IF EMPTY(.text1.value) AND EMPTY(.edit3.value)&¬ work *IF EMPTY(.text1.value) AND EMPTY(.edit3.text) )&¬ work * IF EMPTY(.text1.value) AND EMPTY(alltrim(.edit3.text)))&¬ work *if ( empty(alltrim(nvl(.text1.value, ''),1,CHR(13),CHR(10),CHR(9))) and ; )&¬ work empty(alltrim(nvl(.edit3.value, ''),1,CHR(13),CHR(10),CHR(9))) ) IF EMPTY(.text1.value) AND (isnull(.edit3.value) OR EMPTY(.edit3.value)) )&¬ work .Grid1.visible=.f. .edit1.visible=.f. .edit2.visible=.f. ELSE WITH .Grid1 .visible=.t. replace mark1 WITH 1 FOR sno =(thisform.pageframe1.page2.text1.value) replace disc1 WITH thisform.pageframe1.page2.edit1.value FOR sno =(thisform.pageframe1.page2.text1.value) replace solveerror WITH thisform.pageframe1.page2.edit2.value FOR sno =(thisform.pageframe1.page2.text1.value) replace endat WITH DATE() FOR sno =(thisform.pageframe1.page2.text1.value) REPLACE TIME2 WITH TIME() FOR sno =(thisform.pageframe1.page2.text1.value) REPLACE emprem WITH thisform.pageframe1.page2.edit3.value FOR sno =(thisform.pageframe1.page2.text1.value)thanks