Private Sub Command22_Click()
' This section deals with grabbing the 3 calculations from qry_LiveOEE
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Set dbs = CurrentDb
'Open a dynaset-type Recordset using a saved query
Set rst = dbs.OpenRecordset("qry_LiveOEE", dbOpenDynaset)
rst.MoveFirst
numfg_posted = rst!SumOfqty_complete
numOEE = rst!OEE
numpp_lhr = rst!ACT_PPLHR
rst.Close
dbs.Close
Set rst = Nothing
Set dbs = Nothing
我收到错误提示Too few parameters. Expected 4.
此查询在 条件 部分(设计视图)中有5个内容,为什么我说需要4个参数?
标准部分中的5件事(全部在不同的领域下)是:
答案 0 :(得分:2)
尝试对代码进行此(未经测试)更新:
//some properties
initResize: function(isPlayerInitializing=true){
//some execution
},
//some more properties
确保参数中的所有值都可用 - 即表单已打开。