[Resolvido]Converter em Maiúscula - CEP

Bruno.K 1/2/2012, 15:53

Bruno.K: Novato; Respeito às regras :

Sexo :
Localização :
Mensagens : 26
Registrado : 19/12/2011

Mensagem nº1

Converter em Maiúscula - CEP

Mensagem Bruno.K 1/2/2012, 15:53

Boa tarde!

Tenho adaptado em um formulário de cadastro de funcionários a base de CEPs OnOffLine do criquio (onde vc coloca o CEP e o sistema preenche automaticamente o endereço, bairro, cidade e estado) e as informações estão escritas com letras maiúsculas, minúsculas e seus devidos acentos. Por exemplo, se eu coloco um determinado CEP e dou 'Enter' dai preenche: Rua da Consolação... etc.

Acontece que meu BD é inteiramente padronizado para escrever somente em maiúsculo e sem nenhuma acentuação.

Gostaria de saber como converter esses dados todos para maiúsculo e sem acentos.

Ex: Endereço: Avenida São Cristóvão
Bairro : Jardim Europa
Cidade : São Paulo

Teria que ficar: Endereço: AVENIDA SAO CRISTOVAO
Bairro : JARDIM EUROPA
Cidade : SAO PAULO

*Obs.: Já tentei usando o ">" no formado do campo, porém não serviu porque ele serve somente de maquiagem, pois na tabela fica escrito da forma escrita com maiúsculas, minúsculas e acentos e eu gostaria que fosse realmente convertido e salvo na tabela totalmente em maiúsculo e sem acentos.

Outro detalhe é que, caso exista algum código para o meu problema, teria que ser colocado tipo no evento 'Ao perder foco' do campo CEP, pois como disse acima, eu preencho o CEP e ele traz os dados baseado no CEP informado.

Me ajudem por favor.

criquio 1/2/2012, 16:57

criquio

criquio: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

Mensagem nº2

Re: [Resolvido]Converter em Maiúscula - CEP

Mensagem criquio 1/2/2012, 16:57

Esse é um exemplo que eu criei a tempos atrás, ou, pelo menos, eu criei um exemplo ao qual dei esse nome. Se for esse o exemplo, pode tirar os acentos no próprio código, pois lá tem uma função para converter os caracteres acentuados. Por exemplo, a linha abaixo coloca o acento agudo no "a":

Me.End = Replace(Me.End, "%E1", "á")

Basta tirar o acento da letra:

Me.End = Replace(Me.End, "%E1", "a")

E para colocar tudo em maiúscula, pode fazer assim:

Me.End = strConv(Replace(Me.End, "%E1", "á"), 1)

.................................................................................

Meu novo site: www.vcssistemas.com.br

Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
1 - faça uma cópia do aplicativo
2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
3 - use o Compactar/Reparar
4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
Positive as mensagens que achar útil, no canto superior direito delas.

Convidad 1/2/2012, 17:00

Convidad

Convidad: Convidado

Mensagem nº3

Re: [Resolvido]Converter em Maiúscula - CEP

Mensagem Convidad 1/2/2012, 17:00

Este código converte para maiúscula ao digitar:

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

Pesquise por Replace para converter o que já está nas tabelas e para remover sinais ortográficos.

Bruno.K 1/2/2012, 21:24

Bruno.K

Bruno.K: Novato; Respeito às regras :

Sexo :
Localização :
Mensagens : 26
Registrado : 19/12/2011

Mensagem nº4

Converter em Maiúscula - CEP

Mensagem Bruno.K 1/2/2012, 21:24

Norbs, obrigado pela dica!

_______________________________________________________________

criquio, este é sim o modelo que vc criou (PERFEITO POR SINAL), fiz as alterações e, como diz nosso amigo JPaulo... FUNFOU!!!!

Abraço e muito obrigado!

criquio 1/2/2012, 21:44

criquio

criquio: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

Mensagem nº5

Re: [Resolvido]Converter em Maiúscula - CEP

Mensagem criquio 1/2/2012, 21:44

Grato pelo retorno. Só faltou clicar no botão Resolvido.

.................................................................................

Meu novo site: www.vcssistemas.com.br

Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
1 - faça uma cópia do aplicativo
2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
3 - use o Compactar/Reparar
4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
Positive as mensagens que achar útil, no canto superior direito delas.

**JPaulo** 1/2/2012, 22:03

JPaulo

JPaulo: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009

Mensagem nº6

Re: [Resolvido]Converter em Maiúscula - CEP

Mensagem JPaulo 1/2/2012, 22:03

Grande Bruno, aproveite e veja tambem este tópico.

http://maximoaccess.forumeiros.com/t581-funcoes-esquecidas-no-ms-access

.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

Pay-Pal R$ Aqui
Pay-Pal € Aqui

Ou ainda: Aqui (Novo)

Sucesso e Bons Estudos
Success and Good Studies

[Resolvido]Converter em Maiúscula - CEP Folder_announce_new