Combobox Click事件挑战

Question

抱歉我的原始问题，也许你可以帮助我:)。

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

在On Click组合框的情况下，我看到没有代码，这填补了这个组合框。唯一使用的事件是On Got Focus和After Update。

获得焦点：

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

和更新后事件运行宏

这个组合框与一个来源有关：

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

Answer 1

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

关于你真正想做什么，你的问题有点难以理解，所以有一些评论：

1. 我假设你的组合ctl42实际上返回了结果 - 也就是说，组合的列表部分中有行？

2. 您需要的活动是“点击”，而不是“On Got Focus”。从代码中删除“Private Sub ctl42_GotFocus（）”。在组合的属性中，选择Events选项卡，然后在“On Click”字段中，这是一个组合，选择[Event Procedure]，然后单击右侧的省略号（...），Access将在代码隐藏表单模块中为您创建一个空子。这就是你需要调用函数的地方 - 调用subPfadFilter（ctl42，“Obd2”）。

3. 您的函数subPfadFilter可能会过滤您的子表单。如果这也不起作用，您可能需要在此处发布代码。

HTH

Answer 2

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

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

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