Weekday function

[GDC1970]

I am having problems with my code. I am trying to look at a date on a form and show me the weekday number for that date on the same form different text box. I am using MS ACCESS 2013 VBA

Private Sub TxtAppointmentDate_BeforeUpdate(Cancel As Integer)
 
Dim D As Date
Dim W As Integer
D = (TxtAppointmentDate)
W = Weekday(D)
Me.test = W
 
End Sub

[Stewart Ross]

One thing that strikes me is that you are using the BeforeUpdate event of the textbox concerned. If the date is being entered manually you will need to use the AfterUpdate event instead. BeforeUpdate fires before the textbox has a final value in it, allowing you to cancel the update if necessary. Your assignment statement is not going to work correctly as the textbox by definition has not yet been updated to a final state when you try to make the assignment.

AfterUpdate fires after the value has been entered, and this is what you need for your assignment statements to operate correctly(as far as I can tell from the little you have mentioned to us).

Having said all that, there are easier ways you could do this, such as setting the RowSource property of the other textbox to

=weekday([YourFieldOrControlName])

replacing the fieldname as appropriate to your particular circumstances.

-Stewart

[GDC1970]

Excellent thanks for your feedback, ill follow your suggestions.

[twinnyfo]

@Stewart,

Minor correction: should set the ControlSource property, not RowSource.

I know what you meant, but wanted to clarify for OP and others.

[Stewart Ross]

Thanks for the correction twinnyfo - see what happens when I rely on my memory of the property involved. -S

[twinnyfo]

No problem. Your advice to OP was spot on.