Save Date As Text

[aamer]

I have a button if I clik on it, it should change the month to previous month in the text field "dtetxt" the control source of this text field is "Salary Month". With the following code it chages it to 01/11/2022 and save the "Salary Month" as 01/11/2022. Where it should save same as November.




Private Sub Pmonth_Click()


Me.dtetxt = DateAdd("m", -1, [Purchase Date])


End Sub

[Welshgasman]

So use the Format() function?
However you can format it as you want when you want to see it? and leave it as a date.

[aamer]

I dont want to leave it as a date. I just need it to save as name of the month.

[Welshgasman]

I dont want to leave it as a date. I just need it to save as name of the month.

So use the Format() function?

[davegri]

See if you can work with this:

me.dtetxt = Monthname(Month(DateAdd("m", -1, #1/11/2022#)))

You'll have to replace the literal 1/11/22 with your variable. It may or may not require the # delimeters, depending on its data type.

[Welshgasman]

Well I was just thinking of

Me.dtetxt = Format([Purchase Date],"mmmm")

However, again, is this not a calculated value?

[aamer]

See if you can work with this:

me.dtetxt = Monthname(Month(DateAdd("m", -1, #1/11/2022#)))

You'll have to replace the literal 1/11/22 with your variable. It may or may not require the # delimeters, depending on its data type.

Tried This

Private Sub Pmonth_Click()


Me.dtetxt = MonthName(Month(DateAdd("m", -1, [Purchase Date])))


End Sub


Works Perfect

[davegri]

Good to hear. Good luck with the project.