hi,
this is mycode at the page procedure lostfocus
thisform.pageframe1.page15.text1.value and thisform.pageframe1.page15.text1.value&&type is date.
i put those textboxes as it is nothing inside.
i get space when i run myform,but befor i can see at text1 and text2.. / / .

 DO CASE 
   CASE NOT BETWEEN(thisform.pageframe1.page15.text3.value,1,2)
     =MESSAGEBOX("ÇÎÊíÇÑ ÎÇØÆ")
   
     thisform.Pageframe1.Pages(15).text3.SetFocus()
   NODEFAULT   
   OTHERWISE 
      thisform.Pageframe1.ActivePage = 14
      thisform.Pageframe1.Page14.Text1.SetFocus()
ENDCASE 

thanks
m.qasem