set focus - ms access

[blair in sydney]

a simple one, but i'm new to access so..

I am attempting to to take a user inputted date on a form , convert it into a dayname and display iy in a another text box on the form.
I get run time error 2108, telling me to save the field and i cannot seem to find any documentation on this. thanks.


Private Sub Text15_beforeupdate(Cancel As Integer)
On Error GoTo errorhandler

Text17.SetFocus
Text17.Text = Weekday(DateValue(Text15.Text))

errorhandler:
MsgBox "Please enter a Valid date: dd/mm/yy"
Debug.Print Err.Number

End Sub

[ADezii]

a simple one, but i'm new to access so..

I am attempting to to take a user inputted date on a form , convert it into a dayname and display iy in a another text box on the form.
I get run time error 2108, telling me to save the field and i cannot seem to find any documentation on this. thanks.


Private Sub Text15_beforeupdate(Cancel As Integer)
On Error GoTo errorhandler

Text17.SetFocus
Text17.Text = Weekday(DateValue(Text15.Text))

errorhandler:
MsgBox "Please enter a Valid date: dd/mm/yy"
Debug.Print Err.Number

End Sub

WeekDay will convert a Date into a Numeric value from 1 to 7 corresponding to the day of the week. If you want the actual Day Name, you could use the following code:

Me![Text17] = Format$(Me![Text15], "ddd") ==> returns 3 character day
                          OR
Me![Text17] = Format$(Me![Text15], "dddd") ==> returns complete day name

[blair in sydney]

Thanks, works really well.

[ADezii]

Thanks, works really well.

You're welcome.