MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    [Resolvido]Campo e-mail repetindo

    lipe322
    lipe322
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Campo e-mail repetindo Empty [Resolvido]Campo e-mail repetindo

    Mensagem  lipe322 10/7/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 18/8/2015, 13:31, editado 1 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Campo e-mail repetindo Empty Re: [Resolvido]Campo e-mail repetindo

    Mensagem  Alvaro Teixeira 12/7/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: 28/3/2024, 20:57