3

ID 番号を含むフォームと、関連するレコードを含む別のフォームを開くボタンがあります。表示されている特定のレコードに加えて、フォームに [次へ] ボタンと [前へ] ボタンが機能する必要があるため、すべてのレコードを開く必要があります。数日前から試していますが、すべてのレコードを開き、特定の 1 つのレコードを同時に表示することができませんでした。ここでは、ウィザードを使用してすべてのレコードを開くことから始めました。クリックされたレコードが表示されるようにするにはどうすればよいですか?

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 に答える