[Resolvido]Impedir a 2ª Msgbox no mesmo botão de comando

Boa tarde Amigos

Tenho o código abaixo num Botão para imprimir um relatório, e de seguida criar um PDF do mesmo relatório.

Mas acontece o seguinte:
Se o relatório não tiver dados, ele  não abre, mas continua a pergunta para a 2ª Msgbox "Criar Documento em PDF ".
Como impedir (2ª MsgBox) criar PDF se o relatório não tem dados ?  


If MsgBox("Deseja Imprimir ?", vbQuestion + vbYesNo, "Atenção") = vbYes Then
  DoCmd.OpenReport "Requisicaoforn", acPreview
          If MsgBox("Criar Documento em P. D. F. ? ", vbYesNo, "P. D. F.") = vbYes Then
               Dim Caminho As String
                  Caminho = BackEndPath & "\PDF\"
                      Dim strArquivo As String
                      Dim strLocal As String
                            strArquivo = "Produtos Requisitados " & "" & Fornecedor & "" & " - " & Format$(Date, "dd-mm-yyyy")
                                     strLocal = Caminho & strArquivo & ".pdf"

If err = 2501 Then
err.Clear
DoCmd.Close
Me.Foco.SetFocus
End If
End If
Else
Me.Foco.SetFocus
End If

Você está usando o "On error resume next"?

Boa tarde Damasceno

Neste codigo ... Não.

Assis escreveu:Se o relatório não tiver dados, ele não abre...

Qual código você utiliza para impedir a abertura do relatório?


Se for no evento "Se nenhum dado" do relatório cancelando a abertura então deveria dar um erro. Ou nesse evento do relatório você deve estar usando o "on error resume next".

Se estiver usando isso no relatório, retire e trate o erro no código do seu botão.

A propriedade do relatório " Se nenhum dado".

Certo
No acontecimento do relatório uso o On Error resume next.
Vou testar e retorno.
Obrigado Damasceno

Obrigado Damasceno

O fórum agradece o retorno. Sucesso.