Função que nao ta fazendo o campo text ficar maisculo

[mestre fyoda 1]

no formulario

Private Sub nome_LostFocus()Maiusculo (nome.Text)End Sub

na module

Public Function Maiusculo(Campo As String)Campo = UCase(Campo)End Function

pq nao tá fazendo a letra digitada no campo ficar maiscula ?

[Luizgrs 0]

Ainda falta você dizer qual o campo.

Tenta assim:

Private Sub nome_LostFocus()nome.text = Maiusculo (nome.Text)End SubPublic Function Maiusculo(Campo As String)Maiusculo = UCase(Campo)End Function

Ou assim:

Private Sub nome_LostFocus()Maiusculo nomeEnd SubPublic Sub Maiusculo (campo As TextBox)campo.Text = UCase(campo.Text)End Sub

[mestre fyoda 1]

o problema ta aqui

Campo As String

nao é String , e sim Control .se bota control da certinho .

[slype 1]

'no Módulo dexa assim:Public Function Maiusculo(Texto as String) as StringTexto = Ucase(Texto)End Function'e chama a Function assim:Campo.Text = Maiusculo(Campo.Text)Obs.: Tava dando errado pq a Function tem q retornar um valor, e não estava retornando!Até mais

[Fabyo 66]

tenta assim direto:

 

Private Sub Text1_KeyPress(KeyAscii As Integer)

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

End Sub