如果需要按某种条件进行查询,查询的结果要打开一个窗体显示记录信息,可将窗体基于一个参数查询。但有两种情况需要避免:或因为输错条件,或因为根本没这个记录,这时你可能得到一个非常让你失望的呆板的“白板窗体”。
避免这种情况发生的做法就是,在该窗体的“打开”属性中输入以下代码:
On Error GoTo err
DoCmd.GoToRecord , , acLast
i = Me.CurrentRecord
DoCmd.GoToRecord , , acFirst
exit_form_open:
Exit Sub
err:
MsgBox "您要查找的数据不存在,请核实后重新输入。"
DoCmd.Close
这样做以后,如果你条件输错或没有记录时,系统会弹出警告,并强制窗体不弹出。