SELECT fac_mas SET ORDER TO operator GO TOP . . . *** We are at the top, remember GO TOP command :-) thisform.cmdback.enabled = .F. thisform.cmdbeg.enabled = .F. IF (RECNO() == RECCOUNT()) *** That is just in case you have only one record in the tableWouldn't this also be true if the last physical record is the first indexed record? Better, I think, is something like
SKIP IF EOF() && only one record in table etc.>>Here is what I entered into the Init. Everything after my set order to statement just pertains to buttons being enabled or not to allow parsing. This SET ORDER TO operator did not seem to do anything. Did I not do it correctly? This table is in fact in the Data Environment. I went in there but am unsure on how to set an order in there.
>>ThisForm.DtKeyPress = DATETIME() >>ThisForm.dtMouseMove = DATETIME() >>SELECT fac_mas >>SET ORDER TO operator >>IF m.swid = " " >> thisform.txtcount.value = Recno() >> thisform.txttotal.value = Reccount() >> >> IF (recno() == 1) >> thisform.cmdback.enabled = .F. >> thisform.cmdbeg.enabled = .F. >> ENDIF >> >> IF (RECNO() == RECCOUNT()) >> thisform.cmdforward.enabled = .F. >> thisform.cmdend.enabled = .F. >> ENDIF >>ELSE >> thisform.txtcount.value = Recno() >> thisform.txtcount.ReadOnly = .T. >> thisform.txttotal.value = Reccount() >> >> thisform.cmdback.enabled = .F. >> thisform.cmdbeg.enabled = .F. >> thisform.cmdforward.enabled = .F. >> thisform.cmdend.enabled = .F. >> thisform.cmdfind.Enabled = .F. >>ENDIF >>IF m.movebottom = "YES" >> LOCATE FOR sw_id = newswid >> m.movebottom = "NO" >>ENDIF >>thisform.refresh >>>
>ThisForm.DtKeyPress = DATETIME() >ThisForm.dtMouseMove = DATETIME() >SELECT fac_mas >SET ORDER TO operator >GO TOP >thisform.txtcount.value = Recno() >thisform.txttotal.value = Reccount() > >IF m.swid = " " > *** We are at the top, remember GO TOP command :-) > thisform.cmdback.enabled = .F. > thisform.cmdbeg.enabled = .F. > IF (RECNO() == RECCOUNT()) > *** That is just in case you have only one record in the table > thisform.cmdforward.enabled = .F. > thisform.cmdend.enabled = .F. > ENDIF >ELSE > thisform.txtcount.ReadOnly = .T. > thisform.txttotal.value = Reccount() > thisform.cmdback.enabled = .F. > thisform.cmdbeg.enabled = .F. > thisform.cmdforward.enabled = .F. > thisform.cmdend.enabled = .F. > thisform.cmdfind.Enabled = .F. >ENDIF >IF m.movebottom = "YES" > LOCATE FOR sw_id = newswid > m.movebottom = "NO" >ENDIF >thisform.refresh >>
>SKIP IN fac_mas >IF EOF("fac_mas") > SKIP -1 IN fac_mas > *** disable all forward buttons here >ENDIF >>
>SKIP -1 IN fac_mas >IF BOF("fac_mas") > SKIP IN fac_mas > *** disable all backwards buttons here >ENDIF >>
>GO BOTTOM >*** disable all forward buttons here >>
>LOCATE >*** disable all backwards buttons here >>