MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Retornar os e-mails de vários usuários em uma tabela

    Compartilhe

    Madson_Ferrari
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 06/07/2015

    [Resolvido]Retornar os e-mails de vários usuários em uma tabela

    Mensagem  Madson_Ferrari em Ter 25 Ago 2015, 00:38

    Ola pessoal,

    Estou usando o método SendObject para enviar um relatório pdf para alguns usuários. Normalmente digitando os e-mails no VBA conforme abaixo (e-mails exemplo):

    DoCmd.SendObject acSendReport, "RT_Empregados", acFormatPDF, "joaoninguem@yahoo.com.br; [Você precisa estar registrado e conectado para ver este link.]", "marianinguem@yahoo.com.br", , "Relatório Mensal", , False

    Porém estes e-mails estão na tabela empregados e queria busca-los no VBA ao inves de digitar. Ou seja, buscar todos os e-mails da tabela onde a profissão é METROLOGISTA.
    Tentei buscar estes e-mails e coloca-los numa string para usar depois no sendobject mas não deu certo:

    Dim db As Database
    Dim rs As DAO.Recordset
    Set db = CurrentDb
    Set rs = db.OpenRecordset("SELECT * Tabela1.email FROM Tabela1 WHERE (((Tabela1.Profissão)='METROLOGISTA'));"

    A intenção é que a string rs = "joaoninguem@yahoo.com.br; [Você precisa estar registrado e conectado para ver este link.]; [Você precisa estar registrado e conectado para ver este link.]"

    Para que eu possa usa-la no SendObject assim:

    DoCmd.SendObject acSendReport, "RT_Empregados", acFormatPDF, rs , , , "Relatório Mensal", , False

    Se eu fizer uma consulta funciona mas no VBA não consegui. Alguém tem uma dica?


    OBS: Obrigado pela ajuda que vocês tem me dado. Sem o Maximo seria impossível aprender a programar em VBA. Obrigado a todos


    Última edição por Madson_Ferrari em Qui 27 Ago 2015, 00:14, editado 1 vez(es)

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Retornar os e-mails de vários usuários em uma tabela

    Mensagem  JPaulo em Ter 25 Ago 2015, 17:54

    Ao pressionar de um botão no seu formulario;

    Código:
    Private Sub SeuBotão_Click()
    Dim rst As DAO.Recordset
    Dim strDestinatarios
    Dim i As Integer

    Set rst = CurrentDb.OpenRecordset("SELECT * FROM Tabela1 WHERE Profissão='METROLOGISTA'")
    i = 0

    Do Until rst.EOF
        strDestinatarios = strDestinatarios & rst("Email") & ";"
        i = i + 1
        rst.MoveNext
    Loop
       
        strDestinatarios = Left(strDestinatarios, Len(strDestinatarios) - 1)
     
    DoCmd.SendObject acSendReport, "RT_Empregados", acFormatPDF, strDestinatarios, , , "Relatório Mensal", , False
       
    rst.Close
    Set rst = Nothing
    End Sub


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Madson_Ferrari
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 06/07/2015

    Funcionou Perfeito!

    Mensagem  Madson_Ferrari em Qui 27 Ago 2015, 00:16

    JPaulo, o código funcionou perfeito!

    Muito Obrigado pela ajuda.

    Sucesso a todos... Very Happy

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Retornar os e-mails de vários usuários em uma tabela

    Mensagem  JPaulo em Qui 27 Ago 2015, 09:38

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Sex 09 Dez 2016, 13:28