Question

我一直在尝试从contracts_all页面打开合同表单。我想打开contract_all表单上的所有记录，但只显示单击的特定记录。要显示此特定记录，该按钮使用在contracts_all表单中找到的ID。我已经设法在不同论坛的各种人的帮助下走了这么远，但现在我收到一个错误，上面写着“编译器错误;找不到方法或数据成员”.. 请帮忙！提前致谢。

Dim Rs As Recordset
Dim Test As Integer
Dim varBookmark As Variant
DoCmd.OpenForm "Contracts"

Set Rs = Forms!Contracts.RecordsetClone
    Rs.FindFirst ("[ID] = '" & Me![ID] & "'")
varBookmark = Rs.Bookmark
 Forms!Contracts.Form.Bookmark = varBookmark

If Rs.NoMatch Then
  MsgBox "That does not exist in this database."
Else
End If

Answer 1

看起来您可能没有相应的参考设置。确保已选中Microsoft DAO。请注意，这些方法在ADO中不起作用。： - ）

单击工具，然后单击引用，然后单击Microsoft DAO 3.6（或可用的最高版本）。如果您将代码复制并粘贴到项目中，则很容易错过未引用正确的库。

干杯， LC

Answer 2

尝试替换

Rs.FindFirst ("[ID] = '" & Me![ID] & "'")

与

Rs.FindFirst ("[ID] = '" & Forms!contracts_all![ID] & "'")

这可能略有偏差，但我猜是因为你的活动表格已从contract_all更改为Contracts，所以你不能再使用我了！参考

Answer 3

另一种可能性是您尝试清除的字段设置为日期或数字格式，例如，我的数据库中就是这种情况。通过查看关于这个主题的众多主题，我确实学到了很多东西！

Vba访问错误：找不到方法或数据成员

3 个答案: