I have a table designed to reflect employees, Vacation information and
attendance information. I would like to show the years of service in the
company in a field in the form. How? Please help. Your assistance would be
much appreciated. I am new at this development programming in access

Mickey,

There are a couple of ways you can do that; an accurate way, and an
inaccurate (yet possibly acceptable) way.

The inaccurate way is to place the following pseudo-code into the
txtYearsofService textbox's ControlSource property:
=DateDiff("yyyy", [DateStarted], Date())
This will only return the number of years.

The accurate way is to place the following pseudo-code into the
txtYearsofService textbox's ControlSource property:
=Diff2Dates("dmy",[DateStarted], Date(), False)
This will (selectively) return the number of years, months, days, hours,
minutes and seconds.

....but before you try this last sugestion, download the code found at
http://www.pacificdb.com.au/MVP/Code/Diff2Dates.htm, and place it in a
standard module.

Regards,
Graham R Seach
Microsoft Access MVP
Sydney, Australia

"Mickey" <(E-Mail Removed)> wrote in message
news3672B69-0B0E-4D83-8709-(E-Mail Removed)...
>I have a table designed to reflect employees, Vacation information and
> attendance information. I would like to show the years of service in the
> company in a field in the form. How? Please help. Your assistance would
> be
> much appreciated. I am new at this development programming in access

There's also an intermediate possibility.

=DateDiff("yyyy", [DateStarted], Date()) will return the wrong answer if the
anniversary of DateStarted hasn't yet occurred this year. For example, if
someone starts 2006-12-31, on 2007-01-01 DateDiff("yyyy", [DateStarted],
Date()) will return 1.

To correct for that, use

=DateDiff("yyyy", [DateStarted], Date()) - _
IIf(Format(Date(), "mmdd") < Format([DateStarted], "mmdd"), 1. 0)


--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)


"Graham R Seach" <gseach@accessmvp_REMOVE.com> wrote in message
news:eMMgZ4%(E-Mail Removed)...
> Mickey,
>
> There are a couple of ways you can do that; an accurate way, and an
> inaccurate (yet possibly acceptable) way.
>
> The inaccurate way is to place the following pseudo-code into the
> txtYearsofService textbox's ControlSource property:
> =DateDiff("yyyy", [DateStarted], Date())
> This will only return the number of years.
>
> The accurate way is to place the following pseudo-code into the
> txtYearsofService textbox's ControlSource property:
> =Diff2Dates("dmy",[DateStarted], Date(), False)
> This will (selectively) return the number of years, months, days, hours,
> minutes and seconds.
>
> ...but before you try this last sugestion, download the code found at
> http://www.pacificdb.com.au/MVP/Code/Diff2Dates.htm, and place it in a
> standard module.
>
> Regards,
> Graham R Seach
> Microsoft Access MVP
> Sydney, Australia
>
> "Mickey" <(E-Mail Removed)> wrote in message
> news3672B69-0B0E-4D83-8709-(E-Mail Removed)...
>>I have a table designed to reflect employees, Vacation information and
>> attendance information. I would like to show the years of service in the
>> company in a field in the form. How? Please help. Your assistance
>> would be
>> much appreciated. I am new at this development programming in access
>
>