这段 代码对吗??

hamajing

别人的一段代码*******************

查询窗体打开时不显示空白的代码：按某种条件进行查询，目的是要打开一个显示窗体。可是有时候或因为输错条件，或因为根本没这个记录，那么你可能得到一个非常让你失望的呆板的“白板窗体”。避免这种情况发生的做法就是，在该窗体的“打开”属性中输入以下代码：
          On Error GoTo err

DoCmd.GoToRecord , , acLast
i = Me.CurrentRecord
    DoCmd.GoToRecord , , acFirst
exit_form_open:
  Exit Sub
err:
  MsgBox "您要查找的数据不存在，请核实后重新输入。"
  DoCmd.Close<BR >************************************************************************<BR >这段代码不对啊!!!!!           只弹出一个提示框 "您要查找的数据不存在，请核实后重新输入。"
空白窗体还是会出现啊    怎么改改啊??????

l2007

[em02][em02][em02]