获取子表单中所选行的ID

时间:2017-09-22 14:17:03

标签: vba ms-access ms-access-2013 ms-access-forms

我有一个包含子表单的父表单,我希望用户能够从子表单中选择一个记录,然后单击父表单上的一个按钮,这将启动一个具有完整演示的“新”表单属于子表格中选定的记录。

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

1 个答案:

答案 0 :(得分: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