MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Padronizar Campo

    Compartilhe

    Ney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 208
    Registrado : 08/10/2012

    [Resolvido]Padronizar Campo

    Mensagem  Ney em Qui 11 Ago 2016, 15:33

    Pessoal Bom dia!!!

    Estou querendo implementar um códio que corrija e faça a padronização dos dados que são inseridos, tenho um campo "End_Contato" que encontrei varios erros de padronização,exemplo,

    Por padrão foi acertados que:

    "Rua" seria somente "R"
    "Travessa" seria somente "Tv"
    "Rodovia" seria somente "Rd"

    Mas mesmo assim o erro persiste, então tentei implementa um código,



    Código:
        If End_Contato= "Rua" Then
            me.End_Contato= "R"
            
            ElseIf End_Contato= "Travessa" Then
            me.End_Contato= "TV"
            
            ElseIf End_Contato= "Rodovia" Then
            me.End_Contato= "RD"
                
         End If


    A milha dúvida é como colocaria esse evento para disparar apos liberar a tecla "espaço", ou se tiver alguma ideia melhor, favor compartilhem conosco,

    Att; Sidney

    Convidado
    Convidado

    Re: [Resolvido]Padronizar Campo

    Mensagem  Convidado em Qui 11 Ago 2016, 15:51


    Ney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 208
    Registrado : 08/10/2012

    Re: [Resolvido]Padronizar Campo

    Mensagem  Ney em Qui 11 Ago 2016, 17:38

    Perfeito Avelino

    Muito obrigado!!

    Att; Sidney

      Data/hora atual: Qui 08 Dez 2016, 14:04