在组合框的Enter事件中，调用如下代码即可。

若是新输入记录，则进入即自动下拉。

Public Sub PullDownCmb(Optional cmb As Access.ComboBox)

    On Error GoTo ErrHandle
    
    If Screen.ActiveControl.Parent.NewRecord Then Screen.ActiveControl.Dropdown
    
    Exit Sub


ErrHandle:

End Sub