基于VBA中的日期字段的自动更新组合框

Question

任何人都可以提供的帮助将非常感谢！我有一个用于将成员添加到数据库中的表单，该表单具有跟踪其参与日期的子表单。在子表单中有一个状态组合框，开始日期和结束日期字段。我正在尝试添加编码，以便在输入结束日期时自动将状态更改为“非活动”。以下是我的内容，但我一直收到424错误“需要对象”

我哪里错了？

Private Sub EndDate_AfterUpdate()
On Error GoTo err_trap

    If (Me.EndDate) Is Not Null Then
        Me.cboStatus = "Inactive"
        Me.Refresh
    End If

err_trap_exit:
    Exit Sub

err_trap:
    MsgBox "The following error has occurred: " & Err.Number & " - " & Err.Description & " - EndDate - AfterUpdate"
    Resume err_trap_exit
End Sub