On Error GoTo err

DoCmd.GoToRecord , , acLast
i = Me.CurrentRecord
DoCmd.GoToRecord , , acFirst
exit_form_open:
Exit Sub
err:
MsgBox "您查找的产品没有进一步的信息"
DoCmd.Close

这是我从技术教程里找的解决窗体白版的代码，只要拷到窗体的“属性/事件/打开”就行，很好用。我不懂编程，想把他用在报表上，请大家指点如何修改。