Ms Drop Free文本在下拉列表中

Question

我有两个用外键绑定的表。示例：

  

客户 - ＆gt; CustomerType

我创建了一个表单，我为每个客户提供了一个下拉列表。下拉列表包含所有客户类型。现在，有时输入数据的人希望在不离开表单的情况下向该客户添加新的客户类型。有没有办法在下拉列表中输入自由文本并在数据库中自动创建记录（如果它不存在）？或者有没有办法让“new ...”选项让文本框显示输入新的组名？

谢谢！

Answer 1

假设您的下拉列表是一个组合框，请使用其 On Not In List 事件。 Allen Browne提供了您可以调整的示例代码：Option 1: Not In List event

如果您的下拉列表是一个列表框，我不知道如何在不打开其他表单的情况下执行此操作。

Answer 2

如果用户输入组合框中的新类别，它会将此新客户类型保存在客户表中，但不会保存在customerType表中。

你能做的是：

1. 有一个onchange事件，用于检查正在选中的“添加新的customerType”行
2. 在模态视图中打开一个表单以添加新的cutomerType（表单属性PopUp = true和Modal = true）

\

Private Sub province_Change()
 If Me.comboBoxCustomerType.SelText = "Add a new customerType" Then
  DoCmd.OpenForm "frmAddNewCustomerType"     
 End If
End Sub