点击下载此附件

复制到窗体里，

本窗体所有组合框可实现单击组合框下拉

Private Sub Form_Load()
    Dim ctrl As Control
    For Each ctrl In Me.Controls
        If ctrl.ControlType = acComboBox Then ctrl.OnGotFocus = "=activecontrol.dropdown"
    Next
End Sub