vba code to auto update date fields

[LaughingBull]

this is the form and the code. AppDate has a date picker and with this code after I pick a new day the other date fields don't update until I tab to the next field. I want the other date fields to automatically update after I pick a new date from the date picker in the AppDate field.
What am I missing?

	first date Sunday field name is AppDat then Monday AppDate2 etc
Time	Sunday	Monday	Tuesday	Wednesday	Thursday	Friday	Saturday
10:00 AM	07/02/17	07/03/17	07/04/17	07/05/17	07/06/17	07/07/17	07/08/17
10:30 AM
11:00 AM	Private Sub AppDate_AfterUpdate()
11:30 AM
12:00 PM
12:30 PM	AppDate2 = DateAdd("d", 1, [AppDate])
1:00 PM	AppDate3 = DateAdd("d", 2, [AppDate])
1:30 PM	AppDate4 = DateAdd("d", 3, [AppDate])
2:00 PM	AppDate5 = DateAdd("d", 4, [AppDate])
2:30 PM	AppDate6 = DateAdd("d", 5, [AppDate])
3:00 PM	AppDate7 = DateAdd("d", 6, [AppDate])
3:30 PM
4:00 PM
4:30 PM	Me.Refresh
5:00 PM
5:30 PM
6:00 PM	End Sub
6:30 PM
7:00 PM
7:30 PM

[aytee111]

You would need the OnChange event which happens each time something is entered in the field. If the user doesn't use the date picker it will cause errors, if they begin by typing a 1 the event will fire.

[LaughingBull]

sometimes it update the other AppDates and sometimes it does not.

[aytee111]

Not sure what you mean by that. You could also put it in the control source of the subsequent fields: =AppDate+1, AppDate+2, etc

[LaughingBull]

Thank You I got this to work. Can you help me with a date in a text box on a form to display the name of the day the date is for. I have searched but I don't know how to apply what I found to my form. The text box is a date field with a date picker and what I want is the name of the day to be displayed in the text box after I pick a date.

[LaughingBull]

the name of the textbox is AppDate

[andy49]

create a table (Call it tbldays) with two columns DayID and dayofWeek

1 Sunday
2 Monday
3 Tuesday etc




If the date chosen is called DateChosen

then Control source of AppDate could be

Dlookup("dayofWeek","tbldays","DayID = " & Weekday ( txtDate ))

(look up the day of the week which has the DayID of 1,2,3,4 depending on the day)

[LaughingBull]

I already have =AppDate+1 in the control source that you gave me before what should I do Now

[andy49]

Are you hoping to put a date in appdate or the name of a day? Or both??

[LaughingBull]

I know you can attache the DB but I don't see the button to upload the file.

[LaughingBull]

dates.zipdates.zip

[aytee111]

Use the format property: dddd will give you just the day name. Or make a custom format, see here

[ssanfu]

And set the Input Mask to "99/99/0000;0;_ " ( Note: the date picker doesn't work if you have an input mask)
Then set the Auto Tab (Other tab) to Yes

When the firm opens, type a 8 character date (ie 07 03 2017 - just type the numbers)

If you edit the date (just change the day), you have to leave the text box to update the value



BTW, EVERY code module should have

Option Compare Database
Option Explicit

as the top two lines!