Mr. Rost,
Thank you so much for your reply. I think I did as you suggested and made the following Procedure:
_______________________________________
Private Sub Form_BeforeInsert(Cancel As Integer)
    Me.JobID = DMax("[JobID]", "731DailyReportT", "[Date] = #" & Me.Date & "#") + 1
    If Me.JobID = Null Then Me.JobID = 1
End Sub
_____________________________

On opening the form I get "Run-Time Error '3075'

Syntax error in date in query expression '[Date] = ##'.
_____________________________
I understand that the date expression is not appropriate for the BeforeInsert even but, when it is in the OnLoad event and I manually put a 1 in the table, everything works fine afterward. Why is this query expression not accepted now? I am asking, because I do not understand how the expression works. After hundreds of failures, I found it in a forum post and applied it to my situation. That is why I an so lost. Thank you again for any and all assistance.

Daniel

---

Reply from Richard Rost:

First of all, "Date" is not a good name for a field or control because it's a reserved word in Access. I would change it to "MyDate" or something else. Now, if you want to check it against the CURRENT DATE, don't use Me.Date. That says you have a field on your current form called Date. You probably want to use Date() which is the date function that returns the current date. If Me.Date is NULL (which it probably is) then your DMAX function won't work.