Beep MsgBox"进入柜存记录查询", vbOKOnly,"柜存 信息" 打开“商品柜存数据查询”窗体 DoCmd Open Forr"商品柜存数据查询" anOrmal, , acReadOnly, anOrmal 柜存信息Exit: ExIt function 柜存信息Er MsgBox errors Resume柜存信息Exit End FunctionBeep MsgBox "进入柜存记录查询", vbOKOnly, "柜存 信息" ' 打开“商品柜存数据查询”窗体 DoCmd.OpenForm " 商品柜存数据查询 " , acNormal, "", "", acReadOnly, acNormal 柜存信息_Exit: Exit Function 柜存信息_Err: MsgBox Error$ Resume 柜存信息_Exit End Function