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]Campo e-mail repetindo

    Compartilhe

    lipe322
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 27/05/2015

    [Resolvido]Campo e-mail repetindo

    Mensagem  lipe322 em Sex 10 Jul 2015, 17:52

    Boa Tarde Pessoal!!
    Venho Pedir a ajuda de Vocês porque estou com o seguinte problema!
    Tenho uma tabela [Clientes] com Mais de 20 Mil Registros,o Campo (E-mail) desta tabela esta com todos os Emails (registros) dessa forma:  teste@teste.com.br#http://teste@teste.com.br#
    Ou seja vem o E-mail normal e em seguida vem esse "#http://" repetindo o E-mail...

    Gostaria de Saber se tem como Fazer um evento de loop que Delete tudo que estiver após o #(jogo da velha) de cada E-mail pois Fazer isso "Na unha" levaria uma eternidade.

    desde já Obrigado!!


    Última edição por lipe322 em Ter 18 Ago 2015, 13:31, editado 1 vez(es)

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3211
    Registrado : 15/03/2013

    Re: [Resolvido]Campo e-mail repetindo

    Mensagem  ahteixeira em Dom 12 Jul 2015, 11:09

    Olá, coloque a função abaixo num modulo:

    Código:
    Function fncAjustaEmail(strEmail As String)
        fncAjustaEmail = Left(strEmail, InStr(strEmail, "#") - 1)
    End Function

    Para chamar:

    fncAjustaEmail(NomeDoCampo)

    Pode fazer uma consulta atualizar, utilizando a função.

    Abraço

      Data/hora atual: Qua 07 Dez 2016, 08:37