[Resolvido]Início do mês retirado de uma combox

Me perdoem voltar à carga!
Tenho um campo de texto no form que queria que aceitasse o início do mês referente à combox onde escolho o Mês Pretendido.
Fiz uma bd com o exemplo da minha questão.
Grato pela vossa disponibilidade

Luís Antunes

Olá, sua duvida ficou mau explicada!

Porém, acredito que sei que prentende.


Se o que pretende é selecionar um Mes na combo mes, e ja preencher o inicio e o Fim do mes em seus respectivos campos, faça assim:


No Evento apos atualizar da sua campo comb_Mês coloque:

Private Sub comb_Mês_AfterUpdate()

Me.txt_DataInicial = "01/" & Format(Me.comb_Mês, "mm") & "/" & Format(Date, "yyyy")
Me.txt_DataFinal = FinalMes(Me.txt_DataInicial)

End Sub

==> Corrija a opção "Novembro" da sua combo, pois esta escrito errado:  "Setetembro"

Fábio.
O código funciona só para o ano presente, não serve para anos anteriores. Foi erro meu não ter junto, ao anterior exemplo, combox do ano, Anexo um novo exemplo BD.
quanto à formatação da data, funciona neste exemplo que envio, tenho que perceber porque não dá no meu projecto.
Obrigado pela atenção.

Luís Antunes

O formato é "mmm".
Tente e retorne.

Olá Fábio
Já fiz a experiência com "vazio", "m", "mm", "mmm" e "mmmm". O resultado é sempre o mesmo, isto é: aparece sempre o Mês por extenso.
Se não hover solução fica mesmo assim.
Mais uma vez fico-lhe grato.
Luís Antunes

Amigo, agora foi que nao entendi mais nada 

Qual e mesmo a forma de data que quer que apaeça?

Pode colocar direto no campo, propriedade, guia formato. Escolha data no formato que pretente. ..

Fábio
Editei a mensagem e alterei-a, não devia te-lo feito,  veja-a mensagem nº 3

Meu amigo, sempre que tiver uma duvida, poste-a completa! Assim agiliza a resolução dele e evita trabalho perdido!

Esqueça as dicas postadas anteriormente, e siga essa:

Coloque no evento apos atualizar da sua combo Ano "cbo_Ano"

Private Sub cbo_Ano_AfterUpdate()

Me.txtDataInicial = "01/" & Format(Me.cbo_Mês, "mm") & "/" & Me.cbo_ano 'Format(Me.cbo_ano, "yyyy")
Me.txtDataFinal = FinalMes(Me.txtDataInicial)

End Sub

Boa Tarde Fábio.
Desculpe-me a trapalhada que causei. Para a próxima vou ter mais cuidado a expor as minhas mensagens e anexos.
Um muito obrigado pelo tempo e disponibilidade.

Luís Antunes

PS O código serviu lindamente. Vou dar o tema como encerrado.

Grato pelo retorno amigo! Até aproxima se Deus quiser!