[Resolvido]Relatorio em pdf

neno.drimi 5/12/2013, 23:16

neno.drimi: Novato; Respeito às regras :

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

Mensagem nº1

[Resolvido]Relatorio em pdf

Mensagem neno.drimi 5/12/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** 6/12/2013, 09:30

JPaulo

JPaulo: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 11016
Registrado : 04/11/2009

Mensagem nº2

Re: [Resolvido]Relatorio em pdf

Mensagem JPaulo 6/12/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.

Pay-Pal R$ Aqui
Pay-Pal € Aqui

Ou ainda: Aqui (Novo)

Sucesso e Bons Estudos
Success and Good Studies

[Resolvido]Relatorio em pdf Folder_announce_new

Utilize o Sistema de Busca do Fórum...
[Resolvido]Relatorio em pdf Folder_announce_new

102 Códigos VBA Gratuitos...
[Resolvido]Relatorio em pdf Folder_announce_new

Instruções SQL como utilizar...

neno.drimi 6/12/2013, 12:55

neno.drimi

neno.drimi: Novato; Respeito às regras :

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

Mensagem nº3

Re: [Resolvido]Relatorio em pdf

Mensagem neno.drimi 6/12/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** 6/12/2013, 13:01

JPaulo

JPaulo: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 11016
Registrado : 04/11/2009

Mensagem nº4

Re: [Resolvido]Relatorio em pdf

Mensagem JPaulo 6/12/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.

Pay-Pal R$ Aqui
Pay-Pal € Aqui

Ou ainda: Aqui (Novo)

Sucesso e Bons Estudos
Success and Good Studies

[Resolvido]Relatorio em pdf Folder_announce_new

Utilize o Sistema de Busca do Fórum...
[Resolvido]Relatorio em pdf Folder_announce_new

102 Códigos VBA Gratuitos...
[Resolvido]Relatorio em pdf Folder_announce_new

Instruções SQL como utilizar...

neno.drimi 6/12/2013, 13:18

neno.drimi

neno.drimi: Novato; Respeito às regras :

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

Mensagem nº5

Re: [Resolvido]Relatorio em pdf

Mensagem neno.drimi 6/12/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** 6/12/2013, 14:04

JPaulo

JPaulo: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 11016
Registrado : 04/11/2009

Mensagem nº6

Re: [Resolvido]Relatorio em pdf

Mensagem JPaulo 6/12/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.

Pay-Pal R$ Aqui
Pay-Pal € Aqui

Ou ainda: Aqui (Novo)

Sucesso e Bons Estudos
Success and Good Studies

[Resolvido]Relatorio em pdf Folder_announce_new

Utilize o Sistema de Busca do Fórum...
[Resolvido]Relatorio em pdf Folder_announce_new

102 Códigos VBA Gratuitos...
[Resolvido]Relatorio em pdf Folder_announce_new

Instruções SQL como utilizar...

neno.drimi 6/12/2013, 15:10

neno.drimi

neno.drimi: Novato; Respeito às regras :

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

Mensagem nº7

Re: [Resolvido]Relatorio em pdf

Mensagem neno.drimi 6/12/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 6/12/2013, 15:14

neno.drimi

neno.drimi: Novato; Respeito às regras :

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

Mensagem nº8

Re: [Resolvido]Relatorio em pdf

Mensagem neno.drimi 6/12/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** 6/12/2013, 15:26

JPaulo

JPaulo: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 11016
Registrado : 04/11/2009

Mensagem nº9

Re: [Resolvido]Relatorio em pdf

Mensagem JPaulo 6/12/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.

Pay-Pal R$ Aqui
Pay-Pal € Aqui

Ou ainda: Aqui (Novo)

Sucesso e Bons Estudos
Success and Good Studies

[Resolvido]Relatorio em pdf Folder_announce_new

Utilize o Sistema de Busca do Fórum...
[Resolvido]Relatorio em pdf Folder_announce_new

102 Códigos VBA Gratuitos...
[Resolvido]Relatorio em pdf Folder_announce_new

Instruções SQL como utilizar...

neno.drimi 6/12/2013, 16:37

neno.drimi

neno.drimi: Novato; Respeito às regras :

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

Mensagem nº10

Re: [Resolvido]Relatorio em pdf

Mensagem neno.drimi 6/12/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** 9/12/2013, 09:18

JPaulo

JPaulo: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 11016
Registrado : 04/11/2009

Mensagem nº11

Re: [Resolvido]Relatorio em pdf

Mensagem JPaulo 9/12/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.

Pay-Pal R$ Aqui
Pay-Pal € Aqui

Ou ainda: Aqui (Novo)

Sucesso e Bons Estudos
Success and Good Studies

[Resolvido]Relatorio em pdf Folder_announce_new

Utilize o Sistema de Busca do Fórum...
[Resolvido]Relatorio em pdf Folder_announce_new

102 Códigos VBA Gratuitos...
[Resolvido]Relatorio em pdf Folder_announce_new

Instruções SQL como utilizar...

Conteúdo patrocinado

Conteúdo patrocinado

Conteúdo patrocinado

Mensagem nº12

Re: [Resolvido]Relatorio em pdf

Mensagem Conteúdo patrocinado

MaximoAccess

MaximoAccess

MaximoAccess

[Resolvido]Relatorio em pdf

[Resolvido]Relatorio em pdf

Re: [Resolvido]Relatorio em pdf

Re: [Resolvido]Relatorio em pdf

Re: [Resolvido]Relatorio em pdf

Re: [Resolvido]Relatorio em pdf

Re: [Resolvido]Relatorio em pdf

Re: [Resolvido]Relatorio em pdf

Re: [Resolvido]Relatorio em pdf

Re: [Resolvido]Relatorio em pdf

Re: [Resolvido]Relatorio em pdf

Re: [Resolvido]Relatorio em pdf

Re: [Resolvido]Relatorio em pdf

Tópicos semelhantes

Tópicos semelhantes

Pesquisar

Resultados por: Mensagens Tópicos
Pesquisa avançada