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]Copiar campo da tabela varios registro e colar em um único campo

    avatar
    joseantonio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 131
    Registrado : 18/07/2011

    [Resolvido]Copiar campo da tabela varios registro e colar em um único campo Empty Copiar campo da tabela varios registro e colar em um único campo

    Mensagem  joseantonio em 6/11/2012, 00:26

    Prezados, tenho uma tabela cliente contendo o campo e-mail de cada registro, criei uma consulta para que retorna somente com os clientes que possuem e-mail, preciso copiar todos os registros da tabela que possuem e-mail e colar em um único campo do tipo NãoAcoplado, pois esse campo é a base para envio do e-mail. Entre os e-mail preciso que inclua o ponto e virgula sem espaço. Alguém pode me ajudar?
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Copiar campo da tabela varios registro e colar em um único campo Empty Re: [Resolvido]Copiar campo da tabela varios registro e colar em um único campo

    Mensagem  HARYSOHN em 6/11/2012, 01:32

    Boas Jose Antonio, crie um Recordset baseado na SQL desta consulta, faça um loop pelo mesmo... e a cada loop adicione os e-mais a uma variável do tipo String concatenada com ;


    StrEmail = StrEmail & ";"


    Cumprimentos.
    avatar
    joseantonio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 131
    Registrado : 18/07/2011

    [Resolvido]Copiar campo da tabela varios registro e colar em um único campo Empty Re: [Resolvido]Copiar campo da tabela varios registro e colar em um único campo

    Mensagem  joseantonio em 6/11/2012, 17:01

    Não entendi muito bem, será que poderia ser mais detalhado.
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Copiar campo da tabela varios registro e colar em um único campo Empty Re: [Resolvido]Copiar campo da tabela varios registro e colar em um único campo

    Mensagem  HARYSOHN em 6/11/2012, 17:19

    Eis:


    Private Sub btnInseir_Click()
    Dim Rs As DAO.Recordset
    Dim StrEMail
    Set Rs = CurrentDb.OpenRecordset("SELECT * FROM tblE_Mail ;")

    Do While Not Rs.EOF
    StrEMail = StrEMail + Rs!CpEmail & ";"
    Rs.MoveNext
    Loop

    Me.txtEmail = StrEMail

    Rs.Close
    Set Rs = Nothing
    End Sub




    Cumprimentos.
    avatar
    joseantonio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 131
    Registrado : 18/07/2011

    [Resolvido]Copiar campo da tabela varios registro e colar em um único campo Empty Re: [Resolvido]Copiar campo da tabela varios registro e colar em um único campo

    Mensagem  joseantonio em 20/11/2012, 18:34

    Meu código ficou assim:

    Private Sub Comando102_Click()
    Dim Rs As DAO.Recordset
    Dim StrEMail


    Set Rs = CurrentDb.OpenRecordset("SELECT * FROM CAniversariantesEmail;")

    Do While Not Rs.EOF
    StrEMail = StrEMail + Rs![Endereço de Email] & ";"
    Rs.MoveNext
    Loop

    Me.txPara = StrEMail

    Rs.Close
    Set Rs = Nothing

    End Sub

    Preciso agora filtrar por mês de aniversário que esta dentro da consulta "CAniversariantesEmail" campo: "mesniver" no meu form inclui um campo do tipo seletor com o nome "mesniverform", como faço esse filtro nesse código?
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Copiar campo da tabela varios registro e colar em um único campo Empty Re: [Resolvido]Copiar campo da tabela varios registro e colar em um único campo

    Mensagem  HARYSOHN em 21/11/2012, 15:02

    Crie uma caixa de combinação do Tipo Lista de Valores, nesta coloque o nome de todos os meses

    Janeiro;Fevereiro;Março.... etc.

    no Código


    Private Sub btnInseir_Click()
    Dim Rs As DAO.Recordset
    Dim StrEMail
    Set Rs = CurrentDb.OpenRecordset("SELECT * FROM tblE_Mail WHERE Format(CpDataNasc,'mmmm') = '" & Me.txtMEs.Value & "';")

    Do While Not Rs.EOF

    StrEMail = StrEMail + Rs!CpEmail & ";"
    Rs.MoveNext
    Loop

    Me.txtEmail = StrEMail
    Rs.Close
    Set Rs = Nothing
    End Sub


    Cumprimentos.
    avatar
    joseantonio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 131
    Registrado : 18/07/2011

    [Resolvido]Copiar campo da tabela varios registro e colar em um único campo Empty Re: [Resolvido]Copiar campo da tabela varios registro e colar em um único campo

    Mensagem  joseantonio em 21/11/2012, 23:12

    Deu certo, obrigado!

    Se não for pedir muito preciso incluir também neste mesmo filtro outros critérios conforme a seguir: sexo (masculino, feminino, todos); idade (até 20anos, 30anos, 40anos, todos); serviço (serviço selecionado em uma caixa de combinação). Pode me ajudar novamente?
    avatar
    joseantonio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 131
    Registrado : 18/07/2011

    [Resolvido]Copiar campo da tabela varios registro e colar em um único campo Empty Re: [Resolvido]Copiar campo da tabela varios registro e colar em um único campo

    Mensagem  joseantonio em 4/12/2012, 00:35

    Resolvido. Obrigado!
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Copiar campo da tabela varios registro e colar em um único campo Empty Re: [Resolvido]Copiar campo da tabela varios registro e colar em um único campo

    Mensagem  HARYSOHN em 5/12/2012, 21:17

    O Fórum agradece o Retorno.

    Conteúdo patrocinado

    [Resolvido]Copiar campo da tabela varios registro e colar em um único campo Empty Re: [Resolvido]Copiar campo da tabela varios registro e colar em um único campo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/10/2019, 21:38