SKIP IF EOF() =messagebox("trying to go past end of file - resetting to last record") GO BOTT ENDIF ...set textbox values>thank you for reply
>>>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 >>>>>>