使用数据输入表单并自动填充某些字段

Question

我有两张桌子，我们称之为employees和customers。

employees非常基本：

ID | title | emp_name | building | email | phone

customers没有太大区别：

ID | cust_name | address | phone | emp_title | emp_name

我有一个用于将数据输入customers的表单。其中两个字段为employee_title和employee_name。

employee_name是一个组合框，其中控件来源为employee_name，行来源为SELECT [employees].emp_name FROM employees;。还有一个After Update事件可以重新查询employee_title。

对于employee_title，控件来源为=DLookUp("title","employees","emp_name = '" & [employee_name] & "'")。

这适用于表单本身。从下拉列表中选择员工姓名后，它会正确显示员工的姓名。但是，员工的标题未插入customers表（其他所有内容都已正确插入）。我并不完全熟悉MS Access，但我99％肯定这是因为Control Source是一个DLookUp而不是对表的引用。

那么，如何让员工的头衔显示在表格上并插入客户的表格？

Answer 1

您需要使用一点VBA才能正确处理。

首先，将employee_title的控件来源设置为emp_title（或title或employee_title，您的问题对此列的名称有点模糊）。

然后，将以下代码添加到employee_name组合框中。

Private Sub employee_name_AfterUpdate()
    employee_title = DLookUp("title","employees","emp_name = '" & employee_name & "'")
End Sub