3

我有一个带有 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

提前致谢！

4

1 回答 1

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
于 2013-06-12T14:31:21.073 回答