组合框点击事件挑战答案

【问题标题】：Combobox Click event challenge组合框点击事件挑战
【发布时间】：2014-11-13 21:33:00
【问题描述】：

对不起我的原始问题，也许你可以帮助我:)

我的表单上有一个组合框。如果我点击它，我会看到这样的信息：

在组合框的On Click 事件下，我看不到填充此组合框的代码。唯一使用的事件是On Got Focus 和After Update。

专注于：

Private Sub ctl42_GotFocus()
    Call subPfadFilter(ctl42, "Obd2")
 End Sub

和更新后事件运行宏

此组合框绑定到源：

我的目标是用 vba 代码模拟这个动作。如果我单击表单上的按钮，那么我想查看第一个图中的内容。我该怎么做？

【问题讨论】：

【解决方案1】：

查看图像，单击 ComboBox 时，您会看到一个可供选择的值列表。我无法放大图像，所以我不太确定，但如果这是正确的。即使没有 VBA，复制也应该非常简单。

您可以单击控制源末尾的小框 (...)，它将为您打开一个查询窗口。选择您希望框在单击时显示的所有列。并确保您转到“格式页面”并将列数设置为您选择的实际列数，假设为 4，然后设置每列的宽度并将列标题设置为“是”

格式属性列数 = 4 列宽 = 0.5;0.5;0.5;0.5 列头 = 是

【讨论】：

【解决方案2】：

没有什么是原始问题 :) 我们都必须从零开始！

你的问题对于你真正想做的事情有点难以理解，所以几个cmets：

我假设您的组合 ctl42 实际上会返回结果 - 即组合的列表部分中有行？
您需要的事件是“On Click”，而不是“On Got Focus”。从您的代码中删除“Private Sub ctl42_GotFocus()”。在组合的属性中，选择事件选项卡，然后在作为组合的“单击时”字段中，选择[事件过程]，然后单击右侧的省略号 (...)，Access 将在代码隐藏表单模块中为您创建一个空子。这就是您需要调用函数的地方 - 调用 subPfadFilter(ctl42, "Obd2")。
您的函数 subPfadFilter 可能会过滤您的子表单。如果这也不起作用，您可能需要在此处发布代码。

HTH

【讨论】：