code like

thisform.grid1.column1.text.keypress
***
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode = 27 && Escape
thisform.text4.setfocus()
ENDIF

thisform.grid1.column1.text.valid
****
if empt(accode)
messagebox("Something Required",0,"Alert !!!")
retu 0
endif

always showing the messagebox

warm regards,
mk.