How To Get Access to Autofill Date Field From Past Date

[mustaqalifj]

I enter my expense records AFTER a month is gone. What I want to be able to do is once I enter a date the next record's date auto fills next day's date. For eg. I entered first date as Dec 1, 2016, the next record date auto fills Dec 2, 2016 and so on.

Please give as much detail as possible, I have working knowledge of Access but I'm no expert.
Thanking you in advance for help!

[PhilOfWalton]

Assuming you have a field called "ExpenseDate" in a table called "TblExpenses" then this code gets the maximum date

LastDate = DMax("ExpenseDate", "TblExpenses")
 

We now wish to add 1 day to this date so use

NextDate = DateAdd("d", 1, LastDate)
 

(The 1 means add 1 and "d" means day - so add 1 day)

Putting the whole thing together, when you start to add the new record the Before Insert Sub fires so on the form's Before Insert you need the following

Option Compare Database
Option Explicit
 
Private Sub Form_BeforeInsert(Cancel As Integer)
 
    ExpensDate.DefaultValue = DateAdd("d", 1, DMax("ExpenseDate", "TblExpenses"))
 
End Sub
 

Phil