DIGITAÇÃO SEM ACENTUAÇÃO EM TEMPO REAL

Moderador: Leandro Esteves

Regras do fórum
=============

Antes de postar sua dúvida, por favor leia as regras de utilização do fórum.
Gonzaga
Mensagens: 123
Registrado em: 23 Jul 2013, 10:32

DIGITAÇÃO SEM ACENTUAÇÃO EM TEMPO REAL

Mensagem por Gonzaga » 24 Jun 2015, 11:55

Esta função serve para evitar a digitação de caractéres especiais como ã, é, ç, etc..
É uma função para ser usada por exemplo, em cadastro de clientes, no nome do cliente. O objetivo é padronizar a digitação sem acentuação. A digitação sem acentuação facilita em muito a pesquisa dos nomes.

Selecione o campo NOME_DO_CLIENTE (por exemplo)

Na Ação KeyPress com o F9 coloque a função:

Private Sub FRM_0001F9(KeyAscii As Integer)
If (KeyAscii >= 33 And KeyAscii <= 47) _
Or (KeyAscii >= 58 And KeyAscii <= 64) _
Or (KeyAscii >= 91 And KeyAscii <= 96) _
Or (KeyAscii >= 123 And KeyAscii <= 126) _
Or (KeyAscii >= 128) Then KeyAscii = 0
End Sub

vai ficar assim:
FRM_0001F9(KeyAscii)

Pronto. O usuário não vai conseguir digitar o nome com acentuação gráfica.

Responder

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 2 visitantes