菜鸟～请教关于组合框的问题--自动弹出！

获得焦点事件：
Private Sub Test_Status_GotFocus()
Me![组合框名称].Dropdown
End Sub

还可加入条件，如：类别不空为真，就向组合框[单位]赋值，并且按TAB、ENTER键自动展开，多练就熟

Private Sub 单位_GotFocus()
    If Not IsNull(Me.类别) Then
        Me.单位.RowSource = "SELECT 单位 FROM 表1 WHERE 类别='" + Me.类别 + "' GROUP BY 单位"
        If Me.NewRecord Then Me.单位.Dropdown
    End If
    If IsNull(Me.类别) Then
    End If
End Sub