1

我一直在尝试从contracts_all 页面打开一份合同表格。我想打开contracts_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
4

3 回答 3

2

看起来您可能没有设置适当的参考。确保检查了 Microsoft DAO。请注意，这些方法在 ADO 中不起作用。:-)

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

干杯，LC

于 2013-06-12T03:25:19.653 回答
1

尝试更换

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

和

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

这可能有点偏离，但我猜这是因为您的活动表单已从contracts_all 更改为Contracts，所以您不能再使用Me！参考。

于 2013-06-11T20:54:20.123 回答
-2

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

于 2015-06-24T12:50:03.597 回答