>SKIP >IF EOF() > =messagebox("trying to go past end of file - resetting to last record") > GO BOTT >ENDIF >...set textbox values>
>>>>SELECT; >>>> TAlias1.time1,; >>>> TAlias1.date1,; >>>> TAlias1.roomno,; >>>> TAlias1.place1,; >>>> TAlias1.empno,; >>>> TAlias2.mobile,; >>>> TAlias2.tel,; >>>> TAlias2.empname,; >>>> TAlias1.discerror,; >>>> TAlias1.sno; >>>> FROM trans1 TAlias1, emp1 TAlias2 ; >>>> WHERE TAlias1.empno = TAlias2.empno; >>>> INTO CURSOR crsMyCursor READWRITE >>>> SELECT crsMyCursor >>>> >>>> IF !EOF()&&& >>>> skip >>>> >>>> THISFORM.TEXT3.Value=crsMyCursor.empname >>>> THISFORM.TEXT1.Value=crsMyCursor.SNO >>>> THISFORM.TEXT2.Value=crsMyCursor.EMPNO >>>> THISFORM.TEXT10.Value=crsMyCursor.discerror >>>> THISFORM.TEXT13.Value=crsMyCursor.time1 >>>> THISFORM.TEXT12.Value=crsMyCursor.date1 >>>> THISFORM.TEXT16.Value=crsMyCursor.roomno >>>> THISFORM.TEXT15.Value=crsMyCursor.place1 >>>>ELSE >>>> MESSAGEBOX("End Off File") >>>>endif >>>>>>>>