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]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
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9546
    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

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

    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.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9546
    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")


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

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

    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.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9546
    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.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

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

    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)
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9546
    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

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

    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
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Relatorio em pdf

    Mensagem  JPaulo em Seg 09 Dez 2013, 09:18

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

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

    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 22 Set 2017, 14:27