Auto Calculate Calendar

[viporyo]

I'm creating an Access Database 2003 for our Human Resource Dept. In the form, I will be adding a calendar wherein there will be date of hire, start date, etc. I need to be able to view the calendar to pick the date and I also need to auto calculate days. For example: if I start on 10/1/07, I need it to auto calculate on my next field +30, my next field will be +45 and my next field would be +90. What language do I use to do this and how do I get the calendar to appear so that I can choose a date for each field?

[beacon]

I'm creating an Access Database 2003 for our Human Resource Dept. In the form, I will be adding a calendar wherein there will be date of hire, start date, etc. I need to be able to view the calendar to pick the date and I also need to auto calculate days. For example: if I start on 10/1/07, I need it to auto calculate on my next field +30, my next field will be +45 and my next field would be +90. What language do I use to do this and how do I get the calendar to appear so that I can choose a date for each field?

You need to use some VBA code. Are you familiar with this?

[missinglinq]

Place a calendar on your form and set its Visible Property to No. Then use this code:

Private Sub Form_Load()
  Me.YourCalendarName = Date
End Sub
 
Private Sub YourCalendarName_Click()
   Me.OriginalDateTextBox = YourCalendarName
   Me.Date2 = DateAdd("d", 30, YourCalendarName)
   Me.Date3 = DateAdd("d", 45, YourCalendarName)
   Me.Date4 = DateAdd("d", 90, YourCalendarName)
   OriginalDateTextBox.SetFocus
   YourCalendarName.Visible = False
End Sub
 
Private Sub OriginalDateTextBox_DblClick(Cancel As Integer)
  YourCalendarName.Visible = True
End Sub
 

When the user Double Clicks on the text box that will hold the original date, the calendar pops up. Once a date is chosen, the calendar disappears and all fields are filled in.

Welcome to TheScripts!

Linq ;0)>