[Resolvido]Não salvar o pdf, caso não exista dados

Saudações a todos, tenho 3 relatórios no meu sistema, que ao clicar no botão gerar no meu Formulário, ele cria os arquivos em uma pasta automaticamente executando o seguinte comando, DoCmd.OutputTo acOutputReport, "nfceemitidas", acFormatPDF, "C:\teste\Nfce emitidas.pdf" desejo que se o relatório estiver sem dados ele não gere arquivo. Já tentei utilizar o DoCmd.CancelEvent no meu relatório em nenhum dados mais dessa maneira ele dar erro. Desde já agradeço a atenção de todos !

Gerando o erro, é só trata-lo.

Código:

on error goto trataErro

comando que gera o pdf

sair:
  exit sub

trataerro:
  select case err.number
      case 2501 'acho que é o número do erro do cancelameto de abertura, se não for, ajuste
        err.clear
      case else
        call msgbox(err.description,vbcritical,err.number
  end select

  resume sair

Ele só gerou o primeiro arquivo, vou explicar melhor a situação no meu botão gerar relatorio tenho o seguinte codigo:
DoCmd.OutputTo acOutputReport, "nfce emitidas", acFormatPDF, "C:\Users\Digitaltec Suporte\Desktop\xml\Nfce emitidas.pdf", False
DoCmd.OutputTo acOutputReport, "nfcecanceladas", acFormatPDF, "C:\Users\Digitaltec Suporte\Desktop\xml\Nfce canceladas.pdf", False
DoCmd.OutputTo acOutputReport, "nfceinutilizadas", acFormatPDF, "C:\Users\Digitaltec Suporte\Desktop\xml\Nfce inutilizadas.pdf", False
DoCmd.OutputTo acOutputReport, "nfeemitidas", acFormatPDF, "C:\Users\Digitaltec Suporte\Desktop\xml\Nfe emitidas.pdf", False
DoCmd.OutputTo acOutputReport, "nfecanceladas", acFormatPDF, "C:\Users\Digitaltec Suporte\Desktop\xml\Nfe canceladas.pdf", False
DoCmd.OutputTo acOutputReport, "vendasmonofasica", acFormatPDF, "C:\Users\Digitaltec Suporte\Desktop\xml\Vendas Monofasica.pdf", False

Gostaria se caso algum desses relatórios nao tivesse dados, ele não gere o arquivo e pule para o próximo. Com o codigo informado ao chega no relatorio que nao possui dados ele interrompe os demais códigos.

Código:

on error goto trataErro

  dim bytPonto as byte

  DoCmd.OutputTo acOutputReport, "nfce emitidas", acFormatPDF, "C:\Users\Digitaltec Suporte\Desktop\xml\Nfce emitidas.pdf", False
ponto1:
  bytPonto = 1
  DoCmd.OutputTo acOutputReport, "nfcecanceladas", acFormatPDF, "C:\Users\Digitaltec Suporte\Desktop\xml\Nfce canceladas.pdf", False
ponto2:
  bytPonto = 2
  DoCmd.OutputTo acOutputReport, "nfceinutilizadas", acFormatPDF, "C:\Users\Digitaltec Suporte\Desktop\xml\Nfce inutilizadas.pdf", False
ponto3:
  bytPonto = 3
  DoCmd.OutputTo acOutputReport, "nfeemitidas", acFormatPDF, "C:\Users\Digitaltec Suporte\Desktop\xml\Nfe emitidas.pdf", False
ponto4:
  bytPonto = 4
  DoCmd.OutputTo acOutputReport, "nfecanceladas", acFormatPDF, "C:\Users\Digitaltec Suporte\Desktop\xml\Nfe canceladas.pdf", False
ponto5:
  bytPonto = 5
  DoCmd.OutputTo acOutputReport, "vendasmonofasica", acFormatPDF, "C:\Users\Digitaltec Suporte\Desktop\xml\Vendas Monofasica.pdf", False
ponto6:

sair:
  exit sub

trataerro:
  select case err.number
     case 2501 'acho que é o número do erro do cancelameto de abertura, se não for, ajuste
        err.clear
        if bytPonto = 0 then resume ponto1
        if bytPonto = 1 then resume ponto2
        if bytPonto = 2 then resume ponto3
        if bytPonto = 3 then resume ponto4
        if bytPonto = 4 then resume ponto5
        if bytPonto = 5 then resume ponto6
     case else
        call msgbox(err.description,vbcritical,err.number
  end select

  resume sair

Tente isso:

Código:

    If DCount("*", "[NOME_DA_CONSULTA_DO_RELATORIO]", "[Criterio se houver]") > 0 Then
        DoCmd.OutputTo acOutputReport, "nfceemitidas", acFormatPDF, "C:\teste\Nfce emitidas.pdf"
    End If


Faça uma validação antes de gerar o relatório.

É isso
Att,
FIM

@DamascenoJr Desde já obrigado pela ajuda, coloquei o código informado e em todos os relatórios na opção se nenhum dado coloquei DoCmd.CancelEvent, ao clicar em gerar relatórios ele ainda retorno Erro em tempo de execução '2501' , vou postar a base

Já ajustei o código. Tente novamente.

@Alexandre O seu código funcionar certinho, ficou perfeito. Muito obrigado!!

@DamascenoJr Fiz o teste tbm funcionou dessa forma que vc postou. Muito obrigado

O fórum agradece...
Sucesso !!!

Se usar o método do Alexandre, pode até remover o código do evento "se nenhum dado", uma vez que a verificação de se há dados é feita previamente.

Se usar o código que postei, nesse caso, é as consultas que se fazem desnecessárias, e a instrução SQL pode ficar direto no relatório.

Esse é o bom do fórum: opções.

É verdade, eu já fiz a aquisição de vários cursos relacionado a access e vba, mais lhe digo sem medo que 80% do que sei hoje veio daqui.