无法打开指定数据相对应的窗体，请老师帮助解惑。

1

Private Sub 订单ID_DblClick(Cancel As Integer)
  DoCmd.OpenForm "订单"
  Forms("订单").Controls("订单ID").SetFocus
  DoCmd.FindRecord 订单ID, acAnywhere, , acSearchAll, , acCurrent, True
End Sub

2

Private Sub 图号_DblClick(Cancel As Integer)
  DoCmd.OpenForm "产品"
  Forms("产品").Controls("图号").SetFocus
  DoCmd.FindRecord 图号, acAnywhere, , acSearchAll, , acCurrent, True

End Sub
3

删掉

Private Sub Form_BeforeUpdate(Cancel As Integer)
    Me![订单ID] = AutoNumStr("订单", "订单ID", 2, "c", "yymmdd-")
End Sub
然后把【订单ID】的默认值设为：=AutoNumStr("订单","订单ID",2,"c","yymmdd-")