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]Como Unir Registros de um mesmo campo em grupos de número determinado

    avatar
    ccb
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 27/11/2011

    [Resolvido]Como Unir Registros de um mesmo campo em grupos de número determinado Empty [Resolvido]Como Unir Registros de um mesmo campo em grupos de número determinado

    Mensagem  ccb 5/7/2012, 19:29

    Srs.
    tenho uma tabela de clientes com um campo para e-mail. Preciso de um código que gere uma consulta na qual unifique os e-mails, separe-os com ";", e exiba-os em grupos de 30 em 30 registros.

    Agradeço alguma luz.

    Abçs
    avatar
    rgondim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 24/02/2012

    [Resolvido]Como Unir Registros de um mesmo campo em grupos de número determinado Empty Re: [Resolvido]Como Unir Registros de um mesmo campo em grupos de número determinado

    Mensagem  rgondim 6/7/2012, 01:34

    Acredito que uma DAO.Recordset como o modelo abaixo servirá.
    O Select com Top 30 limitará o número até 30 emails.
    Contudo, precisaria encontrar uma maneira de continuar com os próximos 30 e assim por diante.

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strEmails As String

    Set db = CurrentDb()
    Set rs = db.OpenRecordset("SELECT TOP 30 * FROM NomeTabela WHERE (caso haja)")

    rs.MoveFirst
    Do While Not rs.EOF
    strEmails = rs.Fields("CampoEmail") & "; "
    rs.MoveNext
    Loop

    rs.close
    db.close
    rs = nothing
    db = nothing

      Data/hora atual: 8/12/2024, 09:24