Escrever tudo em maiúsculas ou minúsculas

Para que um utilizador quando estiver a introduzir dados escreva sempre em maiúsculas basta colocar o seguinte código nas propriedades do campo, no evento ‘ao premir a tecla’ (OnKeyPress ):

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

onde keyascii vai receber o novo código ASCII

chr = exibe o carácter do código ASCII

Função ‘Asc’: Devolve um número inteiro que representa o código (ASCII) de carácter correspondente à primeira letra numa cadeia.

Função Ucase: converte uma cadeia de caracteres para maiúsculas.

Função Chr: mostra o carácter do código ASCII

Para converter para minúscula basta alterar Ucase por Lcase:

KeyAscii = Asc(LCase(Chr(KeyAscii)))

  • Fabiano Silva Duarte

    O problema é que se copiar uma string de texto em minúsculo e colar no campo em questão, a string permanece maiúscula. É preciso inserir um código no evento “BeforeUpdate” para que a string fique maiúscula. Anda estou pesquisando como faz isso.