[Resolvido]Ao clicar, mudar texto do campo.

Pessoal, preciso de uma ajuda. Tenho um formulário onde eu quero que mude o texto do campo ao clicar em um botão.



Queria que ao clicar no botão do mês mudasse o texto do CampoMes para o mês que eu cliquei.

Aproveitando, gostaria de saber qual código eu coloco esse capo com letra maiúscula.

No clic do botão defina:

Private Sub SeuBotão_Click()
Me.CampoMes = "TextoQueQuerAdicionar"
End Sub

Lupércio, obriagdo pela ajuda. Porém ainda tem um problema, como o CampoMes ja tem o código abaixo, ele diz que eu nao posso mudar o texto. Será que tem algum código que eu desabilito esse código abaixo e depois abra o código novo.

=SeqConv(Format(Data();"mmmm");3)

Retire essa expressão da origem do CampoMes =SeqConv(Format(Data();"mmmm");3)
Crie um botão para inserir o mês atual. ou ao carregar do form.

Private Sub SeuBotão_Click()

Me.CampoMes = MonthName(Month(Now()))

End Sub

Pode ser ao carregar do form:  Me.CampoMes = MonthName(Month(Now()))
vai inserir o mês atual no CampoMes.

Em outro botão defina:

Private Sub Comando74_Click()
Me.CampoMes = "O texto que que apareça no campoMes"
End Sub

Obrigado Lupércio, me ajudou muito.

Só tenho mais uma dúvida para finalizar esse tópico.

Tem como colocar a expressão MonthName(Month(Now())) para que a primeira letra fique maiúscula?

Primeira letra maiúscula do mês.
Teste ai:


Private Sub Comando71_Click()

Me.CampoMes = MonthName(Month(Now()))
Me.CampoMes = StrConv(Me.CampoMes, vbProperCase)


End Sub

Olá, como ficou a situação!

Os utilizadores do fórum agradecem o retorno.
Abraço

Muito obrigado meu amigo.

Me ajudou muito, estava aqui testando.

Tudo certo!

O fórum agradecesse o retorno!

Abraço!