提示“缺少数组”

kent_73

组合框下有代码：
    Dim str As String
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[ID] = " & str(Me![组合85])
    Me.Bookmark = rs.Bookmark
但是在实际使用中，却出现“缺少数组”的错误提示。
请问是什么问题？

todaynew

dim str as string
str(Me![组合85])
是个什么东西？

kent_73

使用组合框向导，然后选择“在基于组合框中选定的值而创建的窗体上查找记录”，下一步（选定字段），下一步，完成。然后在该组合框的AfterUpdate下得到了的代码。
虽然是利用向导生成，还是出现了“缺少数组”的错误提示。

kent_73

已解决