This is what I came up with, As I input a new year in the date field, the new seq num starts
Private Sub Form_Current()
Dim strThisYear As String
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb()
strYearNow = Format(Now, "yy")
strrnums = DMax("RNum2", "TblRuns")
strThisYear...