>LPARAMETERS nKeyCode, nShiftAltCtrl >IF nShiftAltCtrl = 0 > IF nKeyCode = 13 .OR. nKeyCode = 9 > NODEFAULT > PRIVATE lcalias > lcalias=THISFORM.grid1.RECORDSOURCE > SELECT (lcalias) > PRIVATE thisno, totno > thisno=RECNO(lcalias) > totno = RECCOUNT(lcalias) > IF thisno < totno > SKIP > *THISFORM.grid1.refresh() > WITH THISFORM.grid1 > *** Calculate the maximum number of rows in the grid > lnMaxRows = INT( ( .HEIGHT - .HEADERHEIGHT - ; > IIF( INLIST( .SCROLLBARS, 1, 3 ),; > SYSMETRIC( 8 ), 0 ) ) / .ROWHEIGHT ) > IF .RELATIVEROW >= lnMaxRows > .DOSCROLL( 1 ) > ENDIF > .ACTIVATECELL( .RELATIVEROW + 1, .ACTIVECOLUMN ) > ENDWITH > THISFORM.grid1.column1.check1.SETFOCUS > ELSE && at last record go to next object > THISFORM.grid2.column1.check1.setfocus > ENDIF > ELSE > RETURN > ENDIF >ELSE > RETURN >ENDIF >Tracy,