Month names in combo box

anterior · May 18th, 2009, 03:30 AM

Hello, I'm trying to generate a combo box with the current Month name and Year (mmmm-yyyy) + the next 6 months. Can anyone assist with this. I assume I would need to start with a Date() value to retrive the current month, but can't figure out how to generate the next month/'s in the combo box list.

Thanks in advance!

Dave

SerranoG · May 22nd, 2009, 07:46 AM

You can do a loop...

Code:

Dim intMonth as Integer
 
Me.cboMonth.RowSourceType = "Value List"
 
For intMonth = 0 To 6
    Me.cboMonth.AddItem Format(DateAdd("m", intMonth, Date()), "mmmm-yyyy")
Next intMonth

I have not tested this.

anterior · May 25th, 2009, 02:43 AM

Thankyou Greg. That is exactly what I was looking (hoping!) for.

I have attached the code to the forms On Current event to provide automated date - year selections for a number of different combo boxes.

The code you provided works perfectly.

Thanks again

Dave