>>>>>>>>>>>>>>>
You can automate the records adding with this code in last column textbox.KeyPress():

LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode = 13 && Enter
APPEND BLANK IN (this.parent.parent.RecordSource)
keyboard '{DNARROW}'
this.parent.parent.column1.SetFocus()
ENDIF
>>>>>>>>>>>>>
After I replied I thought I should figure out the ENTER thing instead of the down arrow (since it's better for heads-down data entry) and I got called away on something else and never returned to it.

Thank you for the additional code