Hi all

I have put 2 command buttons on a pageframe, so that the user can click on it to go to the next or previous page

NextButton.Click()

DODEFAULT()

THISFORM.pgf.ACTIVEPAGE = IIF(THISFORM.pgf.ACTIVEPAGE = THISFORM.pgf.PAGECOUNT, ;
	1, THISFORM.pgf.ACTIVEPAGE + 1)

THISFORM.PrevNextCaption()

PrevButton.Click()

DODEFAULT()

THISFORM.pgf.ACTIVEPAGE = IIF(THISFORM.pgf.ACTIVEPAGE = 1, ;
	THISFORM.pgf.PAGECOUNT, THISFORM.pgf.ACTIVEPAGE - 1)

THISFORM.PrevNextCaption()

Form.PrevNextCaption()

IF TYPE("THISFORM.cmdPrevious.CAPTION") # "C"
	RETURN
ENDIF


THISFORM.cmdPrevious.CAPTION = "<< " + THISFORM.pgf.PAGES(IIF(THISFORM.pgf.ACTIVEPAGE = ;
	1, THISFORM.pgf.PAGECOUNT, THISFORM.pgf.ACTIVEPAGE - 1)).CAPTION

	
THISFORM.cmdNext.CAPTION     = THISFORM.pgf.PAGES(IIF(THISFORM.pgf.ACTIVEPAGE = ;
	THISFORM.pgf.PAGECOUNT, 1, THISFORM.pgf.ACTIVEPAGE + 1)).CAPTION + " >>"

This works okay till the next or the previous page is disabled for whatever reasons.

What kind of logic can be utilized for skipping such disabled pages?

Please advise.