关于打印报表中无数据时的问题

Dim Num As Integer
If DCount("*", "表名") < 0 Then
MsgBox "无记账凭证编号"
Exit Sub
Num = DCount("*", "表名", "财务凭证号 ='" & Me.财务凭证号 & "'")
Num = Num \ 10 + 1 '分子
Me.TO = Int(Me.i \ 10) + 1 & "/" & Num '分母
End If

End Sub

请高手帮助我看看，如何在无数据时，自动退出，并提示无记账凭证编号，我不知道哪出错了？

现在是没有信息，他也会直接打印出来。