Change button's click. Instead of

Thisform.pageframe1.activepage = 2
thisform.pageframe1.page2.Refresh()
thisform.pageframe1.page2.cbadd1.Click()

put thisform.AddRecord()

In AddRecord put

if not thisform.pageframe.ActivePage == 2
   thisform.pageframe.ActivePage = 2
   thisform.pageframe.page2.refresh()
endif

* then the rest of Add code.

Change code in cbAdd1.Click to thisform.AddRecord()


>this is the code to call
>pageframe:
>tabs=.F.
>button in page1
>specialeffect=2 hot tracking
>themes=.T.
>picture='new.bmp'
>**this button calls
>Thisform.pageframe1.activepage = 2
>thisform.pageframe1.page2.Refresh()
>thisform.pageframe1.page2.cbadd1.Click()
>
>*page2.cbadd1.clic():
>thisform.adirec()
>
>*thisform.adirec()
>do form newcode to val1
>if !empty(val1)
>insert into regis (code) values(val1)
>else
>return .F.
>endif
>thisform.pageframe1.page2.txtname.setfocus()
>return .T.