[Resolvido]Como resolver o "Erro: 2501" de uma Ribbon

On error goto TrataErro
docmd.OpenReport "NomeRelatorio",acViewPreview 
Sair:
   Exit function
TrataErro:
   if err.number = 2501 then
      Msgbox "RElatório sem dados...
      resume sair:
   end if

Public Function fncAbrirObjeto(NomeObjeto As String, tipoObjeto As Byte)
On Error GoTo trataerro

Select Case tipoObjeto
   Case 1 'formulário
      DoCmd.OpenForm NomeObjeto
   Case 2 'relatório
      DoCmd.OpenReport NomeObjeto, acViewPreview
   Case 3 'Consulta
      DoCmd.OpenQuery NomeObjeto
End Select

sair:
    Exit Function
trataerro:
    if err.number = 2501 then
       Msgbox "Relatório sem dados...", vbCritical, "Aviso"
    else
       MsgBox "Erro: " & Err.Number & vbCrLf & Err.Description, vbCritical, "Aviso", Err.HelpFile, Err.HelpContext
    end if
    Resume sair:
End Function