访问 VBA 在新表单上打开所有记录，但显示指定记录答案

【问题标题】：Access VBA Open all records on new form, but show specified record访问 VBA 在新表单上打开所有记录，但显示指定记录
【发布时间】：2013-06-12 14:18:53
【问题描述】：

我有一个带有 ID 号的表单，以及应该打开另一个带有相关记录的表单的按钮。除了显示该特定记录之外，我还需要打开所有记录，因为我的表单需要具有工作的“下一个”和“上一个”按钮。我已经尝试了几天，但我无法打开所有记录并同时显示特定的作品。所以在这里我重新开始使用向导打开所有记录。我应该如何修复它以显示点击的记录？

Private Sub Command74_Click()

On Error GoTo Err_Go_to_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Contracts"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Go_to_Click:
    Exit Sub

Err_Go_to_Click:
    MsgBox Err.Description
    Resume Exit_Go_to_Click


End Sub

提前致谢！

【问题讨论】：

标签： vba ms-access records openform

【解决方案1】：

您需要在打开表单后导航到正确的记录。我没有看到填充 strLinkCriteria 的代码，所以我在示例中提供了一些虚拟数据。

Private Sub Command74_Click()

On Error GoTo Err_Go_to_Click

Dim stDocName As String
Dim stLinkCriteria As String

stLinkCriteria = "ContactID = '" & Me.ContactID & "'"
stDocName = "Contracts"
'Open the form with no filter
DoCmd.OpenForm stDocName
'Go to the specified record
Forms(stDocName).Recordset.FindFirst stLinkCriteria

Exit_Go_to_Click:
    Exit Sub

Err_Go_to_Click:
    MsgBox Err.Description
    Resume Exit_Go_to_Click


End Sub

【讨论】：