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)))