Send Textbox Value To Next Record

Private Sub jobdatebox_GotFocus()
Dim dteFormDate As Date
dteFormDate = CDate(InputBox("Enter the date:", "Date Entry"))
Me.jobdatebox.SetFocus
Me.jobdatebox.Text = dteFormDate


the above code pops up an alert and asks the user to enter a date. this value is then stored in the jobdatebox control (jobdate field)

the jobdate field is a Date/Time datatype and is the first item on my form so when the form opens this pop up appears instantly (which is fine)

they enter a date as the following: 6 6 and it displays as 06/06/2006

my user tabs through the fields, inserting a record.. when they reach the last field.. and tab again (to enter another record)

the pop up alert appears again..i dont want this.. i only want it to pop up the first time (when the form is opened) and then just keep that value in the jobdatebox for the remainder of the form's open session

i need something that does the following..

on new record creation
jobdatebox.value = dteFormDate (the value entered previously)


OR

Private Sub jobdatebox_GotFocus()
Dim dteFormDate As Date
dteFormDate = CDate(InputBox("Enter the date:", "Date Entry"))
Me.jobdatebox.SetFocus
Me.jobdatebox.Text = dteFormDate
for all records entered until form closes

OR

just before new record is created
if jobdatebox = not null (has a date value inside already)
then newrecord.jobdatebox = previous record jobdatebox.value


im stuck though on how to do this?