Question

我的情况很简单，用户会看到客户的下拉菜单（组合框），如果客户需要填写表格，数据库中已经没有用户可以点击＆＃34;添加顾客＆＃34;按钮，打开弹出窗体以输入客户详细信息并将新条目插入到customers表中。

我现在正在挑选，但是，如果用户现在想要选择新输入的客户，他们必须从组合框中重新选择客户，该组合框现在将显示一个新条目，有没有办法自动制作组合框默认为新插入的客户，其中包含＆＃34; On Close＆＃34;弹出窗体上的事件？

这是＆＃34;关闭＆＃34;代码我已经有了刷新客户组合框以添加新条目的代码，我可以添加哪些代码来使其默认为输入的新客户？

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")

这是＆＃34;客户＆＃34;的最后一个条目。 table并将组合框的值设置为字段＆＃34; ID＆＃34;中包含的值。

用于组合框选择的VBA代码（Access）

1 个答案: