[讨论]為何報表在沒數據時取消，還會有一提示出現。

HG

Private Sub Report_NoData(Cancel As Integer)

MsgBox "不好意思!請當前的操作無數據產生,請檢查您的操作,或與技術人員聯繫.", vbokonyly, "提示"
Cancel = True /* ?此時取消噹前報表操作，但為什麼還有一對話框彈出

End Sub
-------------------------------------------------------------------
怎樣來禁止cancel = true時彈出的對話框哪？

freemanager

在OpenReport的代码处加错误处理：
On Error Resume Next

HG

freemanager快來，您說的似乎並沒有解決問題？
現在我還在為它所困，雖然事小，但我總想找出解決問題的方法。請各位再指點。多謝!

[此贴子已经被HG于2002-7-9 17:17:57编辑过]

huanghai

HG，你的原因是不是错误处理程序的问题。
你的代码本身没有问题，而是因为你用接钮打开报表的，打开没有数据的报表同时会激发按钮的取消事件，在错误码2501(ERR.NUMBER<>2501)来做。

freemanager

VBE窗口
更改工具》》选项中：发生错误则中断改为在类模块中中断或遇到未处理的错误则中断。
默认发生错误则中断，则系统的异常处理截断了代码的异常处理。

HG

Private Sub Report_NoData(Cancel As Integer)
' Display a message if user enters a date for which there are no records,
' and don't preview or print report.

    Dim strMsg As String, strTitle As String
    Dim intStyle As Integer
   
    strMsg = "You must enter a date between 10-July-1996 and 06-May-1998."
    intStyle = vbOKOnly
    strTitle = "No Data for Date Range"
   
    MsgBox strMsg, intStyle, strTitle
    Cancel = True

End Sub
這上微軟北風交易項目年度報表的例程，此問題同樣存在，怪哉怪哉。
不過它在收集輸入參數時進行了控制，所以沒有數據的報表出現率很低，
我已按freemanager的思路改過，但還不能解決問題。
不知huanghai的思路如何，可否詳細的講解一下，多多謝!
向高手學習是我進步的動力。

HG

freemanager,huanghui,其寮在VBA中只要您用這條語句。
cancel = true 就會有上術情況出現，並不只是在報表中存在，
所以解決此問題，很有作用，不是嗎？

yuab

将提示框放到按钮的错误处理中便不会存在这个问题。

Err_click:
MsgBox "不好意思!請當前的操作無數據產生,請檢查您的操作,或與技術人員聯繫.", vbokonyly, "提示"
End sub

freemanager

不知道你真的试了没有？？

HG

天呀，各位高高高手，我差不多快試夠X遍了。