与组合框相反。下拉法?

mwo*_*e02 6 ms-access

有没有办法通过VBA切换组合框的下拉菜单? .Dropdown是一种方法,仅在一个方向上起作用。我正在寻找以下功能:

MyCombo.Dropdown = True
MyCombo.Dropdown = False
Run Code Online (Sandbox Code Playgroud)

显然以上内容在MS Access中不起作用。我猜想我需要为此使用某种hack /解决方法。我想避免.Requery。那可能行得通,但是根据组合框的来源可能会导致重大的性能损失。

Ada*_*ips 4

我今天正在处理这个问题,经过大量的试验和错误,我发现以下内容在 Access 2010 中运行良好:

With m_cboLookup
    .ListWidth = .ListWidth    ' Close combo box
    'If Len(strSearch) > 3 Then .Dropdown
End With
Run Code Online (Sandbox Code Playgroud)

本质上,您只是将列表宽度设置为现有列表宽度,但组合框已关闭,大概是为了准备以不同大小重绘。