Erro em tempo de execução ao cancelar o relatorio sem dados

Alguem???

Boa tarde a todos

como faço pra não exibir esse erro

erro em tempo de execução 2501
A ação OpenRepórt foi cancelada

bem...
tenho um caixa de dialogo com data inicio e data de termino

quando não exixte nada pra imprimir ele avisa que "não há dados pra ser impresso"
quando dou ok ele aparece esse erro

****codigo que esta no dialogo onde coloco as datas

Private Sub Comando5_Click()
On Error GoTo Err_Comando5_Click

   Dim stDocName As String

   stDocName = "Rel DespVeiculos"
   DoCmd.OpenReport stDocName, acViewPreview
   
Exit_Comando5_Click:
   Exit Sub

Err_Comando5_Click:
   MsgBox Err.Description
   Resume Exit_Comando5_Click
   
End Sub
Private Sub Comando7_Click()
On Error GoTo Err_Comando7_Click

   Dim stDocName As String

   stDocName = "Rel DespVeiculos"
   DoCmd.OpenReport stDocName, acNormal
       
Exit_Comando7_Click:
   Exit Sub

Err_Comando7_Click:
   MsgBox Err.Description
   Resume Exit_Comando7_Click
   
End Sub
Private Sub Comando8_Click()
On Error GoTo Err_Comando8_Click

   DoCmd.Close

Exit_Comando8_Click:
   Exit Sub

Err_Comando8_Click:
   MsgBox Err.Description
   Resume Exit_Comando8_Click
 
End Sub

Private Sub Visualizar_Click()
   If IsNull([DatadeInicio]) Or IsNull([DatadeTérmino]) Then
       MsgBox "Você deve informar as datas inicial e final."
       DoCmd.GoToControl "DataDeInicio"
   Else
       If [DatadeInicio] > [DatadeTérmino] Then
           MsgBox "A data final deve ser maior que a data inicial."
           DoCmd.GoToControl "DataDeInicio"
       Else
           Me.Visible = False
       End If
   End If
End Sub


***** comando pra ir pra o relatorio
Private Sub Comando98_Click()

   Dim stDocName As String
   DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

'O ERRO OCORRE NA LINHA ABAIXO   
DoCmd.OpenReport "Rel DespVeiculos", acViewNormal, "", "[id_veiculos]=[Forms]![Frm manutencao]![id_veiculos]"

Exit_Comando98_Click:
   Exit Sub

Err_Comando98_Click:
   MsgBox Err.Description
   Resume Exit_Comando98_Click
End Sub

**** no relatorio
Private Sub Report_Close()
  DoCmd.Close acForm, "Dialogo Data"
End Sub

Private Sub Report_NoData(Cancel As Integer)
   MsgBox "Não há dados para este relatório. Cancelando o relatório..."
   Cancel = -1
End Sub

Private Sub Report_Open(Cancel As Integer)
   DoCmd.OpenForm "Dialogo Data", , , , , acDialog, "Frm Manutencao"
   If Not IsLoaded("Dialogo Data") Then
       Cancel = True
   End If
End Sub

*** modulo
aqui faz a leitura e abre a caixa de datas quando manda imprimir o relatorio
função

Function IsLoaded(ByVal strFormName As String) As Integer
' Retorna True se o formulário especificado está aberto no modo Formulário ou no modo Folha de Dados.
   Const conObjStateClosed = 0
   Const conDesignView = 0

   If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
       If Forms(strFormName).CurrentView <> conDesignView Then
           IsLoaded = True
       End If
   End If
End Function

agradeço aos que podem ajudar e tambem os que não podem
Helder

Helder

Esse relatório deve ter uma tabela ou consulta de base (Fonte de registros)
Se não tiver crie uma, colocando no critério, as datas de inicio e fim
Vou dizer que seja "Cons_DespVeiculos", só para ilustrar.
O critério:

Para [DatadeInicio]: coloque na coluna: >=Forms!Nomedoform!DatadeInicio

Para [DatadeTérmino] : <= Forms!Nomedoform!Datadetermino

Agora esse relatório só abrirá com os critério pedidos (datas) no form.

Aqui o código que colocará no botão para abrir o relatório:

Private Sub Comando5_Click()
On Error GoTo Err_Comando5_Click

If  Dcount("*","Cons_DepsVeiculos") = 0 then
     MsgBox "Não há dados para este relatório. Cancelando o relatório...",vbinformation,"Sem dados para exibir"
   Exit Sub
Else
  DoCmd.OpenReport  "Rel DespVeiculos", acViewPreview
End dif 

Exit_Comando5_Click:
  Exit Sub

Err_Comando5_Click:
  MsgBox Err.Description
  Resume Exit_Comando5_Click
 
End Sub

Com isso, se não houver registros, o relatório nem sequer irá ser aberto.

[ ]'s

Amigo Noobezinho
Boa noite

Vou fazer como disse
tenho uma select no relatorio, mais posso fazer uma consulta
caso der o mesmo problema eu retorno
at+

muito grato
Helder