Textbox display month and year with buttons

[Wilse]

Hi guys,

I am very new to access and VB so I am sorry of this is a stupid question.

I am creating a database for my work and I would like the text box to display the current month and year. I would like to command buttons each side one to go back a month and the next one to go to the next month.

I would like this to be used to select the month so only the selected months records would be displayed.

Can anyone help me please?

 

[vbaInet]

Lookup the DateAdd() and Format() functions. Just what you need

Welcome to AWF!

 

[Wilse]

I have got

=Format$(DateAdd("m",0,Now()),"mmmm yy")

to display the current month and year in the textbox but I am unsure how to tie this with the command buttons to go back or forward months

 

[vbaInet]

That was very efficient of you looking both up and coming up with something

You need one or the other.

To display the current month you can use:
Format(Date(),"mmmm")
OR
MonthName(Date())

You write code like this on the ON CLICK event of the command button (look under EVENTS tab of the button):

Name_Of_Textbox = MonthName(date())

 

[Wilse]

what about displaying the year as well

 

[vbaInet]

You can use the Format example I gave and just add yy or yyyy depending on what you want.

 

[Wilse]

ah sorry to be a pain, I am just way out of my depth here

 

[vbaInet]

That's what the forum is for. We've all been there

 

[Wilse]

I am getting no joy, my textbox is called monthtext so what code do I place on on the ON click event

 

[vbaInet]

monthtext = Format(Date(),"mmmm yy")

And what you need is the CODE BUILDER option when you click the elipsis "..."

Put it between the two lines of code that you see on the window that opens up.

 

[Wilse]

where do i put the +1 or -1 to change the month on the code and do i put =Format(Date(),"mmmm yy") as the control source as the textbox or do I put it somewhere else

 

[vbaInet]

where do i put the +1 or -1 to change the month on the code

... Format(DateAdd("m",[COLOR=Red]1[/COLOR],Date()),"mmmm yy")

... and do i put =Format(Date(),"mmmm yy") as the control source as the textbox or do I put it somewhere else

Refer to last post.

 

[Wilse]

I have syntax error when I click the button

 

[vbaInet]

Show me exactly what you wrote in code?

 

[Wilse]

Ah it now displays april 10 but when I click the button it stays as April 10 and not May 10.

I have

Private Sub Command12_Click()
monthtext = Format(DateAdd("m", 1, Date), "mmmm yy")
End Sub

 

[vbaInet]

We are in March remember? March + 1 = April

 

[Wilse]

but I wanna use it to select different months not just this month, next month and last month. I wanna go back for example 1 year if i click the button 12 times

 

[vbaInet]

That wasn't what you expressed in your initial post.

Don't you think you should replace Date() with something?

 

[SOS]

You need to change it to:

monthtext = Format(DateAdd("m", 1, [B][COLOR=red]monthtext[/COLOR][/B]), "mmmm yy")

 

[SOS]

That wasn't what you expressed in your initial post.

Don't you think you should replace Date() with something?

Sorry, I gave away the answer