If Me.cSoDate.Value < Me.PromotionStarDate.Value And Me.cSoDate.Value > Me.PromotionLastDate.Value Then
Me.SalesUnitPrice.Value = Me.StandarUnitPrice.Value
Else
Me.SalesUnitPrice.Value = Me.PromotionUnitPrice.Value
End If
If Me.PromotionStarDate.Value < Me.cSoDate.Value And Me.PromotionLastDate.Value > Me.cSoDate.Value Then
Me.SalesUnitPrice.Value = Me.PromotionUnitPrice.Value
Else
Me.SalesUnitPrice.Value = Me.StandarUnitPrice.Value
End If