Office中国论坛/Access中国论坛

标题: 这段代码对吗?? [打印本页]

作者: hamajing 时间: 2007-1-13 18:38
标题: 这段代码对吗??
别人的一段代码*******************

查询窗体打开时不显示空白的代码：按某种条件进行查询，目的是要打开一个显示窗体。可是有时候或因为输错条件，或因为根本没这个记录，那么你可能得到一个非常让你失望的呆板的“白板窗体”。避免这种情况发生的做法就是，在该窗体的“打开”属性中输入以下代码：
      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 时间: 2007-1-31 14:59
[em02][em02][em02]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)