MS Access中每个组合框的一项功能

Question

我有一个信息的多个来源，因此我认为最好在其旁边添加一个ComboBox。用户应使用它选择信息来源。我在VBA中使用MS Access。

它必须看起来像这样（最后一列是组合框）：

-------------------------------------------
Name: | North Rhine-Westfalia | Source1 [v]
-------------------------------------------

因此，现在您可以单击ComboBox中的箭头，然后选择另一个来源。然后将执行SQL查询。看起来应该像这样：

-------------------------------------------
Name: | Nordrhein-Westfalen   | Source2 [v]
-------------------------------------------

问题是，我为每个信息（+50）都有多个ComboBox，并且我不想为每个信息编写代码。如何为每个ComboBox实现一个优雅的功能？

我真的希望你们能帮助我。谢谢。

Answer 1

如果通过更改组合框执行的操作是一致的，则可以编写一个单独的子例程，该子例程采用组合框值并对其进行处理。然后可以在每个组合框的AfterUpdate方法中引用该子例程。

例如：

Private Sub DoComboBoxThing(varComboValue as Variant)
    'Do something here with the combobox value
End Sub

然后在更新后由组合框调用此函数：

Private Sub Combo_Box_AfterUpdate ()
    DoComboBoxThing Combo_Box.Value
End Sub

您可以将所有组合框都指向同一个子例程。