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

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

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

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

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

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