Calculating Service Period from Statement Date

[tkbeard29]

Correct, I'm displaying the StatementDate and the control is also named StatementDate. I changed the control to txtStatementDate as you suggested but and now when I enter 1/14/13 as the StatementDate I get the ServicePeriod result of 02/2013. So I should be able to change the sign and it should be good to go.... I think.

I'm trying to figure out how to do single step code, but no luck right now.
I'm a self-taught coder/database builder guy... using both terms lightly... with a book as a reference and learning as I go.

[tkbeard29]

Changed it to:

Private Sub txtStatementDate_AfterUpdate()
    If Day([StatementDate]) <= 14 Then
    [ServicePeriod] = DateSerial(Year([StatementDate]), Month([StatementDate]), 1)
   Else
    [ServicePeriod] = DateSerial(Year([StatementDate]), (Month([StatementDate]) + 1), 1)
   End If

And it works great. I even tested it with December dates and it works as well. 12/16/13 Statement date resulted 01/2014 ServicePeriod.

I think it's safe to say now that this has been solved.

Thanks again for your help, it's greatly appreciated!!!!!!!

[RuralGuy]

Evindently, DateSerial changes Month(12)+1 into Month(1). Interesting.

[tkbeard29]

Evindently, DateSerial changes Month(12)+1 into Month(1). Interesting.

Happy music to my ears and eyes.... I'll take it. haha.