MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Campo e-mail repetindo

    Compartilhe
    avatar
    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)
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4161
    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: Qui 20 Jul 2017, 15:38