訪問VBA打開新表單上的所有記錄，但顯示指定記錄

Question

我有一個帶有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 

在此先感謝！

Answer 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