access窗体查询按钮功能

Question

Private Sub 查询订单_Click()
no = InputBox("请输入订单", "提示")
On Error GoTo err_查询订单_click
If Nz(no) = Nz(DLookup("[订单号]", "供货商清单", "[订单号]=" & "'" & 订单号 & "'")) And Me.订单号 <> "" Then
DoCmd.GoToRecord acDataForm, "供货商情况", acGoTo, no
Else
MsgBox "输入的订单号有误，请您重新输入！", , "错误"
End If
exit_查询订单_click:
Exit Sub
err_查询订单_click:
MsgBox Err.Description
Resume exit_查询订单_click
End Sub
上面是我乱的一个代码，主要目的就是想通过文本框输入，然后通过比对输入的订单号与表“供货商清单”中的是否一致，如果一致，则跳转到该订单号的所有信息；没有则提示错误，很急啊！！！
是订单查询按钮，我标错了。

Answer 1

其实不必这么麻烦的，建议你使用子窗体：
1）创建一个空白窗体做主窗体，不绑定任何数据。
2）在主窗体上创建一个“订单号”文本框（列表框或组合框也可以的）
3）将现有窗体“供货商清单”插入主窗体作为子窗体，设置主窗体链接字段为订单号（主窗体控件名），子窗体链接字段为订单号（子窗体内控件名），这样在窗体视图下，主窗体订单号更新后，子窗体内显示的数据将自动改变。
4）如用列表框或组合框做主窗体订单号控件，需将其行来源属性设置为：
select 订单号 from 供应商清单