访问VBA:打开记录集要求4个参数

时间:2016-03-30 13:53:06

标签: vba access-vba ms-access-2010

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件事(全部在不同的领域下)是:

  1. 从表单输入
  2. 从表单输入
  3. 根据当前时间切换声明
  4. 日期()
  5. 不是空的

1 个答案:

答案 0 :(得分:2)

尝试对代码进行此(未经测试)更新:

//some properties
initResize: function(isPlayerInitializing=true){ 
    //some execution
},
//some more properties

确保参数中的所有值都可用 - 即表单已打开。