Date Field (Last Day of Month)

jbc · May 11, 2004

Hi,

I enter a date into a field and want another field to
display the last day of the month + 1 year that I entered
into the first field.

dteMembership
dteExpiration

For example: If the person joined 3/13/04(dteMembership),
I want dteExpiration to display 3/31/05.

Thanks.

jbc

Graham R Seach · May 11, 2004

Private Sub dteMembership_AfterUpdate()
If IsDate(Me.dteMembership) Then
Me.dteExpiration = DateSerial(Year(Me.dteMembership) + 1,
Month(Me.dteMembership)+1, 0)
End If
End Sub

Regards,
Graham R Seach
Microsoft Access MVP
Sydney, Australia

Microsoft Access 2003 VBA Programmer's Reference
http://www.wiley.com/WileyCDA/WileyTitle/productCd-0764559036.html

jbc · May 11, 2004

Graham,

Thank you for your time and expertise. I'll try it out
later this afternoon.

jbc