Calculate one field based on another one

[Douglasrac]

Hi,

I have a form on Access with 2 fields. Date1 and Date2. Usually Date2 is 1 year ahead Date1. So I would like an expression that when I type Date1, Date2 would be automatically filled with Date1 + 1 Year.


But that is usually. Not always.

In the field Date2, properties, Event and On Get Focus, I put the following expression:

=DateSerial((Year([Date1])+1);Month([Date1]);Day([Date1]))

I´m sure the expression is working correctly because if I put it on DefaultValue or Control Source, it works perfectly. The problem is that if I put on DefaultValue the expression triggers when I open the form, and when I open the form the field Date1 is empty. And if I put on Control Source I can´t change the value.

I also already tried to put it on On Enter, On Click, everything. It doesn´t work.
The format is DD/MM/YYYY.

[RuralGuy]

Set the Date2 control in the AfterUpdate event of the Date1 control.

[Douglasrac]

Set the Date2 control in the AfterUpdate event of the Date1 control.

I don´t understand you.

I did the following:
In Date1, AfterUpdate I put = [Date2].ControlSource

Is that it? Doesnt work.

Also tried to put the entire code expression in AfterUpdate of Date1. Doesnt work.

Also tried this, doesnt work:

AfterUpdate of Date1 - Event Procedure:

Private Sub Date1_AfterUpdate()
  
  Me!Date2 = DateAdd("yyyy", 1, Me!Date2)
    
End Sub

[RuralGuy]

The code should be:

Private Sub Date1_AfterUpdate()
  
  Me!Date2 = DateAdd("yyyy", 1, Me!Date1)
    
End Sub

[Douglasrac]

The code should be:

Private Sub Date1_AfterUpdate()
  
  Me!Date2 = DateAdd("yyyy", 1, Me!Date1)
    
End Sub

Still doesn´t work. I get no error, no message. Is like nothing changed.
I build a brand new database, only with these two field to test in an enviroment free of other variables and still nothing.

[RuralGuy]

Are both controls bound to DateTime fields? Try this and tell me what happens:

Private Sub Date1_AfterUpdate()
    Me!Date2 = DateAdd("yyyy", 1, Me!Date1)
    MsgBox "[" & DateAdd("yyyy", 1, Me!Date1) & "]"
End Sub

[Douglasrac]

Are both controls bound to DateTime fields? Try this and tell me what happens:

Private Sub Date1_AfterUpdate()
    Me!Date2 = DateAdd("yyyy", 1, Me!Date1)
    MsgBox "[" & DateAdd("yyyy", 1, Me!Date1) & "]"
End Sub

Now it WORKS!
I dont know what was hapening. I took out the dialog box and still works.

Thank you!

[RuralGuy]

Great! Are you ready to mark this thread as Solved? It is a thread tool.