How to use VBA codes to update table values with link to CURRENT DATE

[zen13]

Dear All,

I'm new to Access and programming, will appreciate your help.

I was given a set of data table with Age e.g 23, 30,42 and it needs to be updated yearly.



I found a code(shown below) , but is there a way to modify it so that the output value of "YearDiff" can be used in table or exported as field?

****

Sub AgeUpdate()
Dim TheDate As Date ' Declare variables.
Dim Msg
DateCreated = "2017/05/17"
Msg = "YearDiff: " & DateDiff("yyyy", DateCreated, Now)
MsgBox Msg
End Sub

****


Many thanks and I hope to hear from anyone soon <3

[Homegrownandy]

Age should be a calculation from date of birth. This requires no update.

[zen13]

Age should be a calculation from date of birth. This requires no update.

Hi there the issue is, the data imported from excel was given in actual age and not date of birth

[Homegrownandy]

convert them all to a date of birth? It will be equally as accurate as what you're suggesting to do and requires no update.

in excel have a list of all the ages and do = 2017 -A1 and so on.

[zen13]

convert them all to a date of birth? It will be equally as accurate as what you're suggesting to do and requires no update.

in excel have a list of all the ages and do = 2017 -A1 and so on.

I will try! thank you for your input~

[Homegrownandy]

If you need help displaying that calculation feel free to make a new thread.