We have placed code to copying @ID and @RECORD into MISC properties before saving the record

Create a Menu say Repeat Previous and give it keystroke

Add similar code to below

DECLARE FUNCTION SEND_EVENT

OBJ=GET_PROPERTY('SYSTEM','FOCUS')

POS=GET_PROPERTY(OBJ,'POS')

IF POS ] 0 THEN

LAST_RECORD=.BUTTON_CLOSE-]MISC

CONV=GET_PROPERTY(OBJ,'CONV')

TYPE=GET_PROPERTY(OBJ,'TYPE')

IF TYPE=EDITTABLE' THEN

		C=GET_PROPERTY(OBJ,'SELPOS')

		COL=C

		ROW=C

		CONV=CONV

		POS=POS

		VALUE=LAST_RECORD			

	END ELSE

		VALUE=LAST_RECORD

	END

VALUE=OCONV(VALUE,CONV)		

S=SET_PROPERTY(OBJ,'TEXT',VALUE)

END ELSE

	ID=.DBEDITLINE_ID-]MISC

	IF ID # '' THEN

			.DBEDITLINE_ID-]TEXT=ID

			S=SEND_EVENT(@WINDOW,'READ')

		END

END

View this thread on the Works forum...