LPARAMETERS nKeyCode, nShiftAltCtrl >if nkeycode=24 or nkeycode=9 or nkeycode=13 >select school1 > append blank > =this.parent.parent.refresh() >=This.Parent.Parent.Column1.setfocus() >endif >if nkeycode=5 >select school1 >if not bof() >skip -1 >endif >=This.Parent.Parent.Column1.setfocus() >endifBut in this form I want to save from the user to tuch in the keyboard and to use only with the mouse.
*Grid.click Insert into school1 (somefield) values (somevalue) this.Refresh this.Columns(1).Setfocus()You might want to check precisely where the user clicked (otherwise this code would run if the user has clicked a region after the last column too).