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

    [Resolvido]Lista de emails fictícia

    avatar
    Convidad
    Convidado


    [Resolvido]Lista de emails fictícia Empty Lista de emails fictícia

    Mensagem  Convidad 27/11/2011, 17:06

    Preciso de uma listagem de emails fictícios.

    Criei uma tabela "Provedores" com um único campo "Provedor", com registros tais como:
    @gmail.com
    @uol.com.br
    @yahoo.com
    @sinos.net
    @hotmail.com
    ... entre outros, totalizando 20 provedores.

    Tenho outra tabela "Nomes" com 2 campos: "Nome" e "Email".
    O campo "Nome" está preenchido com uns 250 registros.
    O campo "Email" está em branco nestes registros.

    O que desejo é preencher o campo "Email" da tabela "Nomes" concatenando o campo "Nome" destaa tabela com o campo "Provedor" da tabela "Provedores":
    ex.: Nomes!Email = Nomes!Nome & Provedores!Provedor

    Como são apenas 20 provedores para 250 nomes, preciso de um código que gere esta concatenação de modo aleatório e popule o campo email com ela.

    Lembre que estou no backend. Acho que o código tem que estar num módulo global, mas se for preciso criar um form não tem problema.



    Última edição por norbs em 27/11/2011, 20:12, editado 1 vez(es)
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Lista de emails fictícia Empty Re: [Resolvido]Lista de emails fictícia

    Mensagem  criquio 27/11/2011, 18:46

    Ao que parece, você tem duas tabelas, uma de nomes e outras de provedores, é isso mesmo? Tente algo assim:

    Dim rsN As Recordset, rsE As Recordset, N As Integer

    Set rsN = CurrentDb.OpenRecordset("TabelaDeNomes")
    Set rsE = CurrentDb.OpenRecordset("TabelaDeProvedores")

    For Each N In rsN.RecordCount
    Do While Not rsE.EOF
    Me.NomeDoCampo = Me.NomeDoCampo & ";" & rsN!NomeDoCampo & rsE!NomeDoCampo
    rsE.MoveNext
    Loop
    Next

    rsE.Close
    rsN.Close

    Set rsE = Nothing
    Set rsN = Nothing


    .................................................................................
    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.

    avatar
    Convidad
    Convidado


    [Resolvido]Lista de emails fictícia Empty Re: [Resolvido]Lista de emails fictícia

    Mensagem  Convidad 27/11/2011, 20:16

    Criquio:
    Editei meu post, pois não estava bem explicado.
    Entendi seu código, mas peço que observe novamente a questão.
    avatar
    Convidad
    Convidado


    [Resolvido]Lista de emails fictícia Empty Re: [Resolvido]Lista de emails fictícia

    Mensagem  Convidad 28/11/2011, 02:51

    Olá!

    Devido à urgência, editei as entradas manualmente.
    Deixo o post como resolvido, mas se alguém tiver o código, por favor responda.
    Tenho certeza que será útil para a comunidade Maximo.

      Data/hora atual: 20/1/2022, 11:23