MS Access - 数据选择已更改

Question

我有一个小但难以捉摸的问题：

在 MS Access 中，我只有一个结果表单。在这张表格上我有一个清单。此列表是基于主窗体 ID 的子选择。我怎样才能捕获行更改，从而更新我的列表？

我不是在寻找插入/更新语句！我有很多，它们工作正常，但除非每一行在更改行之前/尽快更新，否则对我没有帮助。

在我的示例中，列表是所选电影的流派。

Private Sub film_name_AfterUpdate()

    Dim strNewRecord As String
    Dim film_id As Integer

    If IsNull(Forms!Films!film_id) Then
            GoTo cmdNoRecord_Error
    Else:
        film_id = Forms!Films!film_id
        strNewRecord = "SELECT qry_film_genres.gen_name FROM qry_film_genres " _
            & " WHERE film_id = " _
            & film_id & " ORDER BY qry_film_genres.gen_name"
            Me.Genre_List.RowSource = strNewRecord
    End If

    Exit Sub

cmdNoRecord_Error:
   MsgBox "Please Select a Film."
   Exit Sub
End Sub

Answer 1

您只需要使用 film_id 更改事件。我假设 'film_id' 字段在父表单上，子表单是 'Genre_List' 控件所在的位置。

EG:

Private Sub film_id_Change()
    If Not IsNull(Me.film_id) Then
        Me.CHILDFORM.Genre_List.RowSource = "SELECT qry_film_genres.gen_name FROM qry_film_genres " _
            & " WHERE film_id = " & Me.film_id & " ORDER BY qry_film_genres.gen_name"
    End If
End Sub

MS Access - 数据选择已更改

MS Access - Data selection has changed

ms-access

vba

ms-access-2013