vba - 获取子表单中选定行的ID

Question

我有一个带有子表单的父表单，我希望用户能够从子表单中选择一条记录，然后单击父表单上的一个按钮，这将启动一个“新”表单，其中包含与从子表单中选择的记录。

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

Answer 1

您可以在打开“新”表单时将 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