获取子表单中选定行的 ID

Question

我有一个带有子表单的父表单，我希望用户能够 select 子表单中的记录，然后单击父表单上的按钮，这将启动一个 "new" 表单，其中包含与子表单中的 selected 记录有关的完整演示。

我如何在 Access 2013 中执行此操作？

Answer 1

您可以在打开 "new" 表单时将 ID 作为参数传递。

在您按钮的 Click 事件中：

Private Sub Command0_Click()
    'Get the ID
    Dim id_ As Long
        id_ = Me.SubformName.Form!ID

    'Open the new form and pass the ID to the .OpenArgs
    DoCmd.OpenForm "FormName", acNormal, , , acFormPropertySettings, acWindowNormal, id_
End Sub

在表单的 Load 事件中，检查 .OpenArgs 并将表单（或您需要执行的任何其他操作）过滤到提供的 ID。

Private Sub Form_Load()
    With Me
        If Not IsNull(.OpenArgs) Then
            .Filter = "[ID]=" & .OpenArgs
            .FilterOn = True
            .Caption = "ID: " & .OpenArgs
        End If
    End With
End Sub

获取子表单中选定行的 ID

Get ID Of Selected Row In Sub Form

ms-access

vba

ms-access-2013

ms-access-forms