>DO CASE > CASE NOT BETWEEN(thisform.pageframe1.page15.text3.value,1,2) > =MESSAGEBOX("rong choises") > thisform.Pageframe1.ActivePage = 15 > thisform.pageframe1.page15.text3.SetFocus &&& > > OTHERWISE > thisform.Pageframe1.ActivePage = 14 > thisform.Pageframe1.Page14.Text1.SetFocus() >ENDCASE >>
thisform.Pageframe1.ActivePage = 15try using
thisform.Pageframe1.Pages(15).SetFocus()HTH
Make solutions, not programs!