VBA 进行组合框选择的代码 (Access)

Question

我的情况很简单，用户会看到一个客户的下拉菜单（组合框），如果数据库中不存在需要填写表格的客户，则用户可以单击 "Add Customer" 按钮，它会打开一个弹出窗体以输入客户详细信息并将新条目插入客户 table.

我现在挑剔但是，如果用户现在想要 select 新输入的客户，他们必须重新 select 组合框中的客户，现在将显示一个新条目, 有没有办法通过弹出窗体上的 "On Close" 事件自动使组合框默认为新插入的客户？

这是我已经拥有的 "On Close" 代码，它可以刷新客户组合框以添加新条目，有什么我可以添加的，可以使该框默认为输入的新客户吗？

Private Sub Form_Close()

    If CurrentProject.AllForms("edit appointments").IsLoaded Then

        Forms![edit appointments]!customerCombo.Requery

    End If

    If CurrentProject.AllForms("edit purchases").IsLoaded Then

        Forms![edit purchases]!customerCombo.Requery

    End If

End Sub

Answer 1

我想通了。

Forms![edit appointments]!customerCombo = DLast("ID", "customer")

这会获取 "customers" table 中的最后一个条目，并将组合框的值设置为字段 "ID" 中包含的值。

VBA 进行组合框选择的代码 (Access)

VBA code to make a combo box selection (Access)

ms-access

vba

combobox

selection