[Resolvidos]Combobox com datas automáticas, mes e ano

Prezados,

Boa tarde!!

Gostaria de colocar uma caixa de combinação em um formulário que aparecesse:

Os últimos 6 meses e os próximos dois em um formato Mes / Ano

Ou seja, hoje em dia, ficaria assim:

OUTUBRO/2009
NOVEMBRO/2009
DEZEMBRO/2009
JANEIRO/2010
FEVEREIRO/2010
MARÇO/2010
ABRIL/2010
MAIO/2010
JUNHO/2010

dai a medida que passasse os meses, iria atualizando automático...

e de preferência que o cursor começasse no mÊs atual.. se eu quiser colocar algum outro mês eu vou pra baixo / pra cima na caixa de combinação, mas o padrão ficaria no mês atual
qual a forma mais fácil de fazer isso?



Grato, Rmaragno

Coloque a origem da caixa de combinação como lista de valores e, no acontecimento ao entrar, o seguinte código:
CaixaDeCombinacao.RowSource = Format(DateAdd("M", -6, Date), "mmmm/yyyy") & ";" & Format(DateAdd("M", -5, Date), "mmmm/yyyy") & ";" & Format(DateAdd("M", -4, Date), "mmmm/yyyy") & ";" & Format(DateAdd("M", -3, Date), "mmmm/yyyy") & ";" & Format(DateAdd("M", -2, Date), "mmmm/yyyy") & ";" & Format(DateAdd("M", -1, Date), "mmmm/yyyy") & ";" & Format(Date, "mmmm/yyyy") & ";" & Format(DateAdd("M", 1, Date), "mmmm/yyyy") & ";" & Format(DateAdd("M", 2, Date), "mmmm/yyyy")

Perfeito!!!

Obrigado Alexandre!!!

Só mais uma dicasinha adicional. Se entendi bem, o amigo quer que ao abrir o formulário, a combo entre com o mês corrente, é isso mesmo? Nesse caso, basta colocar o código abaixo no evento Ao Abrir do formulário:

Me.suaCombo.Value = Format(Now, "mmmm/yyyy")

Obrigado Criquio!!