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]Relatorio em pdf

    Compartilhe

    neno.drimi
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 21/03/2013

    [Resolvido]Relatorio em pdf

    Mensagem  neno.drimi em Qui 05 Dez 2013, 23:16

    Boa Noite, desde ja agradeço atenção.

    Quero encaminhar o relatório do access através do access em pdf o código abaixo esta funcionando porem a unica parte que esta dando erro é ao anexar....

    ...DoCmd.OutputTo acOutputReport, "Expansao", acFormatPDF, ""...


    Private Sub ENVIAR()
    Dim OutApp As Outlook.Application
    Dim OutMail As Outlook.MailItem
    Dim DB As DAO.Database
    Dim TB As DAO.Recordset

    Set DB = CurrentDb
    Set TB = DB.OpenRecordset("Tbl_EMAIL")
    Set tba = DB.OpenRecordset("Tbl_Expansao")
       
        TB.MoveFirst
         
           Set OutApp = CreateObject("Outlook.Application")
           Set OutMail = OutApp.CreateItem(olMailItem)
       
           With OutMail
               .To = TB!CD_LOGIN_GESTOR
               '.Cc = TB!CD_LOGIN
               .Subject = "Nova Grade - " & tba!Marca & " - " & tba!Servico
               .HTMLBody = "" & "Caro Colaborador (a)" & "

    Segue notificação de " & TB!DEPTO & ""
               .HTMLBody = .HTMLBody & "

    Atenciosamente.

    "

                DoCmd.OutputTo acOutputReport, "Expansao", acFormatPDF, ""
         
            .Display
         
           End With

     Set OutMail = Nothing
     Set OutApp = Nothing
     
    End Sub

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Relatorio em pdf

    Mensagem  JPaulo em Sex 06 Dez 2013, 09:30

    Teste assim;

    Public Function ENVIAR()
    Dim OutApp As Outlook.Application
    Dim OutMail As Outlook.MailItem
    Dim DB As DAO.Database
    Dim TB As DAO.Recordset
    Dim tba As DAO.Recordset

    Set DB = CurrentDb
    Set TB = DB.OpenRecordset("Tbl_EMAIL")
    Set tba = DB.OpenRecordset("Tbl_Expansao")

    TB.MoveFirst
    tba.MoveFirst

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(olMailItem)

    DoCmd.OutputTo acOutputReport, "Expansao", acFormatPDF, "C:\Expansao.pdf", False, , , acExportQualityPrint

    With OutMail
    .To = TB!CD_LOGIN_GESTOR
    '.Cc = TB!CD_LOGIN
    .Subject = "Nova Grade - " & tba!Marca & " - " & tba!Servico
    .Body = "Caro Colaborador (a)" & vbNewLine & "Segue notificação de " & TB!DEPTO & "" & vbNewLine & "Atenciosamente."
    .Attachments.Add "C:\Expansao.pdf"
    .Display

    End With

    Set OutMail = Nothing
    Set OutApp = Nothing
    TB.Close: Set TB = Nothing
    tba.Close: Set TB = Nothing
    End Function


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

    neno.drimi
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 21/03/2013

    Re: [Resolvido]Relatorio em pdf

    Mensagem  neno.drimi em Sex 06 Dez 2013, 12:55

    Olá JPaulo deu certo o código, porém quando eu localizo outro registro no formulário e testo o envio do e-mail não atualiza os dados do subject, mantem a informação do primeiro registro, quanto ao anexo OK esta certinho, como fazer isso, por favor!

    Esta é a parte do código que não roda:

    .Subject = "Nova Grade - " & tba!Marca & " - " & tba!Servico

    eu pensei em mudar o Set tba = DB.OpenRecordset("tbl_Expansao")

    para Set tba = DB.OpenRecordset("qry_Expansao")
    e o subject para .Subject = "Nova Grade - " & qry!Marca & " - " & qry!Servico
    mas não roda o código...

    Agradeço o retorno.

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Relatorio em pdf

    Mensagem  JPaulo em Sex 06 Dez 2013, 13:01

    Ola;

    Isso é porque na abertura do Recordset você não tem o Where;

    Tem de fazer algo assim;

    Se o campo for Texto;
    Set tba = db.OpenRecordset("SELECT * FROM tbl_Expansao WHERE SeuCampoNaTabela='" & Me.SeuCampoNoFormulario & "'")

    Se o campo for numerico;
    Set tba = db.OpenRecordset("SELECT * FROM tbl_Expansao WHERE SeuCampoNaTabela=" & Me.SeuCampoNoFormulario")


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

    neno.drimi
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 21/03/2013

    Re: [Resolvido]Relatorio em pdf

    Mensagem  neno.drimi em Sex 06 Dez 2013, 13:18

    Ok, tentei mas nao rodou.

    ficou desta forma

    Set tba = DB.OpenRecordset("SELECT * FROM tbl_Expansao WHERE Marca='" & Marca & "'")

    Deu erro e tba.MoveFirst informa que não há registro.
    não prossegue, o código trava.

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Relatorio em pdf

    Mensagem  JPaulo em Sex 06 Dez 2013, 14:04

    Anexe aqui por favor, parte do seu banco.


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

    neno.drimi
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 21/03/2013

    Re: [Resolvido]Relatorio em pdf

    Mensagem  neno.drimi em Sex 06 Dez 2013, 15:10

    JPaulo anexo o banco, desde já agradeço.

    Public Function ENVIAR()
    Dim OutApp As Outlook.Application
    Dim OutMail As Outlook.MailItem
    Dim DB As DAO.Database
    Dim TB As DAO.Recordset
    Dim tba As DAO.Recordset

    Set DB = CurrentDb
    Set TB = DB.OpenRecordset("Tbl_EMAIL")
    Set tba = DB.OpenRecordset("Tbl_Expansao")

    TB.MoveFirst
    tba.MoveFirst

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(olMailItem)

    DoCmd.OutputTo acOutputReport, "Expansao", acFormatPDF, "C:\Expansao.pdf", False, , , acExportQualityPrint

    With OutMail
    .To = TB!CD_LOGIN_GESTOR
    '.Cc = TB!CD_LOGIN
    .Subject = "Nova Grade - " & tba!Marca & " - " & tba!Servico
    .Body = "Caro Colaborador (a)" & vbNewLine & "Segue notificação de " & TB!DEPTO & "" & vbNewLine & "Atenciosamente."
    .Attachments.Add "C:\Expansao.pdf"
    .Display

    End With

    Set OutMail = Nothing
    Set OutApp = Nothing
    TB.Close: Set TB = Nothing
    tba.Close: Set TB = Nothing
    End Function

    neno.drimi
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 21/03/2013

    Re: [Resolvido]Relatorio em pdf

    Mensagem  neno.drimi em Sex 06 Dez 2013, 15:14

    Anexo o banco!
    Anexos
    Base.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (610 Kb) Baixado 14 vez(es)

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Relatorio em pdf

    Mensagem  JPaulo em Sex 06 Dez 2013, 15:26

    Você tem de remover o código do módulo.

    E colocar num botão no seu formulario;

    Assim;

    Private Sub SeuBotão_Click()
    Dim OutApp As Outlook.Application
    Dim OutMail As Outlook.MailItem
    Dim DB As DAO.Database
    Dim TB As DAO.Recordset
    Dim tba As DAO.Recordset

    Set DB = CurrentDb
    Set TB = DB.OpenRecordset("Tbl_EMAIL")
    Set tba = DB.OpenRecordset("select * from tbl_Expansao where Marca='" & Me.Marca.Value & "'")



    TB.MoveFirst
    tba.MoveFirst

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(olMailItem)


    DoCmd.OutputTo acOutputReport, "Expansao", acFormatPDF, "C:\Expansao.pdf", False, , , acExportQualityPrint

    With OutMail
    .To = TB!CD_LOGIN_GESTOR
    '.Cc = TB!CD_LOGIN
    .Subject = "Nova Grade - " & tba!Marca & " - " & tba!Servico
    .Body = "Caro Colaborador (a)" & vbNewLine & "Segue notificação de " & TB!DEPTO & "" & vbNewLine & "Atenciosamente."
    .Attachments.Add "C:\Expansao.pdf"
    .Display

    End With

    Set OutMail = Nothing
    Set OutApp = Nothing
    TB.Close: Set TB = Nothing
    tba.Close: Set TB = 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.]

    neno.drimi
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 21/03/2013

    Re: [Resolvido]Relatorio em pdf

    Mensagem  neno.drimi em Sex 06 Dez 2013, 16:37

    Deu certo JPaulo muito obrigado, a única coisa que eu tive que mudar foi:

    Set tba = DB.OpenRecordset("select * from tbl_Expansao where Marca='" & Me.Marca.value & "'")
    Set tba = DB.OpenRecordset("select * from tbl_Expansao where Servico='" & Me.Servico.value & "'")

    Para ler ambos campos no Subject

    Deu Certo, muito obrigado pela ajuda.

    Abraços

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Relatorio em pdf

    Mensagem  JPaulo em Seg 09 Dez 2013, 09:18

    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: Sab 10 Dez 2016, 12:37