设置表单控件，可在选择组合框中的值时更新答案

【问题标题】：Set up a form control that updates when a value in a combo box is selected设置表单控件，可在选择组合框中的值时更新
【发布时间】：2013-02-03 08:10:22
【问题描述】：

我设计的订单输入表单上有一个组合框，允许我从名为 tblCustomers 的表中的公司名称下拉列表中进行选择。该控件的行源为：

SELECT CustomerID, CompanyName FROM tblCustomers;

绑定的列是 1，因此我可以将 CustomerID 存储在基础 tblOrders 表中。

我的问题是：

我想要表单上的一个文本框，显示与组合框中选择的客户相关联的销售人员（也在 tblCustomers 表中）。

【问题讨论】：

我想通了。我使用： Private Sub Customer_AfterUpdate() Dim CustID As Long CustID = Me.Customer Me.SalesRep = (DLookup("SalesPerson", "tblCustomers", "CustomerID=" & CustID)) End Sub

【解决方案1】：

您可以利用组合中的列属性：

如果你的组合的行源是：

 SELECT CustomerID, CompanyName, SalesPerson FROM tblCustomers;

您可以设置文本框的控制源引用列属性，从零开始计数：

 =ComboX.Column(2)

您需要将列数设置为 3。

【讨论】：

这也是个好主意。您通常更喜欢 VBA 中的 DLookup 吗？或者如果你有选择，你总是走“代码路线”吗？
可以如图设置文本框的控制源，比DLookup快，因为数据已经在组合框中了。在大多数情况下，MS Access 的一个巨大优势是您无需编写任何代码即可完成很多工作。