MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    Consulta sem registro impede o andamento da geração de relatórios em PDF

    L34NDR0
    L34NDR0
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 353
    Registrado : 29/03/2011

    Consulta sem registro impede o andamento da geração de relatórios em PDF Empty Consulta sem registro impede o andamento da geração de relatórios em PDF

    Mensagem  L34NDR0 Seg 03 Ago 2015, 12:06 pm

    Colegas,

    Estou utilizando o código do Lebans para imprimir relatórios (segmentados por empregado) em PDF.
    Para isso, com a ajuda do colega JPaulo, utilizo o código abaixo (fragmento) no evento "ao clicar do botão" de comando:

    Dim blRet1 As Boolean
    Dim blRet2 As Boolean
    Dim blRet3 As Boolean

    blRet1 = ConvertReportToPDF("ADILSON", vbNullString, _
    "\\meu servidor\minha pasta\ADILSON.pdf", False, False, 0, "", "", 0, 0)
    DoEvents

    blRet2 = ConvertReportToPDF("ADRIANO", vbNullString, _
    "\\meu servidor\minha pasta\ADRIANO.pdf", False, False, 0, "", "", 0, 0)
    DoEvents

    blRet3 = ConvertReportToPDF("AFONSO", vbNullString, _
    "\\meu servidor\minha pasta\AFONSO.pdf", False, False, 0, "", "", 0, 0)
    DoEvents

    O problema:
    Se o empregado "ADRIANO", por exemplo, não tiver nenhum contrato (registro) em seu nome, o access fica rodando, rodando e não segue adiante, deixando todos os outros empregados que vêm depois dele sem seus relatórios...
    alguém pode me ajudar com isso?

    abraços

    Leandro
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    Consulta sem registro impede o andamento da geração de relatórios em PDF Empty Re: Consulta sem registro impede o andamento da geração de relatórios em PDF

    Mensagem  JPaulo Seg 03 Ago 2015, 12:46 pm

    Tente fazer com If, se True então avança;

    Código:
    If ConvertReportToPDF("ADILSON", vbNullString, "\\meu servidor\minha pasta\ADILSON.pdf", False, False, 0, "", "", 0, 0) = True Then
    blRet1 = ConvertReportToPDF("ADILSON", vbNullString, _
    "\\meu servidor\minha pasta\ADILSON.pdf", False, False, 0, "", "", 0, 0)
    DoEvents
    ElseIf ConvertReportToPDF("ADRIANO", vbNullString, "\\meu servidor\minha pasta\ADRIANO.pdf", False, False, 0, "", "", 0, 0) = True Then
    blRet2 = ConvertReportToPDF("ADRIANO", vbNullString, _
    "\\meu servidor\minha pasta\ADRIANO.pdf", False, False, 0, "", "", 0, 0)
    DoEvents
    ElseIf ConvertReportToPDF("AFONSO", vbNullString, "\\meu servidor\minha pasta\AFONSO.pdf", False, False, 0, "", "", 0, 0) = True Then
    blRet3 = ConvertReportToPDF("AFONSO", vbNullString, _
    "\\meu servidor\minha pasta\AFONSO.pdf", False, False, 0, "", "", 0, 0)
    Else
    Exit Sub
    End If


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

    Consulta sem registro impede o andamento da geração de relatórios em PDF Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Consulta sem registro impede o andamento da geração de relatórios em PDF Folder_announce_new 102 Códigos VBA Gratuitos...
    Consulta sem registro impede o andamento da geração de relatórios em PDF Folder_announce_new Instruções SQL como utilizar...
    L34NDR0
    L34NDR0
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 353
    Registrado : 29/03/2011

    Consulta sem registro impede o andamento da geração de relatórios em PDF Empty Re: Consulta sem registro impede o andamento da geração de relatórios em PDF

    Mensagem  L34NDR0 Seg 03 Ago 2015, 1:54 pm

    JPaulo,

    Ao que me parece o caminho é esse, porém, do jeito que você informou, ele roda duas vezes o primeiro relatório e depois pára (não fica mais em loop).

    ??

    Leandro

    P.S. Só acrescentei um "End Sub" no final...
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    Consulta sem registro impede o andamento da geração de relatórios em PDF Empty Re: Consulta sem registro impede o andamento da geração de relatórios em PDF

    Mensagem  JPaulo Ter 04 Ago 2015, 5:20 am

    O End Sub" no final era se eu tivesse colocado o Private no inicio... Very Happy

    Faça um pequeno teste com esta função, para simplificar a coisa.

    Código:
    Function GeraPDFs() As String
    Dim strMsg As String
    Dim rpt As AccessObject, dB As Object
    Dim blRet As Boolean
     
    On Error GoTo Error_Handler
     
    Set dB = Application.CurrentProject
    'Percorre todos os relatórios do banco
        For Each rpt In dB.AllReports
            blRet = ConvertReportToPDF(rpt.Name, vbNullString, "\\meu servidor\minha pasta\" & rpt.Name & ".pdf", False, False, 0, "", "", 0, 0)
        Next rpt

     
    Procedure_Done:
    Exit Function
     
    Error_Handler:
    strMsg = Err.Number & " " & Err.Description
    Resume Procedure_Done
    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

    Consulta sem registro impede o andamento da geração de relatórios em PDF Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Consulta sem registro impede o andamento da geração de relatórios em PDF Folder_announce_new 102 Códigos VBA Gratuitos...
    Consulta sem registro impede o andamento da geração de relatórios em PDF Folder_announce_new Instruções SQL como utilizar...

      Data/hora atual: Sab 17 Abr 2021, 2:38 pm