(Resolvido) Text box

[frata]

Gostaria de saber como proceder para que o usuário ao digitar no meu programa entre sempre com letra maiúscula no Text box; ou seja, sem que ele tenha que acionar o Caps Look no teclado. Valeu galera...Brigadão....!!!!

[raphael_suporte]

caso você queira usar o valor para uma consulta, não precisa exibir maiúscula, pode apenas converter ao guardar o valor em uma variavél, usando o UCASE(text1.text), porem se você quer que apareça no textbox o valor já em maiúsculas, terá que colocar no evento keyPress e verificar a tecla e concatenar ao texto que desejar

[JoséA]

Bom dia,

Private Sub TextBox1_Change()
Me.TextBox1 = UCase(Me.TextBox1)
End Sub

[raphael_suporte]

os 2 tópicos abertos para a mesma pergunta foram mesclados.

Por favor abrir apenas um tópico para sua dúvida.

[frata]

Coloqei tudo direitinho, mas não funcionou, ou melhor, realmente as letras ficam em

maiúsculo, mas, porém, invertidas....não entendi nada. Frata

[JoséA]

Coloqei tudo direitinho, mas não funcionou, ou melhor, realmente as letras ficam em

maiúsculo, mas, porém, invertidas....não entendi nada. Frata

Tente pelo evento exit, se não der certo mostre como está fazendo...

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.TextBox1 = UCase(Me.TextBox1)
End Sub

[raphael_suporte]

no evento keypress do textbox, coloque o seguinte comando:

KeyAscii = Asc(UCase(Chr(KeyAscii)))

[frata]

:P OI, Raphael, fucionou perfeitamente.............valeu mesmo!!!!!!!!!!! Obrigado.