Day of the week VBA Help

[Kroghr]

Does anyone have any idea why this code will not work. FlightDate is a bound control, in which a Date is entered and Formateed as DDDD to display the day of the week.

In the code, I've tried: If Me!FlightDate = Sunday , If Me!FlightDate = "Sunday" , & If Me!FlightDate = 1
Nothing seems to work.





Private Sub FlightDate_AfterUpdate()
If Me!FlightDate = Sunday Then
Me.KWACO1 = 1130
Me.KWACO2 = 1515
ElseIf Me!FlightDate = Monday Then
Me.KWACO1 = 900
Me.KWACO2 = 1700
ElseIf Me!FlightDate = Tuesday Then
Me.KWACO1 = 600
Me.KWACO2 = 710
Me.KWACO3 = 1430
Me.KWACO4 = 1540
ElseIf Me!FlightDate = Wednesday Then
Me.KWACO1 = 600
Me.KWACO2 = 710
Me.KWACO3 = 1130
Me.KWACO4 = 1430
Me.KWACO5 = 1540
Me.KWACO6 = 1615
ElseIf Me!FlightDate = Thursday Then
Me.KWACO1 = 600
Me.KWACO2 = 710
Me.KWACO3 = 1430
Me.KWACO4 = 1540
ElseIf Me!FlightDate = Friday Then
Me.KWACO1 = 600
Me.KWACO2 = 710
Me.KWACO3 = 1430
Me.KWACO4 = 1540
ElseIf Me!FlightDate = Saturday Then
Me.KWACO1 = 600
Me.KWACO2 = 710
Me.KWACO3 = 1430
Me.KWACO4 = 1540
End If
End Sub

Thanks for your help

 

[ByteMyzer]

You will need to use the Weekday function. For example:

If Weekday(Me!FlightDate) = vbSunday Then

For more information about the Weekday function, click here.

 

[boblarson]

And just use a Select Case instead of all the ElseIF's (and combine the ones that are the same):

Private Sub FlightDate_AfterUpdate()
With Me
   Select Case Weekday(!FlightDate)
      Case vbSunday
         .KWACO1 = 1130
         .KWACO2 = 1515
      Case  vbMonday 
         .KWACO1 = 900
         .KWACO2 = 1700
      Case vbTuesday, vbThursday, vbFriday, vbSaturday
         .KWACO1 = 600
         .KWACO2 = 710
         .KWACO3 = 1430
         .KWACO4 = 1540
      Case vbWednesday
         .KWACO1 = 600
         .KWACO2 = 710
         .KWACO3 = 1130
         .KWACO4 = 1430
         .KWACO5 = 1540
         .KWACO6 = 1615
   End Select
End With
End Sub