Доступ к VBA Открыть все записи в новой форме, но показать указанную запись

Question

У меня есть форма с идентификационными номерами и кнопками, которые должны открыть другую форму с соответствующей записью. В дополнение к этой конкретной записи, мне нужно, чтобы все записи были открыты, потому что моя форма должна иметь рабочие кнопки Next и Previous. Я пытался сделать это в течение пары дней, и я не смог открыть все записи и показать конкретную работу одновременно. Итак, я начал использовать мастер, чтобы открыть все записи. Как мне это исправить, чтобы он показывал запись, по которой щелкнули?

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