[Resolvido]Todos os campos do formulário/relatório em letras maiúsculas

Prezados do Fórum, bom dia.

Há alguma forma de colocar os dados inseridos nos campos de um formulário/relatório em letras maiúsculas?

Vi alguns tópicos no Fórum sugerindo inserir o código me.activecontrol=ucase(me.activecontrol) nos campos, porém o BD possui muitos campos (cerca de 400), caso alguém tenha alguma sugestão para muitos campos, fico grato se puder compartilhar.

Obrigado.

Amigo , seleciona todos os campo e coloca no formato onsimbolo > esse xomandonesta dando erro

Prezado crysostomo, agradeço-lhe a atenção.

Entendi que você está sugerindo colocar no evento Formato do campo o sinal ">". É isto?

Caso seja isto, na versão do access que estou usando (2016-64bits) não funciona a contento, pois corta parte dos dados inseridos. Principalmente se o campo for Texto Longo. Agradecido.

Caso alguém tenha uma outra sugestão, agradeço.

Olá Oldri

Tente isso

Código:

Private Sub Form_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr$(KeyAscii)))
End Sub

Saludos

Olá FranklinJSP, boa tarde.

Agradeço a atenção, mas infelizmente não funcionou. Não houve qualquer alteração.

Obrigado

Olá, OLDRIVG

tente assim

Private Sub texto_AfterUpdate()
Me.ActiveControl = UCase(Me.ActiveControl)
End Sub


Cumprimentos

José Silva

Olá Oldri

Faltou código:

Código:

Private Sub Form_Load()
    KeyPreview = True
End Sub

Código:

Private Sub Form_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr$(KeyAscii)))
End Sub

Saludos

Prezados FranklinJSP e JIR, bom dia.

JIR,
a sua sugestão funciona, mas terei que implementar em todos os campos. Como escrevi na msg inicial, são muitos campos (cerca de 400). Implementar o código em cada campo não é uma tarefa impossível, mas é muito trabalhoso. Pensei que houvesse uma forma mais prática e funcional.

FranklinJSP,

não funcionou, infelizmente.

Agradeço a ambos.

Bom día Oldrivg

Como última opção, envio um exemplo em anexo para letras maiúsculas em formulário

Saludos

Prezado FranklinJSP, boa tarde.

Após eu implementar a sua sugestão em todos os subformulários, funcionou.

Agradeço o seu empenho e atenção.

Aproveitando o tópico, há alguma forma de por em maiúscula os dados já existentes nos campos?

Obrigado

Olá a todos,

OLDRI, através de uma consulta atualizar usando o UCASE.

Efetue uma pesquisa no fórum que deve ter exemplos.

Abraço a todos

Boa tarde Oldrivg

Eu sabia que tinha que funcionar, que bom!!!

Saludos

Olá a todos,

Oldri, não sei se já resolveu a ultima questão.
Como referi com uma consulta atulizar podemos fazer isso, veja por exemplo:

UPDATE tbl_clientes SET tbl_clientes.NomeCliente = UCase([NomeCliente]);

Abraço

Prezado ahteixeira, bom dia!

Agradeço a atenção.

Ainda não consegui resolver a última situação.

Vi seu exemplo mas não consegui assimilar para o meu BD. Não tenho prática em criar consultas, por isto não consegui.

O BD que pretendo realizar as atualizações possui 8 tabelas, 1 formulário e 1 relatório. Minhas dificuldades são as seguintes:

1 - Onde devo colocar o código UPDATE tbl_clientes SET tbl_clientes.NomeCliente = UCase([NomeCliente]);?
2 - Para cada campo do formulário terei que referenciar o nome e a tabela do mesmo no código acima?
3 - O formulário possui campos das 8 tabelas. Pelo que entendi, terei que criar um código referenciando uma tabela e seus campos. É isto?
4 - Qual opção do Assistente de Criação de Consultas devo utilizar para criar a consulta Atualização?

Desculpe-me pela falta de um conhecimento mais acentuado.

Agradecido.

Olá,

Com base no exemplo veja os passos:









Abraço

Prezado ahteixeira, bom dia.

Mais uma vez agradeço a atenção e a prestabilidade em ajudar-nos.

A sua sugestão e instruções foram perfeitas. Funcionou.

Agora é mãos a obra para referenciar os cerca de 350 campos.

Obrigado.

Esqueci do "Resolvido".

Tópico Resolvido

Olá Oldri, Fico feliz.

Obrigado pelo retorno.

Abraço a todos