I use this on the OnExit Even of the last text control for my form. But you could set it to any event you like. This puts the last enterd value for your text boxes in the new rocords text boxes.
Private Sub txtPW_Exit(cancel As Integer)
With CodeContextObject
.JobNumber.DefaultValue = """" & .JobNumber & """"
.JobName.DefaultValue = """" & .JobName & """"
.WeekEnding.DefaultValue = """" & .WeekEnding & """"
End With
DoCmd.GoToControl "JobNumber"
DoCmd.GoToRecord acForm, "TimeSheetGR", acNewRec
End Sub
[This message has been edited by Talismanic (edited 10-20-2000).]